動作検証バージョン：Windows版PowerPoint（バージョン1907 ビルド11901.20218）
「PowerPoint VBA Table 文字列 上下中央揃え」
という検索キーワードで、このサイト『インストラクターのネタ帳』へアクセスがありました。
表内文字列を（左右の）中央揃えにするPowerPointマクロを既にご紹介しています。
［スポンサードリンク］
表内文字列をすべて上下中央揃えにするサンプル
上下中央揃えにする場合は、以下のようなコードです。
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
End 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 _
.VerticalAnchor = msoAnchorMiddle
Next c
Next r
End Sub
上記のSubプロシージャを実行すると、アクティブプレゼンテーション先頭スライドの、2つ目のShape内に存在する表の、全文字列が上下中央揃えになります。
上下方向はTextFrame.VerticalAnchor
上記のSubプロシージャのとおり上下方向の配置は、TextFrameオブジェクトのVerticalAnchorプロパティで取得・設定できます。
MsoVerticalAnchor列挙型として定義されているmsoAnchorMiddle（実際の値は3）を指定すれば、
上下中央になります。
［スポンサードリンク］
Home » パワーポイントマクロ・PowerPoint VBAの使い方 » 表・テーブル » PowerPoint VBAで表内文字列を上下中央に
