6 Replies Latest reply on Jul 14, 2008 12:11 PM by (AdamN)

    [CS3][VBS] Delete Unused Swatches ALSO clears Gradient Swatches!

    Level 1
      Hi Folks!

      Heres another weird one. This code deletes unused CMYK swatches properly but also sets the background of some gradient swatches to black.

      myUnusedSwatches = currentdoc.UnusedSwatches.Count
      For myLoop = 1 To myUnusedSwatches
      On Error Resume Next
      Set myUnusedSwatches = currentdoc.UnusedSwatches.Item(1)

      *** I even through this in as a last ditch solution, but it only works sometimes***
      if instr(lcase(currentdoc.unusedswatches.item(1).name), "gradient") = 0 then
      myUnusedSwatches.Delete
      else myUnusedSwatches.Save
      end if

      Next

      Any ideas?