help with macro code

Myron
over 11 years ago

anyone know what the vba code would be to do this?

Parents
No Data
Reply
  • over 11 years ago

    HI.

    Try this.

    s will remain referenced to the circle in this code.

     

    Sub circleText()
       
        Dim s As Shape, sText As Shape, sr As ShapeRange
       
        Set s = ActiveLayer.CreateEllipse2(0, 0, 12)
        Set sText = ActiveLayer.CreateArtisticText(0, 0, "Test Text")
        sText.SetSize 8
       
        sText.Text.FitToPath s
        s.CreateSelection
       
    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.