図形内テキスト・文字列を中央に配置するExcelマクロ

「excel 2010 vba shapes テキストボックス "文字配置"」
「エクセルvba 図形 テキスト 中央」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

Excelで図形内の文字列・テキスト配置を指定する方法、中央に配置するVBA（Visual Basic for Applications）のコードを探している方による検索でしょうか。

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

アクティブスライド上の図形内の文字列を中央に配置するサンプルマクロ

以下のようなマクロで、アクティブなシート上の、図形内の文字列を中央に配置することができます。

アクティブシート上の、全Shapeに対してループを回して、
　For Each shp In ActiveSheet.Shapes

各図形のTextFrameオブジェクトの、
　　With shp.TextFrame

水平方向の配置を中央に、
　　　.HorizontalAlignment = xlHAlignCenter

垂直方向の配置を中央に指定しています。
　　　.VerticalAlignment = xlVAlignCenter

アクティブブック上の図形内の文字列を中央に配置するサンプルマクロ

以下のようなマクロで、アクティブなブックの、全ワークシートの、図形内の文字列を中央に配置することができます。

アクティブなブックの、全ワークシートにループを回して、
　For Each ws In ActiveWorkbook.Worksheets

各シートで、全Shapeに対してループを回して、
　　For Each shp In ws.Shapes

TextFrameオブジェクトの、水平方向・垂直方向を中央に設定しています。
　　　With shp.TextFrame
　　　　.HorizontalAlignment = xlHAlignCenter
　　　　.VerticalAlignment = xlVAlignCenter