連番の番号表を作成【PowerPointVBA】
1枚目のスライドに画像とテキストボックスを用意し、名前を設定しておく
→テキストボックスに設定した名前は左側テキストと右側テキスト
そして後はそれを順番にコピーして1~100まで作成してもらう為のマクロ(コピペで使う用)
番号表を作るときなんかに手打ちせず使うと楽ちんです
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
実際に使用したサンプルコード
Option Explicit
Sub AddNewSlide()
'番号設定用の変数
Dim num As Integer
'繰り返す
For num = 1 To 100 Step 2
'Duplicateはオブジェクトの複製、MoveToメソッドは指定したオブジェクトを移動 引数toPosに移動先の位置を指定
'このプレゼンテーションのスライドの数+1(すなわち末尾)
ActivePresentation.Slides(1).Duplicate.MoveTo ActivePresentation.Slides.Count + 1
'追加したテキストの左側と右側のテキストに番号を設定する
With ActivePresentation.Slides(ActivePresentation.Slides.Count)
.Shapes("左側テキスト").TextFrame.TextRange.Text = num & "番"
.Shapes("右側テキスト").TextFrame.TextRange.Text = num + 1 & "番"
End With
Next
End Sub