B
blueguy
I am trying to resize in-line images using VB. I had limited success with the
code below (found online and in the help index I am not a VB programer).
Within a set of 3 images, the first two were reduced 80% but the third one
got larger (112%). Note: These images have been pasted into Word from another
program. I can have up to 100 images in repetative reports that I need to
shrink so any help would be appreciated.
Sub ResetImages()
For Each ishape In ActiveDocument.InlineShapes
ishape.ScaleWidth = 80
ishape.ScaleHeight = 80
Next ishape
End Sub
code below (found online and in the help index I am not a VB programer).
Within a set of 3 images, the first two were reduced 80% but the third one
got larger (112%). Note: These images have been pasted into Word from another
program. I can have up to 100 images in repetative reports that I need to
shrink so any help would be appreciated.
Sub ResetImages()
For Each ishape In ActiveDocument.InlineShapes
ishape.ScaleWidth = 80
ishape.ScaleHeight = 80
Next ishape
End Sub