|
▼まつ君 さん今晩は
macro か macro1 のどちらでもできます。試してみて下さい。
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:D5"), PlotBy:=xlColumns
に相当する部分は、付けておいた方が、安定すると思います。
Sub macro()
a = Range(Cells(1, 1), Cells(5, 1))
b = Range(Cells(1, 2), Cells(5, 2))
c = Range(Cells(1, 3), Cells(5, 3))
d = Range(Cells(1, 4), Cells(5, 4))
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:D5"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = a
ActiveChart.SeriesCollection(1).Values = b
ActiveChart.SeriesCollection(2).XValues = c
ActiveChart.SeriesCollection(2).Values = b
End Sub
Sub Macro1()
' Macro1 Macro
' マクロ記録日 : 2005/2/12
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
'
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:D5"), PlotBy:=xlColumns
'
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R1C1:R5C1"
ActiveChart.SeriesCollection(1).Values = "=Sheet1!R1C2:R5C2"
ActiveChart.SeriesCollection(2).XValues = "=Sheet1!R1C3:R5C3"
ActiveChart.SeriesCollection(2).Values = "=Sheet1!R1C4:R5C4"
End Sub
|
|