OSはXP、パワーポイント2003を使っています。スライドが15枚あります。15枚には3パターンで使用するスライドが入っています。パターン1では必要なスライドは8枚、パターン2では10枚、パターン3では13枚です。不要なスライドを削除するために、ネットで調べてマクロによる削除まで出来ました。スライドの削除は途中のスライドを削除したりするので、表題に付与している項目番号が変わります。
表題の項目番号はスライドの一番左上に記載しています。
マクロで文中に「1-(1)」「1-(2)」「1-(3)」「1-(4)」「2-(1)」「2-(2)」「3-(1)」を記載して、指定するスライドの左上に書き込むことは出来るでしょうか。もしくはマクロを実行させるPPTのファイルがあるのですが、これの2枚目以降のスライドに項目番号を記載し、コレをコピー&ペーストで実行することが出来るでしょうか。
教えていただける方、どうぞよろしくお願いします。
スライドを削除するVBAは下記で実行できました。
Sub pt1()
'
' マクロ記録日: 2012/5/28 ユーザー名:
Dim myPath As String
Dim PPTName As String
Dim ThisPresentation As Presentation
Dim CurrentPPT As Presentation
Set ThisPresentation = ActivePresentation
myPath = ActivePresentation.Path '自ファイルのパス取得
If Right$(myPath, 1) <> "\" Then
myPath = myPath & "\"
End If
PPTName = Dir(myPath & "会議資料(原本).ppt")
If PPTName <> ThisPresentation.Name Then
Set CurrentPPT = Presentations.Open(myPath & PPTName) 'ファイル開く
End If
ActiveWindow.View.GotoSlide Index:=15
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=14
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=13
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=12
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=11
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=10
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=9
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=8
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=7
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=4
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=3
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.View.GotoSlide Index:=1
ActiveWindow.Selection.SlideRange.Delete
MsgBox "作成終了"
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
15枚づつ3セット分のスライドを複製して
不要なスライドを手で削除して
1枚目のスライドからハイパーリンクで目的別スライドショーにリンクするのではだめですか?
何でもマクロというのではなく
どうしても通常の方法ではできないことをマクロでやるのがいいです。
ここに提示したマクロを考え質問している時間があれば、手作業でとっくに終わっているでしょう。
思ってもみなく、早期のご教示ありがとうございます。すごくうれしいです。
実は、説明がうまくなかったのですが、毎月月毎のデータをPPTに記載しています。それに加えて3ヶ月ごとの四半期には、毎月に追加したデータを、半年ごとには毎月と四半期のデータを記載した資料を作成しています。もともと3種類の(ご教示のあった3セット)資料を用意してそれぞれにデータを記載していたのですが、様式の変更や、記述の変更があったときは3種類とも修正が必要になることと、四半期、半期に記載する毎月データは四半期の場合、次の四半期の作成時は、3ヶ月前の毎月データが記載されているので、最新の毎月のデータと差異がないか、半期でも同様で、これを問題としています。ですから、様式を一本化しこれらのリスクを回避したいと考えました。
やはり、VBAでの対応は無理なのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
30分間の発表の原稿
-
パワーポイントでスライドごと...
-
パワーポイントのスライド名変...
-
内定後パワポで自己紹介があり...
-
パワーポイントをノートつきで...
-
パワーポイントで一ページだけ...
-
パワーポイントをPDF化するとレ...
-
トイレスライド錠の分解の仕方
-
powerpoint スライド順の総入...
-
PowerPoint スライドの縮小コピー
-
パワーポイント、削除したスラ...
-
パワーポイントでデザインプレ...
-
クレジットカードをスライドす...
-
PowerPointでのオブジェクト貼...
-
パワーポイントでこんなこと出...
-
スライドショーを実行しても、...
-
【パワーポイントのフォントが...
-
パワーポイントでスライドの大...
-
Power pointでスライドの間が開...
-
PowerPointスライドマスタで2...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
30分間の発表の原稿
-
パワーポイントでスライドごと...
-
パワーポイントのスライド名変...
-
トイレスライド錠の分解の仕方
-
パワーポイントをノートつきで...
-
パワーポイントで一ページだけ...
-
パワーポイント、削除したスラ...
-
パワーポイントをPDF化するとレ...
-
クレジットカードをスライドす...
-
powerpoint スライド順の総入...
-
【パワーポイントのフォントが...
-
リモコン、電池の蓋が開かずに...
-
複数のスライドをまとめて移動...
-
PowerPoint スライドの縮小コピー
-
スライドショーを実行しても、...
-
内定後パワポで自己紹介があり...
-
スライド式USBメモリのスライド...
-
パワーポイントのスライドショ...
-
パワーポイントでスライドの大...
-
パワーポイントで、作成後に「...
おすすめ情報