#1
|
|||
|
|||
Need help making a macro to space images
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. |
#2
|
||||
|
||||
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.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
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 for example: ______bottom of image__________ >>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>> 2 spaces in between each image _______Top of image____________ I appreciate the help. |
#4
|
||||
|
||||
As I said in my last post:
Quote:
In my last post, I also said: Quote:
PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Thread Tools | |
Display Modes | |
|
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 |