-
Dec 9th, 2020, 06:24 PM
#1
Thread Starter
New Member
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
-
Jul 29th, 2021, 05:33 AM
#2
New Member
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
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|