Set some settings as default

Remo Gwerder
over 2 years ago

I would like to create a command to set all new shapes as hairline in rgb red.

The same effect as the user double click on the pen symbol (default values for Graphic)

Parents
  • 0 over 2 years ago

    You could try this:

    Sub set_default_graphic_outline_hairline_RGB_red()

Dim styleThis As Style

    Set styleThis = ActiveDocument.StyleSheet.FindStyle("~graphic~")
    styleThis.Outline.Width = ActiveDocument.ToUnits(762, cdrTenthMicron)
    styleThis.Outline.Color = Application.CreateRGBColor(255, 0, 0)
End Sub
Reply 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.