PatternFill.RotationAngle

Property RotationAngle As Double

The RotationAngle property returns or sets the rotation angle of a pattern fill.

The following code example applies a brick fill pattern to a rectangle. The pattern is rotated by 30?counterclockwise and slanted by 10?to the left.

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 = 10 
End Sub