エクセルから、パワーポイントのスライドを複数作成する。

パワーポイントのスライドに、日次毎の表題を複数シート作成したいと思っています。
エクセルシートに、PPT用データ1列と、PPT用データ2列があり、このデータを
パワーポイントに展開して、スライドを作成するのですが、
以下のマクロですと、青色の背景と、白色の文字になってしまいます。
白い背景と、黒の文字で、字体を変えて、字の大きさも大きくしたいのですが、
どう追加するのが良いでしょうか?


Sub PowerPointのスライドを複製する()

Dim ppApp As New PowerPoint.Application
ppApp.Visible = True

Dim ppPrs As PowerPoint.Presentation
Set ppPrs = ppApp.Presentations.Open(ThisWorkbook.Path & "\パワポ.pptm")

Dim countSld As Long

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("リストフォルダ名設定")

Dim i As Long

i = 2

Do While ws.Cells(i, 14).Value <> ""

countSld = ppPrs.Slides.Count '現在のスライド数をカウント

ppPrs.Slides(countSld).Duplicate '最終ページを複製

ppPrs.Slides(countSld + 1).Shapes.AddShape(msoShapeRectangle, 70, 70, 800, 400).TextFrame.TextRange.Text = ws.Cells(i, 14).Value & vbCrLf & ws.Cells(i, 15).Value

i = i + 1
Loop

End Sub

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/07/09 08:14

こんにちは

＞白い背景と、黒の文字で、字体を変えて、字の大きさも大きくしたいのですが、どう追加するのが良いでしょうか?

例
Do While ws.Cells(i, 14).Value <> ""
countSld = ppPrs.Slides.Count '現在のスライド数をカウント
ppPrs.Slides(countSld).Duplicate '最終ページを複製
With ppPrs.Slides(countSld + 1).Shapes.AddShape(msoShapeRectangle, 70, 70, 800, 400)
.Fill.ForeColor.RGB = RGB(255, 255, 255) '色
.TextFrame.TextRange.Text = ws.Cells(i, 14).Value & vbCrLf & ws.Cells(i, 15).Value
With .TextFrame.TextRange.Font 'フォント
.Size = 48 'サイズ
.Name = "Meiryo UI"
.Bold = True
.Color.RGB = RGB(0, 0, 0) '黒色
End With
End With
i = i + 1
Loop