PowerPoint VBS Excelファイルの行数分だけslide追加 平成30年8月17日

取り敢えず試してみた。

結果上手く動いたのでよしとしました。

今後の展開として

1. 各スライドにエクセルの表に書いてある事項を入力していく
2. 適切なスライドの数にしていく

になります。

これからもトライアンドエラーの繰り返しですね。

Sub エクセルの行の分だけ新しいスライドを追加する()
Dim i As Long
Dim ECC As Long
With New Excel.Application
.Visible = True
.Workbooks.Open "C:\ああ\aaaa.xlsx"
End With
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ECC = Selection.Rows.Count
Excel.Application.Quit
i = 1
Do While i <= ECC
With ActivePresentation.Slides
.AddSlide _
Index:=.Count + 1, _
pCustomLayout:=.Item(.Count).CustomLayout
End With
i = i + 1
Loop
ActivePresentation.SaveAs "C:\あ\ & "大好きお願い" & Day(Date) & Hour(Time) & Minute(Time) & ".pptx", ppSaveAsDefault, msoCTrue
ActivePresentation.Close
End Sub