Sub Test() Dim s As Shape Dim pf As PatternFill Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) Set pf = s.Fill.ApplyPatternFill(cdrTwoColorPattern, , 4) pf.RotationAngle = 30 pf.SkewAngle = 10End Sub