Need help making a macro to space images

brewsta · #1 12-10-2012, 01:49 PM

I need help making a macro to space images.

What i need is for the images to be double spaced from the top, center and bottom of the document, with two pictures per page, dimensions are
3.5 x 4.67. Can someone help me out, i would appreciate it.

macropod · #2 12-11-2012, 12:03 AM

Double-spacing is a concept foreign to images. Also, before anyone can help with this, you need to tell us whether the images are formatted as in-line with text and, if so, how they are separated.

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.

macropod · #4 12-11-2012, 03:29 PM

As I said in my last post:

Quote:

Double-spacing is a concept foreign to images.

If an image is formatted as in-line with text, its vertical position on the page is determined by whatever line spacing has been set for the text it's in-line with and where the image occurs within that text. If the image is not formatted as in-line with text, its vertical position on the page is determined by whatever position it is given, in points, inches or centimeters from the top of the page, the top margin, or the paragraph to which it is anchored.

In my last post, I also said:

Quote:

before anyone can help with this, you need to tell us whether the images are formatted as in-line with text and, if so, how they are separated.

Your last post sheds no light on this.

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.

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