Sub Test() Dim s As Shape Dim pf As PatternFill Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) Set pf = s.Fill.ApplyPatternFill(cdrTwoColorPattern) pf.Load SetupPath & "Custom Data\Bumpmap\Stlplate.cpt"End Sub