Sub Test() Dim s As Shape Dim pf As PatternFill Dim FileName As String FileName = Application.SetupPath & "Custom\Patterns\drwx0835.pat" Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) Set pf = s.Fill.ApplyPatternFill(cdrFullColorPattern, FileName) pf.OriginX = 1 pf.OriginY = 1.5End Sub