• 締切済み

エクセルマクロ

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

みんなの回答

  • xls88
  • ベストアンサー率56% (669/1189)
回答No.2

少し変えてみました。 折角 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)
回答No.1

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

masa197109
質問者

補足

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