Update WordArt via VBA?

[Pascal]

Hi,

I wonder if someone can help or point me in the right direction?

I want to update 3 WordArt's that are on a sheet. The text I would like them to have would be what ever the user enters into a cell.

Is this possible?

Also, what if there are 6 WordArt's on the sheet and I just need to update 3 of them, how can select or identify the 3 I want to update?

Many Thanks & Regards,

Andrew

 

[Pascal]

Hi,

Just to let you know that I've managed to figure it out.....

Sub mytest()

Dim myDocument As Object

Set myDocument = Worksheets(1)

myDocument.Shapes("Rectangle 1").TextFrame.Characters.Text = "Testing"
myDocument.Shapes("Rectangle 2").TextFrame.Characters.Text = "Testing"

End Sub

Regards