Results 1 to 2 of 2

Thread: CorelDRAW:cdrTraceLineDrawing FAILS, making linear path instead of Centerline Trace?

  1. #1

    Thread Starter
    New Member
    Join Date
    Dec 2020
    Posts
    1

    CorelDRAW:cdrTraceLineDrawing FAILS, making linear path instead of Centerline Trace?

    Hello esteemed VBForums members,
    and thanks for such excellent programming, products and support.

    1) I hoped members might please advise how to use cdrTraceType: cdrTraceLineDrawing which FAILS, only producing a single linear path instead of Centerline trace?

    When using cdrTraceLineArt the same macro below WORKS, producing vectorized OUTLINE paths from bitmap textures:
    (please feel free to forward this to any who may instruct a remedy. Thanks for any help, Jeff:780 425 4914, (c)780 446 0978)

    Sub TraceTest()
    Dim s As Shape, sr As ShapeRange
    Dim t As TraceSettings
    For Each s In ActivePage.FindShapes(, cdrBitmapShape)
    Set t = s.Bitmap.trace(cdrTraceLineDrawing, 25, 100, cdrColorBlackAndWhite, cdrUniform, , True, True, True)
    t.Finish
    Next s
    Set t = Nothing
    Set s = Nothing
    End Sub

  2. #2
    New Member
    Join Date
    Jul 2021
    Posts
    1

    Re: CorelDRAW:cdrTraceLineDrawing FAILS, making linear path instead of Centerline Tra

    Alignment not working in Corel VBA

    Sub Kramank()
    ActiveDocument.BeginCommandGroup "Kramank"
    ActiveDocument.Unit = cdrCentimeter


    If ActiveShape.Text.IsArtisticText = True Then
    Exit Sub
    End If


    Dim Val As String
    Val = InputBox("Width?", "Paragraph Width")
    If StrPtr(Val) = False Then Exit Sub


    ActiveShape.SetSize Val - 0.1
    ActiveShape.Text.Story.Alignment = cdrFullJustifyAlignment
    ActiveShape.Text.Story.Tabs.Clear
    ActiveShape.Text.Story.Tabs.Add Val - 0.1, cdrTextTabRight
    ActiveShape.Text.Story.ParaSpacingBefore = 87
    ActiveShape.AlignToPage cdrAlignHCenter


    ActiveDocument.EndCommandGroup
    End Sub


    Here, Alignment to horizontal center of page not working. what wrong here ? please help

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width