Makro for selecting all objects with a specific colour

Roelli
over 1 year ago

Can anyone make me a macro which automatically selects all objects with a specifig RGB colour?

This is the colour:
R 108
G 133
B 184

#6C85B8

(I can use the search and replace function and save and load it... but  just clicking on a makro would make it a lot easier and faster for me)

Thanks!

Roelli.

Parents
No Data
Reply
  • 0 over 1 year ago 
    Hello,
Today I'm giving you an idea here. These days I will give you code for a complete solution.

    Private Sub BhBp_Get_Color()

    'Object must be selected
    MsgBox "R: " & ActiveShape.Fill.UniformColor.RGBRed & Chr(13) & "G: " & ActiveShape.Fill.UniformColor.RGBGreen & Chr(13) & "B: " & ActiveShape.Fill.UniformColor.RGBBlue & Chr(13) & ActiveShape.Fill.UniformColor.HexValue
    End Sub

    Greetings!

Children
No Data

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.