PatternFill.TransformWithShape

Property TransformWithShape As Boolean

The TransformWithShape property returns or sets whether the pattern fill is transformed (that is, stretched, rotated, or skewed) along with its parent shape.

The following code example applies a pattern fill to a rectangle and specifies that the fill is transformed when the shape object is altered. The shape is then duplicated and stretched by 200%.

Sub Test() 
 Dim s As Shape 
 Dim pf As PatternFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) 
 Set pf = s.Fill.ApplyPatternFill(cdrTwoColorPattern, , 8) 
 pf.TransformWithShape = True 
 Set s = s.Duplicate(4, 0) 
 s.StretchEx 2, , 4, 0 
End Sub