Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub ResizeInlines()
w = InputBox("Width in Inches")
h = InputBox("Height in Inches")
For Each ils In ActiveDocument.InlineShapes
With ils
.Width = Application.InchesToPoints(w)
.Height = Application.InchesToPoints(h)
End With
Next
End Sub
if ils.Type = wdInlineShapePicture then
Sub ResizeInlines()
w = InputBox("Width in Inches")
h = InputBox("Height in Inches")
For Each ils In ActiveDocument.InlineShapes
With ils
if .Type = wdInlineShapePicture then
.Width = Application.InchesToPoints(w)
.Height = Application.InchesToPoints(h)
end if
End With
Next
End Sub