Need help making a macro to space images

brewsta · #3 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Making Images 300DPI	SQLUSA	Word	3	08-20-2012 12:23 AM
Publisher 2003 Help making even spaced dots (Thread has 2 images for examples)	Blitz55	Publisher	3	10-29-2010 01:25 PM
Making a Macro "autoopen"	Joshocom	Word	1	03-16-2010 05:03 PM
Changing mulitple images sizes with a macro or other	FraserKitchell	Drawing and Graphics	1	01-05-2010 11:53 PM
Making enlarged images look good in PPT	Per	PowerPoint	2	03-20-2009 10:08 AM