【PowerPoint】おすすめのマクロ６選とショートカット（アドイン）の作成方法

PowerPointおすすめのマクロのまとめ

実際に使ってみて、便利だったマクロを紹介いたします。

図形を固定するマクロ

どうして図形の固定機能がないのか？不思議ですがよく使うマクロです。
詳細はこちら。

あわせて読みたい

【PowerPoint】選択した図形をロックする方法パワポで資料作成している時に図形を選択してしまったズレてしまう！なんてことはあるあるですよね。実はパワポで図形をロックする方法がありますので、そのやり方を紹...

グリッド線にスナップのON/OFFするマクロ

マクロでワンクリックで切り替えできるようにします。

Sub グリッド線に合わせる設定のオンオフを切り替える()
With ActivePresentation
.SnapToGrid = Not .SnapToGrid
End With
End Sub

グリッド線の表示のON/OFFするマクロ

マクロでワンクリックで切り替えできるようにします。

Sub グリッド線の表示を切り替える()
With Application
.DisplayGridLines = Not .DisplayGridLines
End With
End Sub

複数のデータ（.pptx）を一つにまとめるマクロ

複数のパワポを取りまとめる時に便利です！

あわせて読みたい

【PowerPoint】複数のデータ（.pptx）を一つのファイルに結合する方法複数のパワポのデータをまとめたい時はないでしょうか？本記事では複数のデータ（.pptx）を一つにまとめる方法を紹介します。一枚にまとめて提出する時やまとめて印刷す...

複数画像を1スライドずつ入れるマクロ

複数の画像を一気に挿入した時に便利です。
マクロから画像を選択、拡張子も選択すればOKです。

あわせて読みたい

【PowerPoint】複数の画像を1スライドずつ挿入する方法パワポのデータを改ざん防止や崩れ防止などで画像化する場合に。名前をつけて保存でスライドの画像化をして、下記のマクロを実行して、画像をまとめてインポートしてや...

画像を置換するマクロ

画像を差し替えるマクロです。
ここを起点に改良すると良さそうです。

Sub 画像置換()
Dim Pres As Presentation
Dim Sld As Slide
Dim shp As Shape
Dim l As Single
Dim t As Single
Dim h As Single
Dim w As Single
Dim strName As String
'画像のパス
Dim A As Variant
A = Array("C:Users\namae\Desktop1.png", "C:Users\namae\Desktop2.png", "C:Users\namae\Desktop3.png")
Dim idx As Integer
For Each Sld In ActivePresentation.Slides
For Each shp In Sld.Shapes
If shp.Type = msoPicture Then
l = shp.Left
t = shp.Top
h = shp.Height
w = shp.Width
strName = shp.Name
shp.Delete
Set shp = Sld.Shapes.AddPicture(A(idx), msoFalse, msoCTrue, l, t, w, h)
idx = idx + 1
If idx > UBound(A) Then idx = 0
shp.Name = strName
End If
Next shp
Next Sld
End Sub

マクロのショートカット（アドイン）化

1. CallProcAddin.ppamとmacrodat.txtを入れてアドイン登録
   場所はC:Users\ユーザー名\AppData\Roaming\Microsoft\AddIns
2. マクロの入ったデータを名前を付けて保存から.ppamで保存してこちらもアドイン登録
3. macrodat.txtに読み込みたいアドインを入力
   lockShapes.ppam;図形のロック;lockShapes
unlockShapes.ppam;図形のロック解除;unlockShapes
gridSnap.ppam;スナップのON/OFF;gridSnap
displayGrid.ppam;グリッドのON/OFF;displayGrid
4. 上部のクイックアクセスツールバーからマクロを起動
   ちなみにアドイン化すると使えなくなるマクロもあるので次のカスタムメニュ化をおすすめします。

好きなマクロを並べたカスタムタブメニューの作成方法

よく使うマクロはアドイン化していたのですが、たまにアドインにすると使えないマクロがあったので、違う方法を模索してみました。

STEP.1

好きなマクロ入りのパワポデータを作成（pptm）

Alt+F11でVBAを起動して好きなマクロを追加していきます。

まとめです。
よく使うマクロをまとめてみました。便利なので是非一度試してみてください！