i would like to convert all line segments into curve segments from the active selection at once .... any script

pkg_sriram
2 months ago

i would like to convert all line segments into curve segments from the active selection at once .... any script 

Parents
No Data
Reply
  • 0 2 months ago

    Sub ConvertAllToCurve

    Dim sr As ShapeRange, s As Shape
    Set sr = ActiveSelectionRange
    ActiveDocument.BeginCommandGroup "Convert"
    Optimization = True
    For Each s In sr
    s.ConvertToCurves
    Next s
    Optimization = False: Refresh
    ActiveDocument.EndCommandGroup

    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.