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 24-08-2010, 02:39
elekrytyk
Guest
 
Posts: n/a
Default Export multiple objects separately.

Hi
On one page I have a lot of objects, whether it is possible to export individual objects as tif where filename is the dimension of the object?

Roland
Reply With Quote
  #2  
Old 24-08-2010, 10:26
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
This should be a starting point for you. You can modify the filename as needed.

-John

Code:
Option Explicit

Sub exportTiffs()

    Dim s As Shape, sr As ShapeRange
    Dim w As Double, h As Double
    Dim count As Double, path As String
    
    path = "D:\All Graphics\__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 & ".tiff"), cdrTIFF, cdrSelection
        count = count + 1
    Next s
End Sub
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
select and change multiple objects at same time Splinters General 7 23-02-2010 12:49
How to select Paragraph and Artistic text separately? pithe CorelDRAW/Corel DESIGNER VBA 7 15-01-2010 09:38
Trimming multiple objects in one swoop? jahmer General 1 17-11-2006 08:10
Rotating multiple artistic text objects geopig CorelDRAW/Corel DESIGNER VBA 6 01-03-2005 16:51
Edit each separately imagino CorelDRAW/Corel DESIGNER VBA 1 23-02-2005 14:59


All times are GMT -5. The time now is 03:10.


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