OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Thread Tools Search this Thread Display Modes
Old 02-10-2006, 08:49
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
Join Date: Jan 2004
Location: Louisville, KY
Posts: 552
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default Coding Trace Functions

I have started this snippet of code to cycle through all the objects on the avtive page and convert the bitmaps to LineArt trace results. I am converting scanned signatures for the back of a t-shirt. However the code doesn't work. I get a "With block variable not set" error. The help file is of no use...

What do I do?
Sub TraceSignature()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim bmp As Bitmap
    Dim s As Shape
    For Each s In ActivePage.FindShapes()
        If s.Type = cdrBitmapShape Then
            bmp.Trace cdrTraceLineArt, 25, 100, cdrColorBlackAndWhite, cdrUniform, , True, True, True
        End If
    Next s
End Sub
Waiting for a ride in the T.A.R.D.I.S.
Reply With Quote
Old 02-10-2006, 13:01
Posts: n/a

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(cdrTraceLineArt, 25, 100, cdrColorBlackAndWhite, cdrUniform, , True, True, True)
  Next s
  Set t = Nothing
  Set s = Nothing
End Sub
SP1 must be installed for proper work, or the trace results would be grouped
Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Help in downloading gallery functions to Corel Draw 11 Leland Oberon Function Plotter 1 23-11-2006 10:11
Trace & Xtra Features Sunny General 8 29-06-2006 00:14
corel draw 11 and Corel Trace 11 BEAMA General 2 04-08-2005 19:39
Automating CorelTrace tacarey CorelDRAW/Corel DESIGNER VBA 3 13-11-2004 10:18
How large is a trace? Rolandogail CorelDRAW/Corel DESIGNER VBA 2 12-03-2004 21:07

All times are GMT -5. The time now is 19:47.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com