Displaying Insert/Picture dialog box

[Adri]

I need to display the Insert/Picture dialog box, pointing to a specific
directory. I can get the dialog to display, but can't figure out how to
change 'look in' to the directory I want. Any suggestions? I'm using:
Dialogs(wdDialogInsertPicture).Show to display the dialog.

[Dave Lett]

Hi Adri,

You can use something like the following:

Dim sPixFolder As String
''' store the default pictures location
sPixFolder = Options.DefaultFilePath(wdPicturesPath)
''' change the default pictures location
Options.DefaultFilePath(wdPicturesPath) = "C:\Test\"
''' open the dialog box
Dialogs(wdDialogInsertPicture).Show
''' restore the default pictures location
Options.DefaultFilePath(wdPicturesPath) = sPixFolder

HTH,
Dave

Post by Adri
I need to display the Insert/Picture dialog box, pointing to a specific
directory. I can get the dialog to display, but can't figure out how to
Dialogs(wdDialogInsertPicture).Show to display the dialog.
--
Thanks...
Adri

[Adri]

Thanks Dave, works perfectly.

Post by Dave Lett
Hi Adri,
Dim sPixFolder As String
''' store the default pictures location
sPixFolder = Options.DefaultFilePath(wdPicturesPath)
''' change the default pictures location
Options.DefaultFilePath(wdPicturesPath) = "C:\Test\"
''' open the dialog box
Dialogs(wdDialogInsertPicture).Show
''' restore the default pictures location
Options.DefaultFilePath(wdPicturesPath) = sPixFolder
HTH,
Dave

Post by Adri
I need to display the Insert/Picture dialog box, pointing to a specific
directory. I can get the dialog to display, but can't figure out how to
Dialogs(wdDialogInsertPicture).Show to display the dialog.
--
Thanks...
Adri