テキストボックス内の文字列を左揃えにするPowerPointマクロ

「powerpoint vba テキストボックス 左揃え」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

テキストボックス内の文字列を左揃えにするVBA（Visual Basic for Applications）のコードを探している方による検索でしょうか。

参考になりそうなマクロを2つご紹介しておきましょう。

アクティブスライドのテキストボックス内文字列を左揃えにするサンプルマクロ

ひとつ目は、アクティブなスライド上に存在するテキストボックス内の文字列を左揃えにするマクロです。

上記のマクロで利用しているオブジェクトモデルの階層関係は下図のとおりです。

基本的な考え方は決して難しくありませんが、階層関係が深いところだけが難点でしょう。

アクティブなスライド上に存在するすべてのShapeをFor Each～Nextループで調べて、
　For Each shp In _
　ActiveWindow.Selection.SlideRange.Shapes

もしもShapeがテキストボックスだったときに、
　　If shp.Type = msoTextBox Then

文字列を左揃えにしています。
　　　shp.TextFrame.TextRange _
　　　　.ParagraphFormat.Alignment = ppAlignLeft

アクティブなプレゼンテーションの全テキストボックス内文字列を左揃えにするサンプルマクロ

もうひとつは、アクティブなプレゼンテーションファイル上のすべてのスライド上に存在する、すべてのテキストボックス内の文字列を左揃えにするマクロです。

こちらのオブジェクトモデルの階層関係は下図のとおりです。

Shapesコレクションオブジェクト以下は、先のマクロとまったく同じです。

アクティブなプレゼンテーションの、すべてのSlideをFor Each～Nextループで処理して、
　For Each sld In ActivePresentation.Slides

そのループの中に、先のマクロと同じく全Shapeに対するFor Each～Nextループがあり、
　　For Each shp In sld.Shapes

先のマクロと同じくテキストボックスだった場合に、左揃えに設定しています。
　　　If shp.Type = msoTextBox Then
　　　　shp.TextFrame.TextRange _
　　　　　.ParagraphFormat.Alignment = ppAlignLeft
　　　End If