PowerPointで図形の位置を調整するときに役立つガイド機能(ガイドを表示しよう 参考)ですが、PowerPoint 2013でGuide、Guidesオブジェクトが追加されたことによって、マクロからガイドを追加したり、色を変更したりすることができるようになりました。
Option Explicit Public Sub Sample() With Application .DisplayGuides = True '水平方向のガイド追加 .ActivePresentation.Guides.Add ppHorizontalGuide, 100 '垂直方向のガイドを追加して色設定 .ActivePresentation.Guides.Add(ppVerticalGuide, 100).Color = VBA.RGB(255, 100, 255) End With End Sub
もちろん、下記のようにガイドを削除することもできます。
Public Sub Sample2() Application.ActivePresentation.Guides(3).Delete End Sub
マクロでガイドを追加する機会もなかなか無いかもしれませんが、“一定間隔で格子状にガイドを追加したい”(格子状にガイドを追加するPowerPointマクロ 参照)、といったときは役に立つかもしれません。
この記事へのコメントはありません。