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 アドイン

    [Office用アプリ]第一回 Apps for Office 勉強会で登壇しました。

    19日(金)に第一回 Apps for Office 勉強会が東京で開…

  2. Office関連

    マクロでリボンを最小化する。

    mougの回答用に書いたコードです。忘れないうちにメモ。・…

  3. Office関連

    WordBasicマクロの資料

    Word 97でVBA機能が搭載される以前のWordでは、WordBa…

  4. Office関連

    VALUE DOMAINで管理しているドメインをOffice 365で使用する。

    Office 365をセットアップすると設定される初期ドメイン「onm…

  5. Office関連

    指定したスライドにユーザー設定レイアウトを適用するPowerPointマクロ

    PowerPointにはオリジナルのレイアウト(ユーザー設定レイアウト…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

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

Translate

最近の記事

アーカイブ

PAGE TOP