これ便利なのでさっそく改造してみました！
私はPowerPointで資料を作成するときにガイドを使っています。
Microsoft MVP for PowerPoint の河合さん の以下の書籍を拝読してからずっと使っています。
- すごプレ/青志社
- ￥1,890
- Amazon.co.jp
この本で、スライドのアニメーション効果以外の部分で印象に残っている2点。そのうちの一つが、ガイドの使い方です。
P.74に魔法のガイドラインとして外枠、中心線、三分割線の3種類のガイドラインを作成する考え方が紹介されており、さらにその細かな値まで示されています。デザインって感性だけではなく理論も必要なんだな、そしてそれは数値化されうる（→私も使える）のか、という発見がありました。
これは、河合さんのブログ記事「美しいスライドデザインのためのグリッドシステム。 」でも紹介されていますからご覧ください。
ちなみに、印象に残ったもう一つは、P.70とP.71のクイックアクセスツールバーとリボンのカスタマイズです。
画面を広く使うためにはクイックアクセスツールバーのカスタマイズ は必須だと思い私も使っています。
河合さんも同じように使われていて、「やっぱり他の業界でも同じか」と感じたのでした。
というわけで、きぬあささんのマクロと河合さんの具体的な使い方を組み合わせてマクロを作成してみました。
ガイドを調整するの面倒なので、これは非常に便利です。
▼このマクロでできること
標準（4:3）とワイド画面（16:9）の場合に魔法のガイドラインを追加します。
これはデフォルトの値になっている場合にのみ動作します。
ユーザー設定で比率だけ対応していても動作しません。
以下の2つのスライドサイズの場合にだけ対応しています。
4:3の画面
16:9の画面
こんな感じになります。
▼マクロの解説
それぞれ、縦のガイドラインと横のガイドラインを描いています。
ガイドラインを描く前に、現在描かれているガイドラインをいったん消します。
それが赤文字部分の処理です。これはきぬあささんのコードを借用させていただきました。
最後に、青文字部分でガイドを表示するよう命令しています。
▼マクロ
Sub 魔法のガイドライン()
With Application.ActivePresentation
Select Case .PageSetup.SlideSize
Case ppSlideSizeOnScreen '標準（4:3）
DelAllGuides
.Guides.Add ppHorizontalGuide, 15
.Guides.Add ppHorizontalGuide, 185
.Guides.Add ppHorizontalGuide, 270
.Guides.Add ppHorizontalGuide, 355
.Guides.Add ppHorizontalGuide, 525
.Guides.Add ppVerticalGuide, 20
.Guides.Add ppVerticalGuide, 246
.Guides.Add ppVerticalGuide, 360
.Guides.Add ppVerticalGuide, 474
.Guides.Add ppVerticalGuide, 700
Case ppSlideSizeOnScreen16x9 'ワイド画面（16:9）
DelAllGuides
.Guides.Add ppHorizontalGuide, 15
.Guides.Add ppHorizontalGuide, 140
.Guides.Add ppHorizontalGuide, 202.5
.Guides.Add ppHorizontalGuide, 265
.Guides.Add ppHorizontalGuide, 390
.Guides.Add ppVerticalGuide, 20
.Guides.Add ppVerticalGuide, 246
.Guides.Add ppVerticalGuide, 360
.Guides.Add ppVerticalGuide, 474
.Guides.Add ppVerticalGuide, 700
Case Else 'その他
'何もしない
End Select
End With
'ガイドの表示
Application.DisplayGuides = True
End Sub
Private Sub DelAllGuides()
'表示中のプレゼンテーションのガイドをすべて削除する
Dim i As Long
With Application.ActivePresentation
If .Guides.Count > 0 Then
For i = .Guides.Count To 1 Step -1
.Guides(i).Delete
Next
End If
End With
End Sub
▼関連記事
【パワポ】魔法のガイドラインを引くマクロ（その２） （改良してこんなふうになりました！）
美しいスライドデザインのためのグリッドシステム。 （パワポ部）
ガイドを追加するPowerPointマクロ （初心者備忘録）
格子状にガイドを追加するPowerPointマクロ （初心者備忘録）
クイックアクセスツールバーのカスタマイズ