- 締切済み
エクセルマクロ
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
- みんなの回答 (2)
- 専門家の回答
みんなの回答
- xls88
- ベストアンサー率56% (669/1189)
少し変えてみました。 折角 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
- Trick--o--
- ベストアンサー率20% (413/2034)
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を使ってまだそんなに経っていないので、よくわかりません。