Insert Multiple pictures

[cris]

I am trying to insert multiple pictures in the same time using
'Dialogs(wdDialogInsertPicture)' but it is just inserting the last
selected pictures.
Is there any way to insert all of the selected pictures.

Here is my code:

With Dialogs(wdDialogInsertPicture)
If .Display <> 0 Then
szPicName = .Name
Dim ils As Word.InlineShape
'insert the pic
Set ils = Selection.InlineShapes.AddPicture(FileName:= _
szPicName _
, LinkToFile:=False, SaveWithDocument:=True)

With ils
'change size and position
.Height = 56.15
.Width = 216#
' .Left = wdShapeRight 'Can't work!
End With
' ils..Range.ParagraphFormat.Alignment =
wdAlignParagraphRight
MsgBox PhotoFile
End If
End With

Thanks a lot,

Cris

 

[Harold]

Use the FileDialog rather can the Word's Dialogs. The FileDialog collection
allows multiple selection.
From the VBA Help file's example for FileIndex Property I modified the code
to insert multiple graphics into the document.
Sub AddMuliplePictures()
'Declare a variable as a FileDialog object.
Dim fd As FileDialog

'Create a FileDialog object as a File Picker dialog box.
Set fd = Application.FileDialog(msoFileDialogFilePicker)

'Declare a variable to contain the path
'of each selected item. Even though the path is a String,
'the variable must be a Variant because For Each...Next
'routines only work with Variants and Objects.
Dim vrtSelectedItem As Variant

'Use a With...End With block to reference the FileDialog object.
With fd

'Add a filter that includes GIF and JPEG images and make it the
second item in the list.
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg"

'Sets the initial file filter to number 2.
.FilterIndex = 2

'Use the Show method to display the File Picker dialog box and
return the user's action.
'If the user presses the action button...
If .Show = -1 Then

'Step through each string in the FileDialogSelectedItems
collection.
For Each vrtSelectedItem In .SelectedItems

'vrtSelectedItem is a String that contains the path of each
selected item.

Selection.InlineShapes.AddPicture FileName:= _
vrtSelectedItem _
, LinkToFile:=False, SaveWithDocument:=True
Next vrtSelectedItem
'If the user presses Cancel...
Else
End If
End With

'Set the object variable to Nothing.
Set fd = Nothing

End Sub