Pick and Freehand Toggle

pkg_sriram
10 months ago

Pick and Freehand Toggle 

Parents
No Data
Reply
  • 0 10 months ago

    Sub BhBp_TOOL_TOGGLE()
    'MsgBox Application.ActiveTool
    'Application.ActiveTool = 2 'WORK SHAPE TOOL
    'Application.ActiveTool = 3 'WORK RECTANGLE TOOL
    'Application.ActiveTool = 4 'WORK ELLIPSE
    'Application.ActiveTool = 5
    If Application.ActiveTool = 1 Then
    Application.ActiveTool = 5
    Else
    Application.ActiveTool = 1
    End If
    End Sub

Children

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