|
貴殿から教示いただいたマクロを参考に、下記のように変更しました。
Sub Mk_chart()
Rows("8:8").Find(Range("G6").Value).Activate
Dim MyR As Range
With ActiveCell
If .Parent.Name <> "Sheet1" Then Exit Sub
If .Column < 3 Then Exit Sub
Set MyR = Union(Range("B11:B401"), .Offset(3, -1).Resize(400, 3))
End With
Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=MyR, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graph1"
Set MyR = Nothing
End Sub
上記マクロではB11:B401がX軸の値にならず、Y軸の値となって、グラフが作成されてしまいます。
B11:B401をX軸の値としたい場合、上記マクロをどのように変更すればよいのでしょうか?
ご教示ください。
|
|