mark all circles/holes at once?

Roelli
over 5 years ago

Hi.

Is it possible to select all circles at once?
(I do have a lot of text and a lot of dots/circles, and I need to fill these circles so I have to select them all which is quiet time consuming as they're on the same layer so I have to click on every single circle - and if I miss one... I do have problems) ;-)

Thanks!

Parents
No Data
Reply
  • over 5 years ago

    you can try macro code below

    Sub color_cirles()
     Dim sr As ShapeRange, p As Page, c As New Color
     c.UserAssign
     For Each p In ActiveDocument.Pages
     p.Activate
     Set sr = ActivePage.FindShapes(Type:=cdrEllipseShape)
     If sr.Count <> 0 Then sr.ApplyUniformFill c
    Next p
    End Sub

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.