Excel VBA質問箱 IV

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

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


9556 / 13644 ツリー ←次へ | 前へ→

【26686】グラフの大きさ、位置を指定 ちょび 05/7/14(木) 9:35 質問[未読]
【26687】Re:グラフの大きさ、位置を指定 IROC 05/7/14(木) 9:44 回答[未読]
【26693】Re:グラフの大きさ、位置を指定 ちょび 05/7/14(木) 10:50 質問[未読]
【26695】Re:グラフの大きさ、位置を指定 ちょび 05/7/14(木) 11:33 発言[未読]
【26700】Re:グラフの大きさ、位置を指定 IROC 05/7/14(木) 11:53 回答[未読]
【26704】Re:グラフの大きさ、位置を指定 ちょび 05/7/14(木) 13:44 発言[未読]

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

引用なし
パスワード
   質問があります。

ある表からグラフを作成して、表を作り、
その大きさと位置を指定したいのですが、
どうやったらできるのでしょうか。

教えてください。
よろしくお願いします。

【26687】Re:グラフの大きさ、位置を指定
回答  IROC  - 05/7/14(木) 9:44 -

引用なし
パスワード
   >ある表からグラフを作成して、表を作り、
               ▲  
      この表はどのように作るのでしょうか?

【26693】Re:グラフの大きさ、位置を指定
質問  ちょび  - 05/7/14(木) 10:50 -

引用なし
パスワード
   IROCさん

下記の件ですが、

>>ある表からグラフを作成して、表を作り、
>               ▲  
>      この表はどのように作るのでしょうか?

すみません、間違いでした。
もう一度記述します。

ある表からグラフを作成して、
その大きさと位置を指定したいのですが、
どうやったらできるのでしょうか。

具体的には、1シート目に、
名前、団体数、コンタクト件数、有効コンタクト件数、コンタクト不可件数
という列名が1行目にあり、2行目から6行目まで、それぞれ
名前と数値が入ります。
それを、VBAを使って、グラフを自動的に作り、
8行目から横に4つグラフを並べたいのです。(できれば横サイズ250のグラフで)
可能であれば、同じ表から、4つのグラフの下に、
同じ内容のグラフをさらに4つ並べたいと思っています。

アドバイスお願いします。

【26695】Re:グラフの大きさ、位置を指定
発言  ちょび  - 05/7/14(木) 11:33 -

引用なし
パスワード
   以下の記述で、3つまで、グラフを作れるようになりました。
(質問のグラフ範囲とは異なります)

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

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

【26700】Re:グラフの大きさ、位置を指定
回答  IROC  - 05/7/14(木) 11:53 -

引用なし
パスワード
   >ただ、4つ目以上グラフが作れません。
どうなるのでしょうか?
コードのどこに問題があるのか調べてみては?


サイズの変更は
ActiveSheet.Shapes("グラフ 1").Width = 250

ActiveSheet.Shapes("Chart 3").Select
Selection.ShapeRange.Width = 250
でできます。

【26704】Re:グラフの大きさ、位置を指定
発言  ちょび  - 05/7/14(木) 13:44 -

引用なし
パスワード
   IROC さん

ありがとうございます。
調べてみます。

9556 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free