|
InputBoxメソッドで、Rangeオブジェクトを取得することが出来ますので
とりあえずこんなマクロを試してみて下さい。
Sub Test_MyCh()
Dim PltR As Range
Dim MyCh As ChartObject
On Error Resume Next
Set PltR = Application _
.InputBox("グラフのプロット範囲を選択して下さい", Type:=8)
If Err.Number <> 0 Then Exit Sub
On Error GoTo 0
With ActiveSheet.ChartObjects
If .Count > 0 Then
Set MyCh = .Item(1)
Else
Set MyCh = .Add(10, 10, 300, 200)
End If
End With
With MyCh.Chart
.ChartType = xlXYScatterLines
.SetSourceData PltR, xlColumns
.HasLegend = False
End With
Set PltR = Nothing: Set MyCh = Nothing
End Sub
|
|