boy_plunder
08-05-2009, 08:44 AM
Hi All,
I have a macro that opens a dialog for the user to select a picture for a cover of a proposal report in Word. Works well, but I would like to display the window in thumbnail view instead of the default list.
Does anyone know the additional code to do this. Here is part of the code to illustrate.
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.InitialFileName = "\\athena\credentials_images" & "\*.jpg" 'Set the default folder for the jpgs.
.AllowMultiSelect = False 'Make single selection only
If .Show() <> 0 Then
strFilePath = .SelectedItems(1)
End If
End With
Selection.InlineShapes.AddPicture FileName:= _
strFilePath, LinkToFile:=False, _
SaveWithDocument:=True
I have a macro that opens a dialog for the user to select a picture for a cover of a proposal report in Word. Works well, but I would like to display the window in thumbnail view instead of the default list.
Does anyone know the additional code to do this. Here is part of the code to illustrate.
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.InitialFileName = "\\athena\credentials_images" & "\*.jpg" 'Set the default folder for the jpgs.
.AllowMultiSelect = False 'Make single selection only
If .Show() <> 0 Then
strFilePath = .SelectedItems(1)
End If
End With
Selection.InlineShapes.AddPicture FileName:= _
strFilePath, LinkToFile:=False, _
SaveWithDocument:=True