'Image info
Dim iz,it,s
Set iz=CreateObject("InDesign.Application.CS5")
For Each it In iz.ActiveDocument.Selection
If TypeName(it)="Image" Then Set itt=it.Parent Else Set itt=it
With itt
If .Images.Count>0 Then
With .Images(1)
s=.ItemLink.FilePath & vbCR
s=s & "AbsoluteHorizontalScale=" & .AbsoluteHorizontalScale & vbCR
s=s & "AbsoluteVerticalScale=" & .AbsoluteVerticalScale & vbCR
s=s & "RotationAngle=" & .RotationAngle & vbCR
s=s & "ActualPpi.x=" & .ActualPpi(0) & vbCR
s=s & "ActualPpi.y=" & .ActualPpi(1) & vbCR
s=s & "EffectivePpi.x=" & .EffectivePpi(0) & vbCR
s=s & "EffectivePpi.y=" & .EffectivePpi(1) & vbCR
s=s & "HorizontalScale=" & .HorizontalScale & vbCR
s=s & "VerticalScale=" & .VerticalScale & vbCR
s=s & "ImageTypeName=" & .ImageTypeName & vbCR
s=s & "W(mm)=" & (.GeometricBounds(3)-.GeometricBounds(1)) & vbCR
s=s & "H(mm)=" & (.GeometricBounds(2)-.GeometricBounds(0)) & vbCR
aw=(.GeometricBounds(3)-.GeometricBounds(1))*100/.AbsoluteHorizontalScale
ah=(.GeometricBounds(2)-.GeometricBounds(0))*100/.AbsoluteVerticalScale
s=s & "Absolute.W(mm)=" & aw & vbCR
s=s & "Absolute.H(mm)=" & ah & vbCR
s=s & "Pixels.x=" & aw*.ActualPpi(0)/25.4 & vbCR
s=s & "Pixels.y=" & ah*.ActualPpi(1)/25.4 & vbCR
End With
End If
End With
Msgbox s
Next