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