エクセルマクロ

質問

OS:WINDOWS7
SOFT:EXCELL 2007
PC:VAIO VGN-FW73JGB
です。マクロで図形入り文字を入れると、文字の右側が切れます。中央に配置するように設定すれば良いですが、その都度変更する必要があるので、教えて頂きたいです。よろしくお願いします。

If CheckBox5 = True Then
Set sp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationVertical, 290, 212.5, 20, 45)
With sp
.TextFrame.Characters.Text = "延　長"
sp.Select
Selection.ShapeRange.Fill.Visible = msoFalse
With sp
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 8
End With
End With
End With
End If

回答No.2

xls88

少し変えてみました。
折角
Set sp = ActiveSheet.Shapes.AddTextbox(・・・・・
としているのですから
sp.Select
しないで通しましょう。

'Set sp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationVertical, 290, 212.5, 20, 45)
Set sp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationVerticalFarEast, 290, 212.5, 20, 45)
With sp
'.TextFrame.Characters.Text = "延　長"
.TextFrame.Characters.Text = "延長"
.TextFrame.HorizontalAlignment = xlHAlignCenter
.TextFrame.VerticalAlignment = xlVAlignCenter
.Fill.Visible = msoFalse
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 8
End With
End With

回答No.1

Trick--o--

Excell2000で試しましたが問題なく動くように見えます
ただ、ソースが……
　Dim sp As Shape
　Set sp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationVertical, 290, 212.5, 20, 45)
　With sp
　　.TextFrame.Characters.Text = "延　長"
　　.Fill.Visible = msoFalse
　　With .Line
　　　.Weight = xlThin
　　　.ForeColor.SchemeColor = 8
　　End With
　End With

> マクロで図形入り文字を入れると、文字の右側が切れます。
どのようになるのか、画像を貼り付けた方がわかりやすいと思います

補足

回答ありがとうございます。
前のパソコン、excel2000を使っていた時は、確かに問題はありませんでした。2007を使ってまだそんなに経っていないので、よくわかりません。