| |
以下の記述で、３つまで、グラフを作れるようになりました。
（質問のグラフ範囲とは異なります）
ただ、４つ目以上グラフが作れません。
どうしてでしょうか。
（コメントアウトしている行です）
Sub RunGraph()
UGraph "b2:c6", 0, 120, 250, 150
UGraph "b2:b6,d2:d6", 250, 120, 250, 150
UGraph "b2:b6,e2:e6", 0, 270, 250, 150
' UGraph "b2:b6,f2:f6" 250, 270, 250, 150
End Sub
Sub UGraph(rng, L, T, W, H)
With ActiveSheet.ChartObjects.Add(L, T, W, H)
.Chart.ChartType = xlColumnClustered
.Chart.SetSourceData Source:=ActiveSheet.Range(rng), PlotBy:=xlColumns
.Chart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
