パワーポイントのマクロ作成で。

質問

いつもお世話になりっています。
パワーポイント（２００２）で背景画像を変更するとき、マクロで指定したフォルダを開くまでを作成したいのですがよい方法をご指導いただけませんでしょうか？
　マクロ初心者です。簡単な方法でお願いします。
かって申し上げすみません。

回答No.1

nishi6

＞パワーポイント（２００２）で背景画像を変更するとき、マクロで指定したフォルダを開くまでを

これは『デザインテンプレートの適用』のことでしょうか。
このテンプレートの選択をマクロで行うとして回答します。

パワーポイントのダイアログボックスの表示方法がわからないので、Excelのダイアログを借用します。
（Excelがあることが前提です。当方、Excel、PowerPointとも2000です）

パワーポイントのVBE画面でメニューのツール→参照設定で
Microsoft Excel X.0 Object Library にチェック。（私の場合、X.0は9.0でした）
下記コードを標準モジュールに貼り付けます。

ダイアログボックスが表示されたら、『表示』をプレビューにします。
パワーポイントのダイアログボックスとほぼ同じ表示ができます。

ここから
↓
Sub getPOTfile()
　　Dim myFile As Variant '指定したファイル名
　　Dim myFileFilter As Variant 'ファイルフィルタ
　　myFileFilter = "デザインテンプレート,*.pot"

　　myFile = Excel.Application.GetOpenFilename(FileFilter:=myFileFilter)
　　　　If myFile <> False Then
　　　　　　ActivePresentation.ApplyTemplate FileName:=myFile
　　　　End If
End Sub

お礼

回答ありがとうございます。難しそうですが、チャレンジしてみます！出来なければ再度お聞きしますので、またよろしくお願いします。