View Single Post
Old 14-12-2007, 15:35
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
Join Date: Mar 2005
Posts: 836

I have an old macro that does a similar, yet a little simpler scale, see the attached zip for GMS file

the code in question is near the bottom:
   Do While x < maxX
      i = (i Mod 8) + 1
      Set sh = ActiveLayer.CreateRectangle(x, y, x + 8, y - 8)
      sh.Outline.Type = cdrNoOutline
      clr.StringAssign Choose(i, _
         "CMYK,USER,100,0,0,0,0", "CMYK,USER,80,0,0,0,0", "CMYK,USER,0,100,0,0,0", "CMYK,USER,0,80,0,0,0", _
         "CMYK,USER,0,0,100,0,0", "CMYK,USER,0,0,80,0,0", "CMYK,USER,0,0,0,100,0", "CMYK,USER,0,0,0,80,0")
      sh.Fill.ApplyUniformFill clr
      tmp.Add sh: x = x + 8
I hope you'll be able to decipher the macro's logic by commenting out the 2 calls to boostStart and boostFinish, and then pressing F8 in VBAEditor (execute line-by-line) to see what part of code is responsible for.
Attached Files
File Type: zip (12.9 KB, 418 views)
Reply With Quote