Excel VBA質問箱 IV

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

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


56689 / 76732 ←次へ | 前へ→

【24789】Re:VBAでグラフ作成
回答  小僧  - 05/5/10(火) 17:55 -

引用なし
パスワード
   ▼バンビ さん:
こんにちは。

Sub RunGraph()
  Call UGraph("b2:c7", 0, 120, 250, 150)
  Call UGraph("b2:b7,d2:d7", 250, 120, 250, 150)
End Sub

Sub UGraph(rng, L, T, W, H)

  With ActiveSheet.ChartObjects.Add(L, T, W, H)
    .Chart.ChartType = xlLine
    .Chart.SetSourceData Source:=ActiveSheet.Range(rng), _
    PlotBy:=xlColumns
    .Chart.Location Where:=xlLocationAsObject, Name:="Sheet1"
  End With
  
  ActiveChart.SeriesCollection(1).Select
'                    ^^^    
  With Selection.Border
    .ColorIndex = 5        
    .Weight = xlThin        
    .LineStyle = xlContinuous
  End With
  With Selection
    .MarkerBackgroundColorIndex = 5    
    .MarkerForegroundColorIndex = 5    
    .MarkerStyle = xlCircle        
    .Smooth = False
  End With
End Sub

カッコの中の数字は、グラフ(線の数など)によって変化します。
バンビさんが意図しない線の色が変わってしまった場合は
数字を色々いじって結果を確認してみて下さい。

0 hits

【24782】VBAでグラフ作成 バンビ 05/5/10(火) 11:51 質問
【24789】Re:VBAでグラフ作成 小僧 05/5/10(火) 17:55 回答
【24814】Re:VBAでグラフ作成 バンビ 05/5/11(水) 10:42 回答
【24821】Re:VBAでグラフ作成 小僧 05/5/11(水) 11:47 回答
【24836】Re:VBAでグラフ作成 バンビ 05/5/11(水) 15:12 お礼
【24839】Re:VBAでグラフ作成 バンビ 05/5/11(水) 15:38 発言
【24854】Re:VBAでグラフ作成 小僧 05/5/11(水) 17:49 回答

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