Organize shapes

gmayor · #1 04-30-2019, 09:14 PM

The images will adapt to the document width if the images are larger than the page width to start with, however smaller images will not.

The reason your code stacks the images is that you are converting them to shapes and adding a wrap option, for some reason which is not entirely clear, and then you are not repositioning the shapes. I see no reason to change them to shapes. The following will set your margins (though you could have done that before inserting the pictures) and will set the width to the width between the margins. As it is almost inevitable that there will be room for only one image on a page they will then be on separate pages.

Code:

Sub ResizePic()
Dim x As Integer
Dim lngWidth As Long
    With ActiveDocument.PageSetup
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
        .TopMargin = CentimetersToPoints(1)
        .BottomMargin = CentimetersToPoints(1)
        lngWidth = .PageWidth - .LeftMargin - .RightMargin
    End With
    For x = 1 To ActiveDocument.InlineShapes.Count
        ActiveDocument.InlineShapes(x).Width = lngWidth
    Next x
End Sub

eduzs · #2 05-01-2019, 03:48 AM

Quote:

Originally Posted by gmayor

The images will adapt to the document width if the images are larger than the page width to start with, however smaller images will not.

The reason your code stacks the images is that you are converting them to shapes and adding a wrap option, for some reason which is not entirely clear, and then you are not repositioning the shapes. I see no reason to change them to shapes. The following will set your margins (though you could have done that before inserting the pictures) and will set the width to the width between the margins. As it is almost inevitable that there will be room for only one image on a page they will then be on separate pages.

Thanks gmayor!

I did some improvements, the code below will proportionally scale the shape to fit page margins (width and height) and apply a rotation (only available in shapes).

Have any optimization suggestions? Thanks!

Code:

 Code under construction

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Filter or Lookup Formula to Organize Keywords	MKTGCLOUD	Excel	8	11-28-2018 07:35 PM
Best way to organize resources	Steve.	Project	3	05-17-2014 07:07 AM
Organize a shared mailbox with categories	remmyMartin	Outlook	0	04-03-2013 01:40 PM
Organize Sent mail/items	outlookissues	Outlook	0	05-13-2012 08:55 AM
organize files	userman	Excel	13	05-04-2012 03:49 PM