エクセルVBE実行時のエラーの意味とその対処方法

質問

Windows Vistaでエクセル2007を使用しています。

添付の画像のエクセルファイルのＶＢＥに
本文最後のコードを記述して実行させようとすると
下記のようなエラーが出ます。
（実行内容はsheet1の表の内容を
sheet2で円グラフとして作成することです）

『実行時エラー'91'

オブジェクト変数またはWithブロック変数が設定されてません』

○質問

１．上記のメッセージの意味を教えてください
２．デバックすると10行目の
『Set Grp1 = WS2.ChartObjects.Add(50, 50, 320, 200)』
がデバックされます。この記述のどこがおかしかったのでしょうか？

エクセルＶＢＡにお詳しい方、何とぞご教示お願いします。
なお、コードの内容は以下の通りです。

Sub グラフ作成()

Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim Grp1 As ChartObject

Set WS = Worksheets("sheet1")
Set WS = Worksheets("sheet2")

Set Grp1 = WS2.ChartObjects.Add(50, 50, 320, 200)
Grp1.Chart.ChartType = xl3DPieExploded
Grp1.Chart.SetSourceData Source:=WS1.Range("C3:D14"), PlotBy:=xlColumns

Worksheets("sheet2").Activate

Set WS1 = Nothing
Set WS2 = Nothing
Set Grp1 = Nothing

End Sub

回答No.2

kokorone · ベストアンサー

あきれて、物が言えない。。。
失礼。自分でプログラミングした場合、思い込みがあって、ケアレスミスに気づかないんですよね。

Set WS = Worksheets("sheet1")
Set WS = Worksheets("sheet2")
って、違和感ありませんか？

ストレートに言います。
Set WS１ = Worksheets("sheet1")
Set WS２ = Worksheets("sheet2")
ですね。
ＷＳ２の初期設定が無いのでその次の行でエラーになります。

４９歳、システムエンジニアより。

お礼

ご指摘ありがとうございます。

Set WS1 = Worksheets("sheet1")
Set WS2 = Worksheets("sheet2")

にしたらsheet2に円グラフが作成できました。
見落としもいいところです(-。－；)
まだVBAをはじめて2週間のど素人なもんで…。

回答No.1

Trick--o--

Set WS = Worksheets("sheet1")
Set WS = Worksheets("sheet2")

それぞれWS1とWS2だよね。
WS1、WS2にオブジェクトをSetしてないので、そのあとで使おうとしてエラーになる。
多分。