Shape.PlaceTextInside

Function PlaceTextInside(TextShape As Shape) As Shape

Member of Shape

The PlaceTextInside method places the specified text inside of a shape.


Parameters	Description
TextShape	Specifies the shape in which the text is placed

The following code example places the text inside the ellipse:

Sub Test() 
 Dim s As Shape 
 Dim s1 As Shape 
 Set s1 = ActiveLayer.CreateEllipse(0, 0, 2, 2) 
 Set s = ActiveLayer.CreateArtisticText(0, 0, "My Text", , , "Arial 
Black", 24) 
 s1.PlaceTextInside s 
End Sub