【PowerPoint(VBA)】パワポ資料のフォントを一括変換する方法(グループ化図形対応)

2019-03-12 12:22:46 659
VBA

はじめに

あまり需要はないかもしれないけど、官公庁相手に仕事をしていると、どうしても「パワポのフォントを前の資料に統一してください」といったくだらないやり取りが発生する。
確かにフォントがバラバラなのは気持ち悪いが、それは資料の中で統一されていれば良い話であって、
上司の趣味とか、担当者の趣味によって変更が生じることに、疑問を感じる。

それはさておき、テキストボックスと表、図形、グループ内図形をあらいざいらいフォント変更しちゃうVBAを書いたので、メモ。

フォントを一括変更するマクロ

ppt vbaファイル

Sub フォントの一括変換()
'Const FontName = "MSP ゴシック"
Const FontName = "Meiryo UI"

For Each sld In Application.ActivePresentation.Slides
For Each shp In sld.Shapes
'テキストボックス
If shp.HasTextFrame Then
With shp.TextFrame.TextRange.Font
.Name = FontName
.NameFarEast = FontName
End With
End If
'テーブル内変換
If shp.HasTable Then
For Each clm In shp.Table.Columns
For Each cl In clm.Cells
With cl.shape.TextFrame.TextRange.Font
.Name = FontName
.NameFarEast = FontName
End With
Next 'cl
Next 'clm
End If 'HasTable
'グループの場合
If shp.Type = msoGroup Then
For Each gsh In shp.GroupItems
If gsh.HasTextFrame Then
With gsh.TextFrame.TextRange.Font
.Name = FontName
.NameFarEast = FontName
End With
End If 'HasTextFrame
Next 'gsh
End If
Next
Next
End Sub


@shepherdstar52
2019-03-11 14:29:39
「デザイン」をはき違えている人が多い。
動物界において「デザイン」とは「それっぽくおしゃれに見せること」ではない。
「デザイン」とは「わかりやすさ」。
パワポの書体やフォント選びでかっこつけても意味はない。
「わかりやすい」ことが一番かっこいい。

@omuraisu_sukija
2019-03-09 17:35:17
中学、高校のとき作ったパワポ出てきたけど、厨二病臭いし、フォントバラバラだし中央揃えしてないし、見にくいしで鳥肌立ちすぎて鳥になるわ

@KJRY0
2019-03-09 15:57:05
どっちも書きます。でも丸字の方が好きです。

関係ない話ではありますが、パソコンだとパワポの標準設定の游ゴシックにはお世話になっています。後は源界明朝とか癖のあるフォントとかも好きです。

#peing #質問箱 https://t.co/u5ndzJ7vrx

@Zetglan
2019-03-08 03:54:46
パワポでCtrl+Shift+Zするとフォントが変わるだけで思考停止する

@hosaki_mennma
2019-03-07 15:27:53
せっかくエクセル側で図中のフォントサイズを見やすく揃えても、パワポに貼り付けたら「小さすぎて見えなぁい!(ハズキルーペ)」みたいなことになって、そのたびに少しずつ俺の心が死んでいく。

@nagi_0715
2019-03-06 13:56:42
でもねwordとかパワポってMacかWindowsかと開くバージョンでぜんっっっっぜん違う配置とフォントと色になってぐちゃぐちゃになってしまうからできればPDFでください今日のお客様

@nanshi_200x
2019-03-06 11:29:56
パワポで作ったの?せめてフォントくらい考えれば良いのに

関連記事