哀戦士のオンラインメモ帳。 忍者ツールズって１５年前にお世話になってたけど今も 残っててびっくりした。
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
Sub MakeGraph5()
'グラフを作成（系列を個別に追加）
'グラフを作る範囲
Dim rng As Range
Set rng = Range("E1").Resize(10, 6)
'コンテナ（グラフの枠）の作成
Dim ChartObj As ChartObject
Set ChartObj = ActiveSheet.ChartObjects.Add(rng.Left, rng.Top, rng.Width, rng.Height)
'コンテナ内のChart（グラフ）オブジェクトを取得
Dim chartOne As chart
Set chartOne = ChartObj.chart
'グラフのプロパティを指定
With chartOne
'新しい系列を追加
With .SeriesCollection.NewSeries
'横軸のデータ
.XValues = Range("A1").Resize(5)
'縦軸のデータ
.Values = Range("B1").Resize(5)
End With
End With
End Sub