Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) s.Fill.ApplyPatternFill cdrBitmapPattern, Application.Path + "Custom Data\Canvas\breadc.pcx"End Sub