OberonPlace.com Forums  

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

Thread Tools Search this Thread Display Modes
Old 24-08-2010, 03:39
Posts: n/a
Default Export multiple objects separately.

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?

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

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


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
        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

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 13:49
How to select Paragraph and Artistic text separately? pithe CorelDRAW/Corel DESIGNER VBA 7 15-01-2010 10:38
Trimming multiple objects in one swoop? jahmer General 1 17-11-2006 09:10
Rotating multiple artistic text objects geopig CorelDRAW/Corel DESIGNER VBA 6 01-03-2005 17:51
Edit each separately imagino CorelDRAW/Corel DESIGNER VBA 1 23-02-2005 15:59

All times are GMT -5. The time now is 17:52.

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