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

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

対象: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 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

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

「Shapeオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.