質問: PowerPointで資料作成中はスライドマスターを使って「作成中」という透かし文字を入れています(資料中央の斜めに配置)。
回答: 思いつくまま組み立ててみました。 マスター表示モードで、スライドマスタ(下図の部分)を次のように編集します。 ・中央に挿入した[作成中]の透かし図の名前を、WMark に変更します。 ・右上に提出先用の画像三種を同じ位置に重ねて挿入し、それぞれ 図1、図2、図3 という名前にします。 ↓ 通常の編集モードに戻し、[開発]タブの[Visual Basic]から開くウィンドウの[挿入]-[標準モジュール]から表示される白紙部分に以下を記述し、そのウィンドウを閉じます。Dim chk As Long Sub DelWMark() ActivePresentation.SlideMaster.Shapes("WMark").Delete End Sub Sub ChoosePic() chk = chk + 1 If chk = 4 Then chk = 1 Dim i As Long For i = 1 To 3 ActivePresentation.SlideMaster.Shapes("図" & i).Visible = False Next ActivePresentation.SlideMaster.Shapes("図" & chk).Visible = True End Sub↓ [クイックアクセスツールバーのユーザー設定]で、[マクロ]コマンドグループから、上記2つのマクロ(DelWMark、ChoosePic)を追加登録します。 ↓ テンプレートとして保存します。 それで―― 保存したテンプレートをベースにして開いたファイル上で、 ・ChoosePicのアイコンをクリックするたびに右上の画像が入れ替わり、 ・DelWMarkで透かしが削除されます。 最終保存時には pptx 形式でマクロを削除した状態で保存し、配布します。