Home » エクセルマクロ・Excel VBAの使い方 » 図形内文字列 » VBAで図形内テキスト・文字列を中央に配置する

VBAで図形内テキスト・文字列を中央に配置する

対象：Excel2007, Excel2010, Excel2013

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

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

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

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

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

Sub アクティブシート上の図形内テキストを中央揃えに()
　Dim shp As Shape
　For Each shp In ActiveSheet.Shapes
　　With shp.TextFrame
　　　.HorizontalAlignment = xlHAlignCenter
　　　.VerticalAlignment = xlVAlignCenter
　　End With
　Next
End Sub

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

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

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

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

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

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

Sub アクティブブック上の図形内テキストを中央揃えに()
　Dim ws As Worksheet
　Dim shp As Shape

　For Each ws In ActiveWorkbook.Worksheets
　　For Each shp In ws.Shapes
　　　With shp.TextFrame
　　　　.HorizontalAlignment = xlHAlignCenter
　　　　.VerticalAlignment = xlVAlignCenter
　　　End With
　　Next shp
　Next ws
End Sub

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

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

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