API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.ApplyStyle method
Applies a text/graphic style
Syntax:
Sub ApplyStyle(ByVal StyleName As String)
Parameters:
Name Type Description
StyleName
String
Remarks:
The ApplyStyle method applies a text or graphic style to a shape.
Examples:
The following VBA 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