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

[runflacruiser]

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

-John

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