Divide selected shapes current outline width by 2 using vba

Myron
over 1 year ago

How can I divide a shapes outline width in half (/2) using vba?

Parents
No Data
Reply
  • 0 over 1 year ago

    I have a code for increasing by point size. Can change "+ 1" to "/ 2".  Done here:

    Sub OutlineDiv2()
    Dim s As Shape
        For Each s In ActiveSelectionRange

                With s.Outline
                        .Width = .Width / 2
                End With
        Next s
    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.