Office関連

ガイドを追加するPowerPointマクロ

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

PowerPointGuides_01

もちろん、下記のようにガイドを削除することもできます。

Public Sub Sample2()
  Application.ActivePresentation.Guides(3).Delete
End Sub

マクロでガイドを追加する機会もなかなか無いかもしれませんが、“一定間隔で格子状にガイドを追加したい”(格子状にガイドを追加するPowerPointマクロ 参照)、といったときは役に立つかもしれません。

2つの文書を比較するWordマクロ前のページ

格子状にガイドを追加するPowerPointマクロ次のページ

関連記事

  1. Office関連

    Adobe Readerを利用してPDFファイルのページ数を取得するVBAマクロ

    mougの回答用に書いたコードです。mougは半年でログが消えてし…

  2. アイコン一覧

    Office 365アイコン(imageMso)一覧(D)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  3. Office関連

    Evernote Cloud SDKを使ったVBAマクロ

    3年ほど前にEvernote for Windowsを操作するVBAマ…

  4. Office関連

    Excel Services JavaScript APIを試してみました(1)

    前回の記事で紹介した「ExcelMashup.com」、このサイトによ…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP