PowerPointのプレゼンテーションを作成する際、同じ作業を何度も繰り返すのは面倒ですよね。例えば、スライドに同じロゴを毎回挿入したり、全スライドのデザインを統一したりする作業。これらを手動で行うと時間がかかりますが、VBA(Visual Basic for Applications)を使えば、これらの作業を簡単に自動化できます。
Sub InsertLogo()
Dim slide As slide
Dim logo As Shape
For Each slide In ActivePresentation.Slides
Set logo = slide.Shapes.AddPicture("C:\path\to\logo.png", msoFalse, msoCTrue, 10, 10, 100, 50)
Next slide
MsgBox "全スライドにロゴを挿入しました!"
End Sub
このコードを実行すると、指定した画像(ロゴ)が全スライドの指定位置に挿入されます。
スライドの進行時間を自動設定する
Sub AutoSlideShow()
Dim slide As slide
For Each slide In ActivePresentation.Slides
slide.SlideShowTransition.AdvanceTime = 3
slide.SlideShowTransition.AdvanceOnTime = msoTrue
Next slide
MsgBox "全スライドの進行時間を3秒に設定しました!"
End Sub
コメント