OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 23-11-2010, 22:54
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default SVG Data

Hi.
I have a file with Locked SVG Data.
What is this and why does it get added as a shape to my shaperange?

-John
Reply With Quote
  #2  
Old 24-11-2010, 08:18
shark shark is offline
Senior Member
 
Join Date: Aug 2010
Location: Russia, Belgorod
Posts: 145
Default same stuff

I have such stuff too. May be this comes from Illustrator ?
Code to kill it
Code:
If s.Type = cdrNoShape Then
            If s.Locked Then s.Locked = False
            s.Delete
Reply With Quote
  #3  
Old 24-11-2010, 12:41
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
The cdrNoShape didn't work for me. It still left some valid shape not getting processed.
I found:

Code:
If s1.Selectable Then...
...to work fine.

Here's a simple test code for anyone who wants to see this. I am also attaching a cdr file with the locked svg data. Run in debugger to see how svg data gets added to the range.

Code:
Sub test()


    Dim i As Integer
    Dim p As Page
    Dim s As Shape, s1 As Shape
    Dim sr As ShapeRange
    Dim sr2 As New ShapeRange
    Dim n As Node
    

    ActivePage.Shapes.All.UngroupAll
    Set sr = ActivePage.Shapes.All.BreakApartEx
     For Each s In sr
         Set sr2 = s.BreakApartEx
         For Each s1 In sr2
            If s1.Selectable Then
                If s1.Curve.Closed = False Then
                    s1.Outline.Width = 0.25
                    s1.Outline.Color.RGBAssign 255, 0, 0
                End If
            End If
         Next s1

    Next s

End Sub
-John
Attached Files
File Type: zip macro_test.zip (389.1 KB, 172 views)
Reply With Quote
Reply


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
Using data from SQL Server jwininge CorelDRAW/Corel DESIGNER VBA 2 31-03-2009 18:43
New data Field in Object Data Manager ebu CorelDRAW/Corel DESIGNER VBA 8 04-10-2008 03:37
get data from mdb or mysql roly0022 CorelDRAW/Corel DESIGNER VBA 3 05-07-2006 12:06
data to textboxes VBA? olympiatr CorelDRAW/Corel DESIGNER VBA 1 27-06-2005 07:41
How can I get data from function? Elie CorelDRAW/Corel DESIGNER VBA 3 15-05-2003 06:08


All times are GMT -5. The time now is 09:59.


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