動作検証バージョン:Windows 11 Home + 64bit Excel バージョン 2407(ビルド17830.20016クイック実行)ベータチャネル
「vba 選択範囲内で中央」
といった検索キーワードでアクセスがありました。
[セルの書式設定]ダイアログボックス-[配置]タブの[文字の配置]-[横位置]に「選択範囲内で中央」があります。
これをVBAから設定するには、どのようなコードを書けばいいのかを調べていらしたのでしょう。
[スポンサードリンク]
選択範囲内で中央を設定するサンプルマクロ
以下のExcelマクロを実行すると、A1セルに文字列「Hello, World!」が入力され、A1:C1セルの中央に「Hello, World!」が表示されるようになります。
Sub 選択範囲内で中央を設定する()
Range("A1").Value = "Hello, World!"
Range("A1:C1").HorizontalAlignment = xlHAlignCenterAcrossSelection
End Sub
Range("A1").Value = "Hello, World!"
Range("A1:C1").HorizontalAlignment = xlHAlignCenterAcrossSelection
End Sub
サンプルマクロで行っている処理
RangeオブジェクトのHorizontalAlignmentプロパティに、
XlHAlign列挙型に定義されている定数xlHAlignCenterAcrossSelectionを指定することで、
選択範囲内で中央が設定されます。
選択は不要
定数xlHAlignCenterAcrossSelectionに「Selection」という語句が入っていることから、選択しておかないと実行時エラーが発生するような気がしなくもありませんが、大丈夫です。選択は不要です。
選択は不要なのですから、定数名に「Selection」という語句を入れて欲しくなかったな、と私は感じます。
[スポンサードリンク]
- Newer:Excel VBAでテキストボックスのフォントを変更する
- Older:Word VBAで段落の均等割り付けを設定する-.Alignment = wdAlignParagraphDistribute
Home » Excel VBA Rangeオブジェクト » VBAを使って選択範囲内で中央を設定する