msoShapeRectangle --> Variable not defined ???

[Linda Edlund]

Hello,
I'm receiving the following error, in the code which already has worked

Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 20, 20)

With shp
.Name = "abc"
.Fill.ForeColor.SchemeColor = 59
.Line.Weight = 0.25
.Line.ForeColor.SchemeColor = 22
End With

ERROR:
Compile Error: Variable not defined

and it's highlights < msoShapeRectangle > ??????


Can anyone tell me how to correct the situation?

Any help will be appreciated

Linda

 

[Peter T]

Hi Linda

I would suspect a due to a missing reference. Possibly due to the code being
run in an earlier Excel/Office version than the one it was compiled/saved
in.

Tools > References, look for MISSING

Regards,
Peter T

 

[Bob Phillips]

Do you have a reference to the Office type library?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Linda Edlund]

Do you have a reference to the Office type library?

The reference to the Office type library was on place, but I turned them
off and than on again and it works now so it was something there anyway.

Thanks a lot