View Single Post
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