OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Search Forums

Showing results 1 to 5 of 5
Search took 0.02 seconds.
Search: Posts Made By: shark
Forum: Macros/Add-ons 04-06-2018, 01:52
Replies: 15
Views: 23,353
Posted By shark
works but

what version of Corel Draw do you have?
Forum: Macros/Add-ons 01-06-2018, 04:03
Replies: 15
Views: 23,353
Posted By shark
try this: Sub RemoveWasteColors() Dim c As...

try this:

Sub RemoveWasteColors()
Dim c As Color, sr As New ShapeRange, srAllShapes As ShapeRange, s As Shape
Set srAllShapes = ActivePage.Shapes.All
For Each c In...
Forum: Macros/Add-ons 28-05-2018, 02:16
Replies: 15
Views: 23,353
Posted By shark
there is no need to select all the shapes. Macro...

there is no need to select all the shapes. Macro deletes one selected shape and removes its color from the palette, if there are no more objects with the same color in current document.

if you...
Forum: Macros/Add-ons 24-05-2018, 04:05
Replies: 15
Views: 23,353
Posted By shark
delete color from palette

Sub DeleteColors()
Dim s As Shape, c As Color
Set s = ActiveShape: If s Is Nothing Then Exit Sub
If s.Fill.Type <> cdrUniformFill Then Exit Sub
Set c = s.Fill.UniformColor
...
Forum: Macros/Add-ons 18-05-2018, 05:31
Replies: 15
Views: 23,353
Posted By shark
Hi If you programmatically delete shape then...

Hi
If you programmatically delete shape then you can check if there are any other objects of the same color left. And then delete this color from palette
Showing results 1 to 5 of 5

 
Forum Jump

All times are GMT -5. The time now is 08:26.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com