Home » Excel VBA Rangeオブジェクト » VBAでセル内文字列を回転する

VBAでセル内文字列を回転する

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

「エクセル 文字 回転 90度 VBA」
といった検索キーワードで時折アクセスがあります。

セルに入力されている文字列をExcel VBAで回転するには、どのようなコードを書けばいいのかを探していらしたのでしょうか。

［スポンサードリンク］

セル内文字列を回転するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブセルの文字列が90度回転されます。

Sub 文字列を90度回転する()
　ActiveCell.Orientation = 90
End Sub

Rangeオブジェクトに用意されているOrientationプロパティに、数値等を設定することで、

セル内の文字列を回転できます。

マクロ記録も利用しましょう

Excelで、選択されているセルの文字列を回転する操作をマクロ記録すると、以下のようなコードができます。

With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 90
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With

先ほどの、

　ActiveCell.Orientation = 90

は、このマクロ記録で作られたコードを参考にしたものです。

Range.Orientationには定数も指定できる

Range.Orientationプロパティには、XlOrientation列挙型に定義されている、

以下のような定数も指定できます。

定数値
xlHorizontal-4128
xlVertical-4166
xlDownward-4170
xlUpward-4171

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » VBAでセル内文字列を回転する

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓
3年前(2021年4月)の
人気記事
1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:IF関数で○○以上××以下という条件を指定する
3位:右から（後から・末尾から）n文字を削除したい
4位:IF関数で空白なら空白にする
5位:COUNTIF関数で「○○以上」「○○以下」の指定
6位:IF関数で空白でない場合・空白でなければの書き方
7位:左から（前から・先頭から）n文字削除する方法



「Excel VBA Rangeオブジェクト」の記事一覧

検索


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

.