タップできるもくじ
CGブロガー
すいみん
Suimin
某美大の油絵科を卒業後、大手CG映像プロダクションに入社。
その後ゲーム業界に転職。
現在は技術系のCGデザイナーをしています。
書籍：Unity デザイナーズ・バイブル
プロフィール詳細はこちら
PowerPointおすすめのマクロのまとめ
実際に使ってみて、便利だったマクロを紹介いたします。
図形を固定するマクロ
どうして図形の固定機能がないのか？不思議ですがよく使うマクロです。
詳細はこちら。
グリッド線にスナップのON/OFFするマクロ
マクロでワンクリックで切り替えできるようにします。
参考 オブジェクトをグリッド線に合わせる設定のオン・オフを切り替えるパワポマクロ:パワーポイントマクロ・PowerPoint VBAの使い方/Presentation・プレゼンテーションインストラクターのネタ帳
Sub グリッド線に合わせる設定のオンオフを切り替える()
With ActivePresentation
.SnapToGrid = Not .SnapToGrid
End With
End Sub
グリッド線の表示のON/OFFするマクロ
マクロでワンクリックで切り替えできるようにします。
参考 PowerPoint VBAでグリッド線表示を切り替える:パワーポイントマクロ・PowerPoint VBAの使い方インストラクターのネタ帳
Sub グリッド線の表示を切り替える()
With Application
.DisplayGridLines = Not .DisplayGridLines
End With
End Sub
複数のデータ（.pptx）を一つにまとめるマクロ
複数のパワポを取りまとめる時に便利です！
複数画像を1スライドずつ入れるマクロ
複数の画像を一気に挿入した時に便利です。
マクロから画像を選択、拡張子も選択すればOKです。
画像を置換するマクロ
画像を差し替えるマクロです。
ここを起点に改良すると良さそうです。
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:UsersnamaeDesktop 1.png", "C:UsersnamaeDesktop 2.png", "C:UsersnamaeDesktop 3.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
マクロのショートカット（アドイン）化
- CallProcAddin.ppamとmacrodat.txtを入れてアドイン登録
場所はC:Usersユーザー名AppDataRoamingMicrosoftAddIns - マクロの入ったデータを名前を付けて保存から.ppamで保存してこちらもアドイン登録
- macrodat.txtに読み込みたいアドインを入力
lockShapes.ppam;図形のロック;lockShapes
unlockShapes.ppam;図形のロック解除;unlockShapes
gridSnap.ppam;スナップのON/OFF;gridSnap
displayGrid.ppam;グリッドのON/OFF;displayGrid - 上部のクイックアクセスツールバーからマクロを起動
ちなみにアドイン化すると使えなくなるマクロもあるので次のカスタムメニュ化をおすすめします。
好きなマクロを並べたカスタムタブメニューの作成方法
よく使うマクロはアドイン化していたのですが、たまにアドインにすると使えないマクロがあったので、違う方法を模索してみました。
※このとき**UFT-8**で保存しないと、最後にエラーを吐くので注意！
できたら、customUIというフォルダを作成してその中にcustomUI.xmlを入れて、そのフォルダごと解凍したパワポデータの直下に入れます。
最後に保存して、オリジナルの.relsへ上書き保存します。**UFT-8**で保存しないと、最後にエラーを吐くので注意！
開いて、タブメニューを確認して完了です。
以上で、好きなマクロが簡単に使えるパワポファイルとして使えます。
まとめです。
よく使うマクロをまとめてみました。便利なので是非一度試してみてください！
パワーポイントに関する参考記事・ツール・書籍のまとめ
パワーポイントに関する記事を下記にまとめました。
パワーポイントのソフトウェア購入
ソフトはAmzonで即購入できます。
パワーポイントが学べるスクール
パワーポイントの参考書籍
見た目をおしゃれかつわかりやすくするための書籍です。
パワーポイントの周辺機器
説明する時にポインターがあると捗ります。
