Home |
Search |
Today's Posts |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
It depends on your definition of simple.
Hi Graham,
Thank you for your insight on this. It's very helpful. I've applied the Macro to Word 2010 and it works great. However, I was wondering if you know of a way to modify this code to enable it to center the images within the table cells, upon inserting them. Furthermore, is there a way to distribute the vertical layout of the images to span equally across the page, from top to bottom. I suppose this would involve maximizing the height of the rows to consume the full length of each page. Is this possible? I'm just trying to clean up the presentation. Because every time I use this Macro, I have to go in after I insert the pictures and center them within the table; then, adjust the height of the rows to distribute them equally from the top to the bottom of the page. Thank you for your time and assistance. It's much appreciated. Sincerely, Eric On Tuesday, April 13, 2010 2:45 PM sam wrote: Hello! I need to put in multiple photos from a file in my reports, and i would like them to be sized to fit 6-10 per page. Is there any way to do that in one simple step? Thanks! On Wednesday, April 14, 2010 3:28 AM Graham Mayor wrote: It depends on your definition of simple. In order to control the layout of the images you need to insert them in a table of fixed cell width. The images will then adapt to the width of the cell. How many will fit of a page is determined by whether the images are portrait mode or landscape mode - or mixed modes. The following macro will insert a two column table at the cursor and proceed to enter all the images that you select from the dialog into the cells of that table. You can experiment with the number of columns in the table, but somewhere between 1 and 3 will do the job. http://www.gmayor.com/installing_macro.htm Sub InsertMultipleImages() Dim fd As FileDialog Dim oTable As Table Dim sNoDoc As String Dim vrtSelectedItem As Variant If Documents.Count = 0 Then sNoDoc = MsgBox(" " & _ "No document open!" & vbCr & vbCr & _ "Do you wish to create a new document to hold the images?", _ vbYesNo, "Insert Images") If sNoDoc = vbYes Then Documents.Add Else Exit Sub End If End If 'add a 1 row 2 column table to take the images Set oTable = Selection.Tables.Add(Selection.Range, 1, 2) oTable.AutoFitBehavior (wdAutoFitFixed) Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "Select image files and click OK" .Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.tif; *.png" .FilterIndex = 2 If .Show = -1 Then oTable.Cell(1, 1).Select For Each vrtSelectedItem In .SelectedItems With Selection .InlineShapes.AddPicture FileName:= _ vrtSelectedItem _ , LinkToFile:=False, SaveWithDocument:=True, _ Range:=Selection.Range .MoveRight Unit:=wdCell End With Next vrtSelectedItem Else End If End With If Len(oTable.Rows.Last.Cells(1).Range) = 2 Then oTable.Rows.Last.Delete End If Set fd = Nothing End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org On Wednesday, April 14, 2010 9:16 AM BobW wrote: Also, with regard to Graham's response, you can use thumbnail view in Windows Explorer, and simply drag and drop desired thumbnails one by one into each individual desired table cell. "sam" wrote: Submitted via EggHeadCafe Using the ASP.NET CustomValidator Control http://www.eggheadcafe.com/tutorials...r-control.aspx |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to insert multiple pictures with type per page | Microsoft Word Help | |||
Insert multiple pictures in document | Microsoft Word Help | |||
Format multiple rows in Word table simultaneously | Tables | |||
How to insert multiple pictures from file in Word at once? | Microsoft Word Help | |||
forms in word: simultaneously fill in multiple fields? | Microsoft Word Help |