Original size of an inline picture

B

Bear

Can anyone suggest a strategy or some code to determine the original size of
an inline picture? After several transformations (in Word) is the original
size lost, or is it retained and still available via VBA somehow?

Bear
 
J

Jean-Guy Marcil

Bear was telling us:
Bear nous racontait que :
Can anyone suggest a strategy or some code to determine the original
size of an inline picture? After several transformations (in Word) is
the original size lost, or is it retained and still available via VBA
somehow?
Click to expand...

This would do it:

Dim inlshpTest As InlineShape

Set inlshpTest = Selection.InlineShapes(1)

With inlshpTest
MsgBox Round(PointsToInches((.Height * 100) / .ScaleHeight), 2)
MsgBox Round(PointsToInches((.Width * 100) / .ScaleWidth), 2)
End With
 
Top