対象：PowerPoint2003, PowerPoint2007, PowerPoint2010
「パワポ タイトルの最初の文字だけ大きくする」
という検索が行われていました。
PowerPointでタイトルの最初の文字・先頭の一文字だけを大きくする方法を探している方による検索です。
［スポンサードリンク］
タイトルプレースホルダの一文字目を大きくするサンプルマクロ
ここで「タイトル」と表現されているのが、タイトルスライドなのか、タイトルプレースホルダなのかはっきりしませんが、タイトルプレースホルダの一文字目だけを大きくするマクロを作成してみました。
Sub タイトルプレースホルダの一文字目だけ大きくする()
Dim sld As Slide
For Each sld In ActivePresentation.Slides
With sld.Shapes
If .HasTitle Then
.Title.TextFrame.TextRange _
.Characters(Start:=1, Length:=1).Font.Size = 72
End If
End With
Next
End Sub
Dim sld As Slide
For Each sld In ActivePresentation.Slides
With sld.Shapes
If .HasTitle Then
.Title.TextFrame.TextRange _
.Characters(Start:=1, Length:=1).Font.Size = 72
End If
End With
Next
End Sub
上記のマクロを実行すると、アクティブなプレゼンテーションファイルの全スライドのタイトルプレースホルダの一文字目だけが72ptに設定されます。
サンプルマクロの解説
アクティブなプレゼンテーションファイルの全スライドをFor Each～Nextループで回して、
For Each sld In ActivePresentation.Slides
もしタイトルプレースホルダがあったら
With sld.Shapes
If .HasTitle Then
タイトルの1文字のフォントを72ptに
.Title.TextFrame.TextRange _
.Characters(Start:=1, Length:=1).Font.Size = 72
設定しています。
最終更新日時：2020-04-07 06:32
［スポンサードリンク］
Home » パワーポイントマクロ・PowerPoint VBAの使い方 » プレースホルダー » タイトルの一文字目だけ・先頭の最初の文字だけ大きくするパワポマクロ
