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

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

"Linda Edlund" wrote in message
7...
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

Do you have a reference to the Office type library?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Linda Edlund" wrote in message
7...
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

"Bob Phillips" wrote in
:

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