Adding text to a freeform shape programmatically Excel VBA

[waqas716]

Hey Guys, Can someone please help How I can add text to a smart art after it's converted to a shape.

Steps I am doing.

1: Add a smart art shape.

2: Convert it to shapes.

3: Ungroup it, and select a shape.

4: Got selected shape in VB.

Now i want to add text to that selected shape.

Dim sh As Microsoft.Office.Interop.Excel.Shape = ExcelApp.ActiveWindow.Selection.ShapeRange(1)

sh.Fill.ForeColor.RGB = RGB(255, 0, 0)

This Fill Color statement works fine. I want to add text to that shape , Let say "Hello World"

[HSV]

Try this,

Please Login or Register  to view this content.