テキストボックスを180度回転したエクセルVBAコードを作成する

新たに挿入したテキストボックスに変数化した文字列を表示し、さらに180度回転させるためのエクセルVBAのコードを紹介します。
振替用紙への印字のための必要テクニックです。

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

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

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

Sub テキスト反転加工a()
End Sub

 

　　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

　　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

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

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

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

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

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

Sub テキスト反転加工()

 

テキスト反転加工a
テキスト反転加工b
テキスト反転加工c
テキスト反転加工d

 

End Sub

＜記事内容についての告知＞VBAコードの記述記事においては、その記述には細心の注意をしたつもりですが、掲載のVBAコードは動作を保証するものではりません。 あくまでVBAの情報の一例として掲載しています。 掲載のVBAコードのご使用は、自己責任でご判断ください。 万一データ破損等の損害が発生しても当方では責任は負いません。