Microsoft Office Forums - View Single Post - [Solved] Need help making a macro to space images

brewsta · 12-11-2012, 08:11 AM

Say i have a 10 page document with text and images on each page, there would be some text in between and all the images would be re-sized using this macro;

Code:

Sub AllPictSize() 
    Dim PecentSize As Integer 
    Dim oIshp As InlineShape 
    Dim oshp As Shape 
     
     'PercentSize = InputBox("Enter percent of full size", "Resize Picture", 175)
     
    For Each oIshp In ActiveDocument.InlineShapes 
        With oIshp 
             '.ScaleHeight = PercentSize
             '.ScaleWidth = PercentSize
             '.ScaleHeight = 175
             '.ScaleWidth = 175
            .Width = 336.24 
            .Height = 252 
            .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter 
        End With 
    Next oIshp 
     
     'For Each oshp In ActiveDocument.Shapes
     'With oshp
     '.ScaleHeight Factor:=(PercentSize / 100), _
     ' RelativeToOriginalSize:=msoCTrue
     '.ScaleWidth Factor:=(PercentSize / 100), _
     ' RelativeToOriginalSize:=msoCTrue
     'End With
     'Next oshp
End Sub

The pictures are centered one on-top of another with 2 images per page. all i need is there to be 2 spaces in-between each picture.

for example:

______bottom of image__________
>>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>>>> 2 spaces in between each image
_______Top of image____________

I appreciate the help.