ShapeのHorizontalAlignmentは？？

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2204 ビルド15128.20224 Microsoft Store）

「Excel vba shape HorizontalAlignment」
のような検索で、時折アクセスがあります。

Excel VBAで、図形を表すShapeオブジェクトにHorizontalAlignmentプロパティがある、と考えていた方による検索でしょうか。

ShapeにHorizontalAlignmentはない

Excel VBAのShapeオブジェクトには、文字列の水平方向の配置位置を取得/設定するためのHorizontalAlignmentプロパティはありません。

オブジェクトブラウザーで「HorizontalAlignment」を完全一致検索すると、

上図のとおり複数のオブジェクトにHorizontalAlignmentプロパティがあることを確認できますが、Shapeオブジェクトはヒットしていません。［クラス］列に「Shape」は見当たりません。

拙著『理解するExcel VBA／図形操作の基本』の、「chapter 4. Shape内の文字列を操作する」でも解説しているとおり、Shape内文字列は以下のような階層構造になっています。

Woksheetオブジェクト
　└ Shapeオブジェクト
　　　└ TextFrameオブジェクト
　　　　　└ Charactersオブジェクト

この中でHorizontalAlignmentプロパティが用意されているのは、文字列枠を表すオブジェクトTextFrameです。

具体的なコードを見ましょう。

ActiveSheet.Shapes(1)で取得できる、アクティブシート上の1つ目の図形に文字列を入力しておいて、以下のExcelマクロを実行すると文字列が右揃えに設定されます。

Sub Shape内文字列の水平方向配置を設定する()
　Dim shp As Shape
　Set shp = ActiveSheet.Shapes(1)
　shp.TextFrame.HorizontalAlignment = xlHAlignRight
End Sub

HorizontalAlignmentプロパティが用意されているのは、Shapeの子オブジェクトであるTextFrameです。

理解するExcel VBA／図形操作の基本

伊藤潔人 2021-11-28

最終更新日時：2022-05-31 04:15

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

3年前(2021年4月)の
人気記事

「Shapesコレクション・Shapeオブジェクト」の記事一覧