I'm trying to write a VB program that will open a Word document and resize all the images contained within. This document may have as many as 20 images. I have tried the following with little success. The first image resizes but the remaining images do not.
Dim objWordApp As New Word.Application
Dim objWordDoc As New Word.Document
Set objWordDoc = objWordApp.Documents.Add("WordDocument.doc")
' Loop through the images
For cnt = 0 To (objWordDoc.InlineShapes.Count - 1)
objWordDoc.InlineShapes(cnt).Width = 250
objWordDoc.InlineShapes(cnt).Height = 250