
No.1ベストアンサー
- 回答日時:
>1枚目と2枚目には、ページ数を表示しないで
これは可能です。1枚目、2枚目を「書式」→「スラーどのレイアウト」→「テキストのスタイル」→タイトルスライドにしてしまえばページを印刷しなくすることができます
でも
>3枚目から1ページ目として表示したいのですが
は難しいと思います。「ファイル」→「ページ設定」で先頭ページ番号がマイナスの数字にできないので、最小値の0を入れても、3ページ目には2ページと表示されます。
全体のページ数が少ないのであればオートシェイプにページ数を入力して配置するしかないのではないでしょうか。
No.3
- 回答日時:
#2の修正です。
10行目の
' Exit Sub 'ページ番号を削除するだけの場合は、この行の先頭の ' を削除。
を
' Goto NXT 'ページ番号を削除するだけの場合は、この行の先頭の ' を削除。
に、
最後から3行目の
Next
を
NXT: Next
に、
それぞれ書き換えてください。
No.2
- 回答日時:
マクロでなら一括処理が可能かと。
いったん採番した後にページの挿入・削除を行なった場合は、改めてマクロを実行して
ください。自動的に元の番号を削除して採番しなおします。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでページ番号を -1-にした...
-
Wordのページ番号が1ページか...
-
word2007 画像をページ一杯に広...
-
パワーポイントの3枚目から1...
-
エクセル フッターのページを...
-
ワードのページ番号が3桁にな...
-
ページ設定が縦横まざった文書...
-
ワードのヘッダー部分に表(枠...
-
Wordでフッターに2回ずつページ...
-
[ワード(word)]目次で見出し文...
-
一太郎の改ページ機能(?)
-
一太郎のマクロの書き方を教え...
-
ページが増やせない
-
ワードで1枚目だけヘッダーに文...
-
花子13で困ってます
-
PDFの文書にページ番号をつけたい
-
ワードで他ページに影響しない...
-
Word2003 表紙以外に総ページ数...
-
ワードの原稿用紙設定でページ...
-
WORDでページ番号をふるには
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでページ番号を -1-にした...
-
ページ設定が縦横まざった文書...
-
エクセル フッターのページを...
-
word2007 画像をページ一杯に広...
-
Wordのページ番号が1ページか...
-
EXCELでヘッダーを使わずにペー...
-
WordでPDF保存するとページ番号...
-
Wordでフッターに2回ずつページ...
-
パワーポイントの3枚目から1...
-
ページ番号の入れ方について
-
[ワード(word)]目次で見出し文...
-
ワードの原稿用紙設定でページ...
-
Wordで1ページ中に開始番号の...
-
一太郎に詳しい方お願いします...
-
複数のファイルに連番のページ...
-
ページが増やせない
-
偶数ページのみページ番号を振...
-
ワードのヘッダー部分に表(枠...
-
Wordで用紙が縦横混在した文書...
-
Wordでページ番号の設定 現在の...
おすすめ情報