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の使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Excel VBA経験者の方に向けて、Word VBAの基本をキンドル本にしました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記のExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓


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

検索


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

.