xxxxxx

nnmmalik
over 4 years ago

xxxxxx

Parents
No Data
Reply
  • 0 over 4 years ago

    could try this one. Just edit the numbers in the code to match your needs

    Sub numberGen()
    Dim s As Shape
    Dim n&, i&, dSpace#, dVal#
    Dim iFirst&, iLast&

    ActiveDocument.Unit = cdrInch
    dVal = 0
    dSpace = 0.5
    iFirst = 100
    iLast = 1

    For i = iLast To iFirst
    Set s = ActiveLayer.CreateArtisticText(0, dVal, i)
    dVal = dVal - dSpace
    Next i
    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.