'================================================================================= Sub 折れ線グラフを作成する() シート名 = "SSS" '※1 Set データ範囲 = Worksheets(シート名).Range("A1:D4") '※1 グラフ種類 = xlLineMarkers 'データマーカー付き折れ線 プロット方法 = xlRows グラフ作成場所 = xlLocationAsObject With Charts.Add .ChartType = グラフ種類 .SetSourceData Source:=データ範囲, PlotBy:=プロット方法 .Location Where:=グラフ作成場所, Name:=シート名 End With End Sub '==================