テキストボックスを180度回転して文字を倒立させるVBA

テキストボックスに入力した文字列を180度回転させるVBAコードを紹介します。
振替用紙をプリンター印字するための必要なテクニックです。

こんにちは、じゅんぱ店長（@junpa33）です。

今回も、180度回転表示方法についてです。

「文字列（文章）」を表示して、180度回転させる方法です。

今回の回転方法は、「数字」の時とは全く違った方法になります。

「文字列（文章）」を180度回転させる方法は、先回説明した数字の場合とは全く異なります。

結構、強引に回転させる的な方法になります。

テキストボックスを180度回転させるという方法です。

先に前回の記事の読み返しをするには、こちら↓になります。

2020年4月17日「数字」を180度回転表示させるVBAコード

振込用紙印字の記事編成

振込用紙印字の使い方とダウンロード
- 「ゆうちょ払込取扱票印字」エクセルVBAソフトの取説と無料DL

振込用紙印字の作成手順

コンテンツ

テキストを180度回転させる方法を考える

今回は、セルに入っている文字列（文章）を180度回転させるということですが、

先回の記事でも書きましたように、そのまま回転させようとすると90度回転が限界です。

先回の「数字」と同じ方法で回転させると”横書きが縦書き”になってしまいます。

解決策として

今回は、テキストボックスを使って180度回転表示させることにします。

例えば手動で、

エクセルでテキストボックスを挿入するには、

「挿入」タブから「テキストボックス」で「横書きテキストボックス」を選択します。

「横書きテキストボックス」についているハンドルを掴んで180度回転させます。

これを、VBAコードを使って自動化していきます。

そのVBAを実行すると、表示が180度回転しているという訳です。

目次へ戻る

文字列を180度回転させるVBA作成

それぞれ文字列になるデータの操作は、各項目セルごとに同じになります。

今回作業するシートのセル内容はこのようになっています。

今回の目標は別のシートに移してこのように180度回転表示します。

テキストボックスを挿入する

「入力シート」のデータ入力欄、セルC5に入っている「加入者名」で説明をしていきます。

まず、ここのデータを新しく挿入したテキストボックスに移します。

プロシージャー名を「テキスト反転加工ａ」とします。

「加入者名」の入力セルは、セルC5からP15までの連結セルになっています。

連結セルのデータを指定するには、連結セルの左上のセルを指定します。

テキストボックスを追加（サイズを調整）し、Textを指定、外枠を非表示にします。

VBA

Sub テキスト反転加工a()
    Dim TVa As Variant
        Worksheets("入力シート").Select
        TVa = Range("C5").Value
        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
                        80.25, 568.5, 200, 28).Select
        With Selection.ShapeRange
            .TextFrame2.TextRange.Characters.Text = TVa
            .Line.Visible = msoFalse
        End With

2020年12月4日 With～End Withの使い方。VBAコードを簡潔に記述する

テキストボックスを180度回転させる

上のVBAコードで作成したテキストボックスを切り取って「印刷用テンプレート」シートに張り付けます。

張り付ける場所は２か所です。貼り付け後、180度反転をします。

また貼り付けスペースの大きさが違いますのでサイズ調整をします。

VBA

        Selection.Cut
        Worksheets("印刷用テンプレート").Select
        Range("W11").Select
        ActiveSheet.Paste
        Selection.ShapeRange.IncrementRotation 180
        Range("C10").Select
        ActiveSheet.Paste
        With Selection.ShapeRange
            .TextFrame.AutoSize = True
        End With
        Selection.ShapeRange.IncrementRotation 180
        Worksheets("入力シート").Select
        Range("A1").Select
End Sub

全ての記入項目を180度反転移動する

それぞれの項目について、

「加入者名」についてのプロシージャー名は「テキスト反転加工ａ」

「通信欄」についてのプロシージャー名は「テキスト反転加工ｂ」
「ご依頼人　おところ」についてのプロシージャー名は「テキスト反転加工ｃ」
「ご依頼人　おなまえ」についてのプロシージャー名は「テキスト反転加工ｄ」

とします。

「ご依頼人　お名前」の受領書側の貼り付けサイズは、貼り付け位置のセルの大きさを基にテキストボックスの大きさを指定しています。

「通信欄」については

VBA

Sub テキスト反転加工b()
    Dim TVb As Variant
        Worksheets("入力シート").Select
        TVb = Range("B8").Value
        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
                    80.25, 568.5, 325, 66.75).Select
        With Selection.ShapeRange
            .TextFrame2.TextRange.Characters.Text = TVb
            .Line.Visible = msoFalse
        End With
        Selection.Cut
        Worksheets("印刷用テンプレート").Select
        Range("O8").Select
        ActiveSheet.Paste
        Selection.ShapeRange.IncrementRotation 180
        Worksheets("入力シート").Select
        Range("A1").Select
End Sub

「ご依頼人　おところ」については

VBA

Sub テキスト反転加工c()
    Dim TVc As Variant
        Worksheets("入力シート").Select
        TVc = Range("C14").Value
        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
        80.25, 568.5, 225, 50).Select
        With Selection.ShapeRange
            .TextFrame2.TextRange.Characters.Text = TVc
            .Line.Visible = msoFalse
        End With
        Selection.Cut
        Worksheets("印刷用テンプレート").Select
        Range("U5").Select
        ActiveSheet.Paste
        Selection.ShapeRange.IncrementRotation 180
        Worksheets("入力シート").Select
        Range("A1").Select
End Sub

「ご依頼人　おなまえ」については

VBA

Sub テキスト反転加工d()
    Dim TVd As Variant
        Worksheets("入力シート").Select
        TVd = Range("C16").Value
        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
                    80.25, 568.5, 225, 50).Select
        With Selection.ShapeRange
            .TextFrame2.TextRange.Characters.Text = TVd
            .Line.Visible = msoFalse
        End With
        Selection.Cut
        Worksheets("印刷用テンプレート").Select
        Range("U3").Select
        ActiveSheet.Paste
        Selection.ShapeRange.IncrementRotation 180
        Range("B6").Select
        ActiveSheet.Paste
        With Selection.ShapeRange
            .Height = Range("B6").Height * 4
            .Width = Range("B6").Width * 8
            .TextFrame2.WordWrap = msoTrue
        End With
        Selection.ShapeRange.IncrementRotation 180
        Worksheets("入力シート").Select
        Range("A1").Select
End Sub

目次へ戻る

テキストボックスを180度反転させるVBAのまとめ

それぞれの項目についてのVBAコードを纏めて行うプロシージャーを作ります。

プロシージャー名は「テキスト反転加工」とします。

VBA

Option Explicit
Sub テキスト反転加工()
        Call Module3.テキスト反転加工a
        Call Module3.テキスト反転加工b
        Call Module3.テキスト反転加工c
        Call Module3.テキスト反転加工d
End Sub