エクセルマクロファイルを開いてグラフを作成する方法

質問

• VBAを使用してエクセルファイルを選択し読み込み、読み込んだデータからグラフを作成する方法について説明します。
• コマンドボタンを使用してエクセルファイルを読み込み、指定されたデータを基に折れ線グラフを作成します。
• 作成したグラフを別のシートに貼り付けて表示し、グラフのサイズを調整する方法も紹介します。

回答No.3

xls88

Aブックが開いている、元データはSheet1にあると仮定
シートを挿入＞挿入したシートにグラフ作成
とやってみました。

Dim wbk As Workbook, wst As Worksheet
Dim drng As Range, crng As Range
Dim rmax As Long

Set wbk = Workbooks("A.xlsx")
With wbk
Set wst = .Worksheets.Add(After:=.Sheets(.Sheets.Count))
End With
wst.Name = Format(Now, "yyyymmdd")

With wbk.Sheets("Sheet1")
rmax = .Range("A2").End(xlDown).Row
Set drng = .Range("A1:A" & rmax & ",C1:C" & rmax & ",E1:E" & rmax)
End With
Set crng = wst.Range("A1:F16")

With crng
With wst.ChartObjects.Add(.Left, .Top, .Width, .Height).Chart
.ChartType = xlLine
.SetSourceData Source:=drng, PlotBy:=xlColumns
End With
End With

SetSourceDataで元データをセットしています。
A1が空白でないと上手くグラフがプロットされません。

＞No.2 この回答への補足
ファイルを開かずにグラフ作成は無理だと思います。

お礼

Aにブック名を入力しましたが、Set wbk = Workbooks("A.xlsx")の欄でエラーが出てしまい、無知ながらにも色々とがんばりましたが解決できませんでした。
ご回答ありがとうございました。
また質問させていただきますので、ご指導のほどよろしくお願いいたします。