Color Replacer advanced remake

[wOxxOm]

some major improvements. History added.

wOxxOm's mod [updated October, 2] In-TEXT replace is better, Close auto-palettes at exit, statusbar progress, speed optimizations



Lev's even more sophisticated version is also here

[ddonnahoe]

Is this Alex's revision or your own?

[Alex]

The macro sounds good. Do you want to share it with others?

[ddonnahoe]

Alex, is this something you could add to your code? I think it has been asked for on the section that deals with Oberon Products. We all understand that you are a busy guy. But, I'm sure you'll agree, that you wouldn't want any of us redistributing your macros with changes that we have made.

ColorReplacer.gms (91.154 kb)
this the earlier version better, button "same colors" useful and after replacing colors selection is not droping
and picking tool need little improvement
in new version on the main page ColorReplacer.gms (60 kb) selection problem and it not saving position on screen (its little annoying)

and TNAX ALOT fo new impoved version, any way its match more helpful,necessary and fantastic tool

[knowbodynow]

This looks really good, I'm definitely going to try it out. But looking at the display I wonder if I can be really cheeky and ask if there is any possibility of adding a "not" check box. The idea is that it would then replace any colour that was "not" the colour selected in find with the colour selected in replace. This would be very useful for at least one person - me!

Best wishes,

Chris (Hunt)

[wOxxOm]

No, Chris, because it is easily done using 'SelectSameFillColor', 'InvertSelection' macros - on my pc it is 'F', '~', and click color-swatch

[knowbodynow]

Hi Os, what is the Invertselection Macro is that something you made? I just tried the using your SelectSameFillColor macro but I got an error message:

"Unexpected error occurred: Object doesn't support this property or method sameColorSelect"

I seem to remember trying the macro before and having a similar problem with it.

All the best,

Chris

[ddonnahoe]

Chris, I ran into the same problem. If you start with a text object selected, then you will get this error. If all you are working with is text, then create an object and fill it with the same color as your text and use that as your base object to select from.

[wOxxOm]

Originally Posted by knowbodynow

"Unexpected error occurred: Object doesn't support this property or method sameColorSelect"

it was written for X3, now I've checked it in v12 and fixed that error: http://recent.tekcities.com/misc/sameColorSelect.zip

InvertSelection macro was written by Alex, some year ago

Sub InvertSelection()
   Dim srCurSel As ShapeRange
   Dim srToSelect As ShapeRange
   
   Set srCurSel = ActiveSelectionRange
   Set srToSelect = ActivePage.shapes.All
   srToSelect.AddRange ActiveDocument.Pages(0).Layers("Desktop").shapes.All
   srToSelect.RemoveRange srCurSel
   srToSelect.RemoveRange ActiveDocument.Pages(0).Layers("Guides").shapes.All
   
   srToSelect.CreateSelection
   End Sub