InsertSlideNumber メソッド
Microsoft PowerPoint Visual Basic リファレンス |
InsertSlideNumber メソッド
指定されたテキスト範囲に現在のスライドのスライド番号を挿入します。スライド番号を表す TextRange オブジェクトを返します。
expression**.InsertSlideNumber**
*expression * 必ず指定します。TextRange オブジェクトを返すオブジェクト式を指定します。
解説
現在のスライドのスライド番号が変わると、挿入したスライド番号も自動的に更新されます。
使用例
次の使用例は、作業中のプレゼンテーションのスライド 1 の図形 2 内の最初の段落の最初の文の後に現在のスライドのスライド番号を挿入します。
Set sh = Application.ActivePresentation.Slides(1).Shapes(2)
Set sentOne = sh.TextFrame.TextRange.Paragraphs(1).Sentences(1)
sentOne.InsertAfter.InsertSlideNumber