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

    指定したセル範囲をUTF-8やEUC-JP等のテキストファイルとして出力するExcelマクロ

    ExcelファイルをUTF-8のテキストファイルで出力する必要があった…

  2. Office関連

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

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

  3. Office関連

    Officeアプリケーションの「最近使用したファイル」を削除するVBScript

    WordやExcel等のOfficeアプリケーションでは、下記サイトに…

  4. Office関連

    文字列を指定した文字数で分割するVBA関数

    "01234567890123456789012…"というような長い文…

  5. アイコン一覧

    Office 2013 アイコン一覧(A)

    ・Office 2013 アイコン一覧 NUM…

  6. Office関連

    コンテンツコントロールに外部XMLのデータをマップするWordマクロ

    Word 2007で追加された機能「コンテンツコントロール」を使うと外…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP