Set構文の使い方について

質問

フリーフォームで線を描くというマクロを作成しました。
その作ったフォームを"myShape" とセットしたいのですが、うまくいきません。

下に張り付けたマクロの「'←ここ」の行が赤文字になってしまいます。
「Set myShape =　」を削除すればうまく流れますが、Setはできていません。

どうしたらよいのでしょうか？
ご存知の方、どうぞ教えてください。
よろしくお願いいたします。

エクセル2010使用
vba初心者レベルです

------------------------------------------------

Sub test()
Dim point1, point2, point3, point4, point5, point6 As Integer

point1 = Range("A1")
point2 = Range("A2")
point3 = Range("A3")
point4 = Range("A4")
point5 = Range("A5")
point6 = Range("A6")

'フリーフォームで線を描く
　Set myShape = With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, point1, point2)　'←ここ
.AddNodes msoSegmentLine, msoEditingAuto, point3, point4
.AddNodes msoSegmentLine, msoEditingAuto, point5, point6
.ConvertToShape.Select

End With

End Sub

回答No.1

y_free_temp · ベストアンサー

myShapeに何を格納したいのかよくわかりませんが、
エラーになるのはwith句ごと格納しようとしているからですね。

Set myShape = ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, point1, point2)
With myShape
.AddNodes msoSegmentLine, msoEditingAuto, point3, point4
.AddNodes msoSegmentLine, msoEditingAuto, point5, point6
.ConvertToShape.Select
End With

やりたいことの是非はともかくとして、構文としてはこんな感じでしょうか。

お礼

y_free_tempさま

そういうことなんですね！
おかげさまでできました！
ありがとうございますm(_ _)m