Office関連

格子状にガイドを追加するPowerPointマクロ

前回の記事で、PowerPoint 2013で追加されたGuide、Guidesオブジェクトを使ってガイドを追加するPowerPointマクロを紹介しました。

今回は前回のマクロを発展させた、格子状にガイドを追加するマクロを紹介します。

Option Explicit

Public Sub Sample()
  SetGridGuides 20
End Sub

Public Sub SetGridGuides(ByVal interval As Single)
'格子状にガイド設定
  Dim h As Single, w As Single
  Dim i As Single, j As Single
  
  DelAllGuides '事前にガイド削除
  With Application.ActivePresentation.PageSetup
    h = .SlideHeight
    w = .SlideWidth
  End With
  With Application.ActivePresentation
    For i = 0 To h Step interval
      .Guides.Add ppHorizontalGuide, i
    Next
    For j = 0 To w Step interval
      .Guides.Add ppVerticalGuide, j
    Next
  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

上記マクロを実行すると、下図のように格子状にガイドが表示されます。

SetGridGuides_01

グリッドレイアウトのデザインを組むときなんかに使えそうなマクロです。

・・・が、知っての通り、グリッド機能はPowerPointの標準機能として用意されています。

・グリッド線とガイドを表示および使用する
http://office.microsoft.com/ja-jp/HA010235262.aspx

上記のようなマクロを使う利点としては、

・垂直(水平)方向だけグリッド表示できる。
・グリッド幅を自由に設定できる。
・線の色を自由に設定できる。

といったところでしょうか。
標準機能よりも自由度は高いので、どこかで使える場面はあるかもしれません。

ガイドを追加するPowerPointマクロ前のページ

Google Apps ScriptでVoiceText Web APIを呼び出す。次のページ

関連記事

  1. Office関連

    [Win32 API]PowerPointマクロにショートカットキーを割り当てる。

    数日前、“PowerPointだとマクロにショートカットキーを割り当て…

  2. Office関連

    [リボン・カスタマイズ]ユーザー名により表示するメニューを切り替える。

    今回はリボンをカスタマイズして、ファイルを開いたユーザー名によって表示…

  3. Office関連

    漢字かな交じり文をひらがなにするマクロ

    Yahoo!のテキスト解析Web API(ルビ振り)を使用して、漢字か…

  4. Office関連

    ビジネスITアカデミーの無料VBAセミナーに行ってきました。

    Excel MVPの伊藤さんやWord MVPの新田さんのブログ記事で…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

PAGE TOP