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

    右クリックから図形の配置 for Office 2013

    HPの掲示板に"右クリックから「配置」を実行できないか?"という質問が…

  2. Office関連

    目次を更新するWordマクロ

    文書の目次を更新するにはTableOfContentsオブジェクトのU…

  3. Office関連

    Google Docs APIを使ってGoogle ドキュメントを操作するVBAマクロ

    前回の記事で新しく追加されたGoogle Docs APIを紹介しまし…

  4. Excel

    [VBA]DataObjectを使ったクリップボード操作が上手くいかない場合の対処法

    VBAマクロからクリップボードを操作する場合、定番となっているのがDa…

  5. Office アドイン

    [Office用アプリ]User Agent他を調べてみました。

    ふと気になったので、Office 用アプリをローカル環境にインストール…

  6. Office関連

    選択範囲内にある特定のフォントの文字列を別のフォントに置き換えるWordマクロ

    選択範囲内で「MS ゴシック」が使われている文字列のフォントを「MS …

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP