Returns a Long that represents the scaling of the picture along its vertical axis. The scaling is expressed as a percentage (for example, 200 equals 200 percent scaling). Read-only.
expression A variable that represents a VerticalScale Property object.
Return Value Long
The effective resolution of a picture is inversely proportional to the scaling at which the picture is printed. The larger the scaling, the lower the effective resolution. For example, suppose a picture measuring 4 inches by 4 inches was originally scanned at 300 dpi. If that picture is scaled to 2 inches by 2 inches, its effective resolution is 600 dpi.
Use the EffectiveResolution property of the PictureFormat object to determine the resolution at which the picture or OLE object prints in the specified document.
The following example prints selected image properties for each picture in the active publication.
Visual Basic for Applications
Dim pgLoop As Page
Dim shpLoop As Shape
For Each pgLoop In ActiveDocument.Pages
For Each shpLoop In pgLoop.Shapes
If shpLoop.Type = pbPicture Or shpLoop.Type = pbLinkedPicture Then
If .IsEmpty = msoFalse Then
Debug.Print "File Name: " & .Filename
Debug.Print "Resolution in Publication: " & .EffectiveResolution & " dpi"
Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%"
Debug.Print "Height in publication: " & .Height & " points"
Debug.Print "Vertical Scaling: " & .VerticalScale & "%"
Debug.Print "Width in publication: " & .Width & " points"