エクセル2007を使っています。

質問

エクセル2007を使っています。
以下のようなマクロを作りたいのですが、記録マクロができずに困っています。
どのようなコードを書けばいいでしょうか？
教えてください。

(指定されたグラフエリアに)「あいう123」と書かれたテキストボックスを挿入
テキストボックスのフォントは日本語=MSPゴシック、英語=Arial、サイズ=8pt
テキストボックス内の余白は左右上下=0mm
テキストボックスの大きさはテキストの長さに合わせる

以上です。
()の中のグラフエリア内というのは、もし無理ならシートにテキストボックスを作ってそこからコピペします。
どうぞよろしくお願いします。

回答No.2

merlionXX · ベストアンサー

merlionXXです。
余白0でしたね。

Sub test02()
　　Dim tb
　　ActiveSheet.ChartObjects(1).Activate
　　Set tb = ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 200, 12, 60, 20)
　　With tb
　　　　.Line.Weight = 0.75
　　　　.Line.DashStyle = msoLineSolid
　　　　With .TextFrame
　　　　　　.Characters.Text = "あいう123"
　　　　　　.MarginLeft = 0#
　　　　　　.MarginRight = 0#
　　　　　　.MarginTop = 0#
　　　　　　.MarginBottom = 0#
　　　　　　.AutoMargins = False
　　　　　　.AutoSize = True
　　　　　　With .Characters.Font
　　　　　　　　.Name = "Arial"
　　　　　　　　.FontStyle = "標準"
　　　　　　　　.Size = 8
　　　　　　　　.Strikethrough = False
　　　　　　　　.Superscript = False
　　　　　　　　.Subscript = False
　　　　　　　　.OutlineFont = False
　　　　　　　　.Shadow = False
　　　　　　　　.Underline = xlUnderlineStyleNone
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　　　.Background = xlTransparent
　　　　　　End With
　　　　End With
　　End With
End Sub

ではどうですか？

お礼

できました！ありがとうございました！！

回答No.1

merlionXX

グラフの位置がわからないので適当に。
アクティブなワークシート上にグラフは１個だけとします。

Sub test01()
　　ActiveSheet.ChartObjects(1).Activate
　　ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 200, 12, 60, 20).Select
　　With Selection
　　　　.Characters.Text = "あいう123"
　　　　.AutoScaleFont = True
　　　　.ShapeRange.Line.Weight = 0.75
　　　　.ShapeRange.Line.DashStyle = msoLineSolid
　　　　.AutoSize = True
　　　　With .Font
　　　　　　.Name = "Arial"
　　　　　　.FontStyle = "標準"
　　　　　　.Size = 8
　　　　　　.Strikethrough = False
　　　　　　.Superscript = False
　　　　　　.Subscript = False
　　　　　　.OutlineFont = False
　　　　　　.Shadow = False
　　　　　　.Underline = xlUnderlineStyleNone
　　　　　　.ColorIndex = xlAutomatic
　　　　　　.Background = xlTransparent
　　　　End With
　　End With
End Sub

補足

ありがとうございます。テキストボックスは無事挿入できましたが、マージンが上下左右＝0になっていません。これはどこにどのようなコードを入れればいいのでしょうか？
合わせて教えていただけますか？