A while back Dave Peterson help me with the following code.

With ActiveSheet
Set myShape = .Shapes.AddShape(Type:=msoShapeOval, _
Top:=HalfHeight, Left:=HalfWidth, _
Width:=myShapeWidth, Height:=myShapeHeight)
myShape.Name = "shp" & Format(Now, "yyyymmdd_hhmmss")

This is part of routine that will place an autoshape at a pre-determined
screen position, and it works great. However, I have not been able to figure
out a way to place a Picture (clip art) or WordArt textboxes. I have worked
with Set myShape but am not getting anywhere.

Any help is appreciated.

look at the AddPicture method of the Shapes Object in excel VBA help. Pretty
much just add a few addtional arguments related to the picture

in module put in Activesheet.Shapes.AddPicture

highlight the AddPicture and hit F1.

--
Regards,
Tom Ogilvy


"Ronbo" wrote:


A while back Dave Peterson help me with the following code.

With ActiveSheet
Set myShape = .Shapes.AddShape(Type:=msoShapeOval, _
Top:=HalfHeight, Left:=HalfWidth, _
Width:=myShapeWidth, Height:=myShapeHeight)
myShape.Name = "shp" & Format(Now, "yyyymmdd_hhmmss")

This is part of routine that will place an autoshape at a pre-determined
screen position, and it works great. However, I have not been able to figure
out a way to place a Picture (clip art) or WordArt textboxes. I have worked
with Set myShape but am not getting anywhere.

Any help is appreciated.