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関連

    Gmail APIを使ってメール送信するVBAマクロ

    「「Gmail API」β版公開、連動アプリ開発を支援」にもあるように…

  2. Office アドイン

    Office アドインの概要と開発方法を学ぶための自習書

    2018年10月27日(土)、品川の日本マイクロソフト本社で「2018…

  3. Office関連

    JPEG画像の回転情報を変更するVBAマクロ

    mougに「マクロでJPEG画像のExif(Orientation)を…

  4. Office関連

    メモ帳だけでOutlook用アドインを作ってみる。

    「SharpDevelopでExcel用COMアドインを作成する方法」…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP