質問: パワーポイントの3枚目から1ページにしたいのですが・・・ パワーポイントのページ表示に関して、知恵をお願い致します。 内容は、1枚目と2枚目には、ページ数を表示しないで、3枚目から1ページ目として表示したいのですが、方法が見つからない状況です。 ページ表示自体の設定はされいるので、別の設定の必要があるのではと思っておりますが、苦戦しております。 どうか、お力をお貸し頂ければと思います。 宜しくお願い致します。
回答: マクロでなら一括処理が可能かと。 いったん採番した後にページの挿入・削除を行なった場合は、改めてマクロを実行して ください。自動的に元の番号を削除して採番しなおします。 sub setpage() dim slide, shape dim s as integer, i as integer s = 2 'ページ番号をつけない頁数。この場合先頭から2枚目まで頁番号なし。 for each slide in activepresentation.slides '既設のページ番号を削除 for each shape in slide.shapes if left(shape.name, 4) = "mypg" then shape.delete next ' exit sub 'ページ番号を削除するだけの場合は、この行の先頭の ' を削除。 '新しくページ番号を設定 i = slide.slidenumber if i > s then activewindow.view.gotoslide index:=i activewindow.selection.sliderange.shapes. _ addtextbox(msotextorientationhorizontal, 650#, 500#, 40#, 20#).select activewindow.selection.shaperange.name = "mypg" & i with activewindow.selection.shaperange.textframe .textrange.text = i - s .textrange.font.size = 14 .autosize = msotrue end with end if next activewindow.view.gotoslide index:=1 end sub