PowerPoint VBA 背景の書式設定が動かない

Question

Win10 Office365 PowerPointです．
適当なプレゼンテーションに対して，

Sub test()
    ActivePresentation.Slides(1).Background.Fill.Solid
    ActivePresentation.Slides(1).Background.Fill.ForeColor.RGB = RGB(0, 100, 0)
End Sub

を実行しても変化しませんが，手動で適当に背景設定をいじってあげた後に実行すると背景が変わります．

どなたか原因・対処法をご教示いただければ幸いです．

Answer 1

背景色の変更方法が参考サイトに記載されていました。
あまりコードの意味は理解していませんが FollowMasterBackground を msoFalse に設定すると背景色が反映するようです。

Sub test()
    ActivePresentation.Slides(1).FollowMasterBackground = msoFalse   ' 追加
    ActivePresentation.Slides(1).Background.Fill.Solid
    ActivePresentation.Slides(1).Background.Fill.ForeColor.RGB = RGB(0, 100, 0)
End Sub

＜参考＞
■ Slide.FollowMasterBackground プロパティ (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.slide.followmasterbackground
■ Change Background colour of slides using VBA
http://www.vbaexpress.com/forum/showthread.php?30985-Change-Background-colour-of-slides-using-VBA

Comments

[cx20]

補足です。こちらに解説がありました。
■ VBAでスライドの背景色を指定する
https://www.relief.jp/docs/powerpoint-vba-slide-background.html

[prof_n_hk]

なるほど，FollowMasterBackgroundというプロパティがあったのですね！
ありがとうございます！！