パワーポイント2010のVBAで白紙シートを追加して背景色を黒にするには

パワーポイント2010のVBAで白紙シートを追加して背景色を黒にするにはどのようにコードを記述すれば良いでしょうか？

質問者からの補足コメント

• kurobodさん、ありがとうございます。
  質問に書きましたが、VBAのコードをどのように記述すればよいか教えてください。

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/06/04 09:12

No.2 ベストアンサー 回答者： TechGate2 回答日時： 2017/06/04 21:46

パワーポイント2007で動作確認しましたが、2010でもたぶん大丈夫だと思います。

下記では2ページ目に追加シートが入ります。

Sub ADD()
ActivePresentation.Slides.ADD 2, ppLayoutBlank
With ActivePresentation.Slides.Range(Array(2))
.FollowMasterBackground = False
.Background.Fill.ForeColor.RGB = RGB(0, 0, 0)
End With
End Sub

この回答へのお礼

試しにやってみてできました。
ありがとうございます。
本当に助かりました。

お礼日時：2017/06/05 09:37

No.1 回答者： kurobod 回答日時： 2017/06/02 16:29

右クリックで背景の書式設定で塗りつぶしにチェックを入れ黒を指定すればＯＫです。

この回答へのお礼

kurobodさんありがとうございます。
質問はVBAのコードを知りたかったんです。

お礼日時：2017/06/04 09:14