Office関連

選択中の図形の書式設定を一括変更するPowerPointマクロ

PowerPointで複数の図形の書式を一つずつ変更するのが面倒だったので書いたマクロです。
細かいエラー処理はしていません。

Option Explicit

Public Sub SetShapeStyle()
  Dim srng As PowerPoint.ShapeRange
  Dim shp As PowerPoint.Shape
  
  On Error Resume Next
  Set srng = Application.ActiveWindow.Selection.ShapeRange
  On Error GoTo 0
  If Not srng Is Nothing Then
    For Each shp In srng
      With shp
        On Error Resume Next
        .Fill.Solid
        .Fill.Visible = False '塗りつぶしなし
        On Error GoTo 0
        If .TextFrame2.HasText = True Then
          .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
        End If
        With .Line
          .Weight = 1
          .ForeColor.RGB = RGB(0, 0, 0)
          .DashStyle = msoLineSolid
          .Style = msoLineSingle
        End With
      End With
    Next
  End If
End Sub

図形を選択した状態でマクロを実行すると、一瞬で書式が変更されます。

コードを変えれば好きな書式にすることもできるので、大量の図形を扱う機会が多い方は是非お試しください。


2017/5/25 追記:
どのファイルを開いているときでもマクロを呼び出したいときは、下記記事の方法をご参照ください。

YouTubeの「歌ってみた」動画を非表示にするMicrosoft Edge拡張機能前のページ

Microsoft Graph SDK for PHPを使ったAPIの呼び出しサンプル次のページ

関連記事

  1. Office関連

    Word 2013とWord 2010のダミー文章の比較

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

  2. Office関連

    Evernote Cloud SDKを使ったVBAマクロ

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

  3. Office関連

    VBA Word 97/98ハンドブックを購入しました。

    ブックオフにあった「VBA Word 97/98ハンドブッ…

  4. アイコン一覧

    Office 2013 アイコン一覧(A)

    ・Office 2013 アイコン一覧 NUM…

  5. Office関連

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

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

コメント

  • コメント (0)

  • トラックバックは利用できません。

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

PAGE TOP