REPLACE SHAPES

bhbp.bg2
over 1 year ago

Hello,
Please help with VBA code

I have 2 shapes in upper left corner of picture above. I select 2 shapes and start SUB REPLACE()

Arrows show a necessary result
Rectangle replace ellipse or
Ellipse replace rectangle
Greetings!
 

Parents
  • 0 over 1 year ago

    Use the macro below.
    It replaces all selected shapes with the last selected object.

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

        Set SR = ActiveSelectionRange

        Set s1 = SR.Shapes.First
        s1.RemoveFromSelection

        Set SR = ActiveSelectionRange
        For Each s In SR
            Set s2 = s1.Duplicate
            s2.CenterX = s.CenterX
            s2.CenterY = s.CenterY
        Next s

        SR.Delete
    End Sub

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