Welding Shapes with VBA?

TimWM88
6 months ago

Since this Action cannot be recorded, is there a function that I can use to use the Welding Tool. It's a basic Ellipse over a Square (Back Minus Front).

  • 0 6 months ago

    Select two shapes and then Try this

    Sub Macro1()
         Dim s As Shape, s1 As Shape, s2 As Shape, SR As ShapeRange

         Set SR = ActiveSelectionRange
         Set s1 = SR.Shapes.Last
         Set s2 = SR.Shapes.First

         'Set s = s2.Trim(s1)
         'or
         Set s = s1.Trim(s2)
    End Sub

    Regards
    Taras

© 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.