Inserting a page break below an image using VBA for Word

Question

Hi all,
I am trying to have about 50 screen shots in one file, automatically crop and resize each image, then add a page break at the end of each image, but then move down to the next screen shot and repeat this process to the end of the file.
So far, I have figured out the code to select the image, crop it down to a specific size, then blow the image up to the right size.  When I try to add a page break at the end of those first few commands, it keeps putting the page break above the image. 
Does anyone have any suggestions?
Here is the current code I am using to accomplish the above;
Sub ResizeImage()
    If Word.Selection.Type = wdSelectionInlineShape Then
        Set ishp = Word.Selection.Range.InlineShapes(1)
        ishp.LockAspectRatio = False
        ishp.PictureFormat.CropBottom = 130
        ishp.PictureFormat.CropTop = 220
        ishp.PictureFormat.CropLeft = 340
        ishp.PictureFormat.CropRight = 340
        ishp.Height = InchesToPoints(3.5)
        ishp.Width = InchesToPoints(6.5)
    End If
' insertpagebreak Macro
    Selection.TypeParagraph1
    Selection.InsertBreak Type:=wdPageBreak
End Sub
Any help would be so appreciated, and also any guideance as to how to get this code to repeat itself until the end of the page (have not even come close to figuring that out yet).  Big picture is to get all screen shots down to the pertinent information
and then have each image on it's own piece of paper so we can print them out for account reconciliation backup.
Thank you in advance,
Larissa Boydston

Answer 1

Hi Larissa,
>> When I try to add a page break at the end of those first few commands, it keeps putting the page break above the image.
The reason of this is that it adds the page break at the start of range. We could adjust the range to deal with it.
>> also any guideance as to how to get this code to repeat itself until the end of the page
You could iterate all InlineShape objects of current document or current section range.
There is the simple code that you could refer to:
Dim s As Word.InlineShape'For each s In InlineShapes
For Each s In Word.Selection.Range.InlineShapes
Range(s.Range.End, s.Range.End).InsertBreak Type:=wdPageBreak
Next s
Regards
Starain
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.