![]() |
#1
|
|||
|
|||
![]()
Hi, got this code with help from John GDG. I'd like to export each page as a DXF please. I reckon it will need Next P and such, just can't recall how the rest goes.
Code:
Sub exportDXF() Dim s As Shape, sr As ShapeRange Dim w As Double, h As Double Dim count As Double, path As String path = "C:\temp\" count = 1 Set sr = ActivePage.Shapes.All For Each s In sr s.GetSize w, h s.CreateSelection ActiveDocument.Export (path & "w" & Round(w, 2) & "_x_" & "h" & Round(h, 2) & "_" & count & ".dxf"), cdrDXF, cdrAllPages count = count + 1 Next s End Sub
__________________
Using: CorelDraw X4 (14.0.0.701) OS: Windows XP Pro |
#2
|
||||
|
||||
![]() |
#3
|
|||
|
|||
![]() Quote:
Code:
Sub exportWMF() Dim s As Shape, sr As ShapeRange Dim w As Double, h As Double Dim count As Double, path As String Dim p As Page path = "C:\temp\" count = 1 Set sr = ActivePage.Shapes.All For Each p In ActiveDocument.Pages p.Activate For Each s In sr s.GetSize w, h s.CreateSelection ActiveDocument.Export (path & "w" & Round(w, 2) & "_x_" & "h" & Round(h, 2) & "_" & count & ".wmf"), cdrWMF, cdrSelection count = count + 1 Next s Next p End Sub
__________________
Using: CorelDraw X4 (14.0.0.701) OS: Windows XP Pro |
#4
|
|||
|
|||
![]() |
![]() |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Export multiple objects separately. | elekrytyk | CorelDRAW/Corel DESIGNER VBA | 1 | 24-08-2010 10:26 |
how to save multiple pages in coreldraw 12 OR how to save quality eps for animation | kickingandscreaming | General | 2 | 19-08-2007 22:28 |
Export all pages of CDR to illustrator format | RichT | Macros/Add-ons | 3 | 18-05-2007 10:37 |
Import PDF with multiple pages. | rsriram22 | CorelDRAW/Corel DESIGNER VBA | 1 | 20-03-2006 10:54 |
Importing multiple files to separate pages | knowbodynow | CorelDRAW/Corel DESIGNER VBA | 3 | 16-03-2006 09:14 |