Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54821 / 76732

←次へ　｜　前へ→


	【26695】Re:グラフの大きさ、位置を指定

ちょび - 05/7/14(木) 11:33 -


	引用なし

	パスワード

以下の記述で、３つまで、グラフを作れるようになりました。
（質問のグラフ範囲とは異なります）

ただ、４つ目以上グラフが作れません。
どうしてでしょうか。
（コメントアウトしている行です）

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

0 hits

▼

【26686】グラフの大きさ、位置を指定 ちょび 05/7/14(木) 9:35