WordArt: Move and Size with Cells

[dsv2kx]

Please help me figure this out (see VBA code below). I'm trying to use VBA to insert a Word Art and have its position set to "move and size with cells", however it's not working. When I run the macro, I get runtime error, the item with the specified name wasn't found. What I am I doing wrong? There is probably an easy fix, I'm just new to this. Thanks in advance for your help.


Private Sub CommandButton1_Click()
Worksheets(1).Shapes.AddTextEffect _
PresetTextEffect:=msoTextEffect5, Text:="WordArt", _
FontName:="Calibri (Body)", FontSize:=26, _
FontBold:=msoTrue, FontItalic:=msoFalse, Left:=580, _
Top:=95

Sheets("Sheet1").Shapes("WordArt").Placement = xlMoveAndSize

[humdingaling]

try

Please Login or Register  to view this content.

[dsv2kx]

Thanks for the response. I get error message using that code: "Run-time error '9': Subscript out of range."

[dsv2kx]

Thanks for the response. I get error message using that code: "Run-time error '9': Subscript out of range."

Btw, I'm using Excel 2007 so I have to do it manually...there is no way to record a macro and see the VBA code. Any help will be appreciated.

[dsv2kx]

Can anyone please help?

[humdingaling]

are you able to provide a sample? i am not having this issue in my code

[jolivanes]

Not very elegant but until something better crops up, this might do.

Please Login or Register  to view this content.