Excel VBA質問箱 IV

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

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


60345 / 76736 ←次へ | 前へ→

【21031】Re:セルの値をグラフにするには
発言  ponpon E-MAIL  - 05/1/8(土) 11:06 -

引用なし
パスワード
   おはようございます。ponponです。
sheetの表題を一番はじめにする方法は、
unionを使ってうまく処理することができました。
 しかし、グラフを4列五列にする方法が分かりません。
 .Add(Left:=400, Top:=t + 9・・・
     ↑       ↑
  ここに変数を使えばよいということは分かるのですが、ここから先が
 うまい方法が見つかりません。

  Left:=400+P P=Width:=240ずつ4回行ったら、Width:=240*4左に戻して
  Top:=t + 9だけずらして、またLeft:=400+Pを4回、Width:=240*4左に戻して
  また、Top:=t + 9ずらして・・・・となり、データがなくなったところで終了    for nextでできそうな気がするのですが・・・
 もう少し考えてみます。 

>以下、コードです。
Sub 参照元の設定()
 Dim i As Integer
 Dim t As Integer
 Dim m As Long
 m = Range("A65536").End(xlUp).Row
 t = 0
 For i = 2 To m Step 2
  With ActiveSheet.ChartObjects.Add(Left:=400, Top:=t + 9, _ Width:=240, Height:=200).Chart
   .SetSourceData Source:=Union(Range(Cells(2, 1), Cells(2, 6)), _
  Range(Cells(i, 1), Cells(i, 6))), PlotBy:=xlRows
,PlotBy:=xlRows
   .ChartType = xlRadarFilled
   With .Axes(xlValue)
    .MinimumScale = 0
    .MaximumScale = 100
    .MinorUnit = 5
    .MajorUnit = 20
    .Crosses = xlAutomatic
    .ScaleType = xlLinear
    .DisplayUnit = xlNone
   End With
 End With
 t = t + 200
 Next
End Sub

Sub グラフの削除()
  Dim CH As ChartObject
  
  Set allCH = ActiveSheet.ChartObjects
 For Each CH In allCH
    CH.Delete
 Next

End Sub
0 hits

【21029】セルの値をグラフにするには ponpon 05/1/7(金) 23:38 質問
【21031】Re:セルの値をグラフにするには ponpon 05/1/8(土) 11:06 発言
【21033】Re:セルの値をグラフにするには ponpon 05/1/8(土) 13:11 発言
【21034】Re:セルの値をグラフにするには ponpon 05/1/8(土) 14:16 質問
【21056】Re:セルの値をグラフにするには よろずや 05/1/9(日) 8:04 回答
【21058】Re:セルの値をグラフにするには ponpon 05/1/9(日) 12:24 質問
【21059】Re:セルの値をグラフにするには ponpon 05/1/9(日) 12:53 質問

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