OberonPlace.com Forums  

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

Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
Old 08-02-2011, 18:49
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default Extract subpath crash and question.

I'm getting a crash with this code.

Private Sub myExtractTest()
Dim s As Shape, sNew As Shape
Set s = ActiveShape
Set sNew = s.Curve.SubPaths(1).Extract

End Sub
(debug and rerun)

I'm also testing with code from help section and getting unexpected results.

Sub helpExtractTest()
 Dim spath As SubPath
 Dim s As Shape, sExt As Shape
 Dim i As Long
 Set s = ActiveShape
 If s.Curve.SubPaths.count < 2 Then Exit Sub
 For i = s.Curve.SubPaths.count To 1 Step -1
  Set spath = s.Curve.SubPaths(i)
  Set sExt = spath.Extract(s)
  sExt.Outline.Width = 0.01
  sExt.Outline.Color = ActivePalette.Color(13 + i)
 Next i
End Sub
Use attached file for testing.
Any ideas?
Attached Files
File Type: cdr 2Extreme.cdr (17.1 KB, 403 views)
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
About SubPath.AddNodeAt SUNNY CorelDRAW/Corel DESIGNER VBA 1 21-08-2008 00:52
Imort Tif- X3 Crash gperzel General 5 19-07-2006 08:44
crash lizrathke General 1 18-05-2005 18:59
subpath numbering lkoky CorelDRAW/Corel DESIGNER VBA 2 02-11-2004 02:37
Select all nodes if the subpath d-signer CorelDRAW/Corel DESIGNER VBA 2 12-05-2004 23:47

All times are GMT -5. The time now is 02:37.

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