Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 12-10-2012, 01:49 PM
brewsta brewsta is offline Need help making a macro to space images Windows 7 32bit Need help making a macro to space images Office 2010 32bit
Novice
Need help making a macro to space images
 
Join Date: Dec 2012
Posts: 2
brewsta is on a distinguished road
Default 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.
Reply With Quote
  #2  
Old 12-11-2012, 12:03 AM
macropod's Avatar
macropod macropod is offline Need help making a macro to space images Windows 7 64bit Need help making a macro to space images Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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]
Reply With Quote
  #3  
Old 12-11-2012, 08:11 AM
brewsta brewsta is offline Need help making a macro to space images Windows 7 32bit Need help making a macro to space images Office 2010 32bit
Novice
Need help making a macro to space images
 
Join Date: Dec 2012
Posts: 2
brewsta is on a distinguished road
Default

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.
Reply With Quote
  #4  
Old 12-11-2012, 03:29 PM
macropod's Avatar
macropod macropod is offline Need help making a macro to space images Windows 7 64bit Need help making a macro to space images Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Need help making a macro to space images Making Images 300DPI SQLUSA Word 3 08-20-2012 12:23 AM
Need help making a macro to space images Publisher 2003 Help making even spaced dots (Thread has 2 images for examples) Blitz55 Publisher 3 10-29-2010 01:25 PM
Need help making a macro to space images 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

Other Forums: Access Forums

All times are GMT -7. The time now is 05:19 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft