I have a bunch of images in a Word doc that I am using the following script to resize. Is there a way for me to insert a carriage return after each image? I would ideally need double spacing after each image. I am using the script below to resize the images.
Sub ResizePhotos()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
With pic
.LockAspectRatio = msoFalse
.Height = InchesToPoints(3.33)
.Width = InchesToPoints(4.44)
End With
Next
End Sub