Home » パワーポイントマクロ・PowerPoint VBAの使い方 » 表・テーブル » 表内文字列を中央揃えにするPowerPointマクロ

表内文字列を中央揃えにするPowerPointマクロ

対象：PowerPoint 2010, PowerPoint 2013, Windows版PowerPoint 2016

「vbs powerpoint 表フォントセンタリング」
という検索キーワードで、アクセスがありました。

PowerPointの、表内の文字列をセンタリング（中央揃え）する、VBScriptを探していらした方による検索でしょう。

PowerPointの、表内文字列を操作するオブジェクトモデルは階層が深いので、PowerPoint VBAのコードをまずは確認することを、強くおすすめします。

［スポンサードリンク］

表内文字列をすべて中央揃えにするサンプルマクロ

以下のSubプロシージャを実行すると、アクティブプレゼンテーション先頭スライドの、2つ目のShape内に存在する表の、全文字列が中央揃えになります。

Sub 表内文字列をすべて中央揃えにする()
　With ActivePresentation.Slides(1).Shapes(2).Table

　　Dim r As Long, c As Long
　　For r = 1 To .Rows.Count
　　　For c = 1 To .Columns.Count

　　　　.Cell(r, c).Shape.TextFrame _
　　　　　　.TextRange.ParagraphFormat.Alignment _
　　　　　　= ppAlignCenter

　　　Next c
　　Next r

　End With
End Sub

テーブル内文字列は階層が深い

表の行に対するFor～Nextループの中で、
　　For r = 1 To .Rows.Count

列に対するFor～Nextループを回します。
　　　For c = 1 To .Columns.Count

この2重ループの中で、TableオブジェクトのCellメソッドに行番号と列番号を指定して、各セルを表すCellオブジェクトを取得して、文字列を中央揃えにします。
　　　　.Cell(r, c).Shape.TextFrame _
　　　　　　.TextRange.ParagraphFormat.Alignment _
　　　　　　= ppAlignCenter

階層が深いので、大きく3つに分解して理解しましょう。

1つは、表を表すTableオブジェクトを取得する部分、
　　With ActivePresentation.Slides(1).Shapes(2).Table

つづいて、Table内の各セルを取得する部分、
　　　Dim r As Long, c As Long
　　　For r = 1 To .Rows.Count
　　　　For c = 1 To .Columns.Count
　　　　　.Cell(r, c).Shape

最後に、各セル内の文字列を中央揃えにする、
　　　　　.Cell(r, c).Shape.TextFrame _
　　　　　　　.TextRange.ParagraphFormat.Alignment _
　　　　　　　= ppAlignCenter
の部分です。

Shape.TextFrame.TextRangeの部分は、表以外の文字列に対する処理でも頻出するオブジェクト式でもあります。