Shape.ApplyStyle

Sub ApplyStyle(StyleName As String)

Member of Shape

The ApplyStyle method applies a text or a graphic style.


Parameters	Description
StyleName	Specifies the graphic style by its name

The following code example creates an ellipse and fills it. It then applies the default graphic style (a hairline outline and no fill) to the ellipse.

Sub Test() 
 Dim s1 As Shape 
 Set s1 = ActiveLayer.CreateEllipse(0, 0, 2, 2) 
 s1.Fill.ApplyUniformFill CreateRGBColor(255, 0, 0) 
 s1.ApplyStyle "Default Graphic" 
End Sub