「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 shp
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
Home » エクセルマクロ・Excel VBAの使い方 » Shapeオブジェクト » 図形内テキスト・文字列を中央に配置するExcelマクロ
TrackBack:0
- TrackBack URL
