【Powerpoint】全ページ一括でのグレースケール設定マクロ

Sub GrayScale()
 Dim sld As Slide
 Dim i As Long
  For Each sld In ActivePresentation.Slides
   With sld
    For i = .Shapes.Count To 1 Step -1
     If .Shapes(i).BlackWhiteMode <> msoBlackWhiteGrayScale Then
     .Shapes(i).BlackWhiteMode = msoBlackWhiteGrayScale
     End If
    Next i
   End With
  Next sld
End Sub

ppamファイルの格納場所及び、クイックアクセスツールバーへの当該マクロ機能を常駐させる方法についてはこちらのブログ記事にて紹介していますのでご参照ください。

PowerpointにはExcelで言うところの「個人用マクロブック」に相当するものが存在せず、どのPowerpointファイルを開いても同じマクロを使うということがExcelの様に簡単には出来ません。ただし、Powerpointでも一度だけ設定してしまえば、あとはどのPowerpointファイルを開いても、いつでも「クイックアクセスツールバー」上に上記のマクロが実行できるボタンを表示し続けることができます。

※なお、PC環境等の差異に伴う動作保証等は致しかねますことをご了承ください。

twitter : @Logicalkobo(こーぼー@外資系戦略コンサル)
ブログ:https://www.kobo.work/(弘法の筆謬り)

この記事が気に入ったら、サポートをしてみませんか?気軽にクリエイターを支援できます。

2
外資系の戦略コンサルタントです。Twitter : @Logicalkobo
コメントを投稿するには、 ログイン または 会員登録 をする必要があります。