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 追記:
どのファイルを開いているときでもマクロを呼び出したいときは、下記記事の方法をご参照ください。

関連記事

  1. Office関連

    「EXCEL VBA 業務自動化 仕事の効率を劇的に上げるノウハウ」レビュー

    ※ 下記レビューはあくまでも個人的な感想です。2015年4…

  2. Office関連

    [雑感]Office 365 Soloに向く人、向かない人

    ここ一週間ほどOffice 365 Soloを触ってみて、ある程度のこ…

  3. アイコン一覧

    Office 365アイコン(imageMso)一覧(X,Y,Z)

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

  4. Office関連

    「カレンダーから日付入力」をUserFormに移植してみました。

    前回の記事では、Office 用アプリ「カレンダーから日付入力」と同様…

  5. Office アドイン

    [Office用アプリ]アプリ開発コンテスト・受賞者発表

    以前書いた記事でお知らせしていた「Apps for Office アプ…

  6. Office関連

    Word文書をMicrosoft SwayのWebページに変換する方法

    先月のアップデート(バージョン 1812(ビルド 11126.2018…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP