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 sEnd Sub