Our company written a marco that used in MS Words and it as same as the "insert -> picture -> from file" dialogue,
but we want to enhance it to get the filename automatically when the dialogue box is opened to instead of blank.
How to get the filename into the "Insert Picture" dialogue?
Hot Topic
- Backup and Restore Data/Metadata for a Novel Backend.
- Solved - Help with Excel VBA Code
- VBA script not accessing another workbook
- error message when closing ie7
- Can you tell me why Int(1.4 * 100) = 139
- use inputbox to choose cells for plots in excel
- Problem: Macro not deleting columns I select
- Where can we get the media for Office 2004 for Mac
- Fill word document with fields from Access form programmatically
- key in date and filter the data in a week
Microsoft ISV
- Windows media files have changes to Nero
- what is wrong with this formula? *9 Views & no one knows?*
- Making connection from one Access database to another.
- Printing comboBox Items
- run-time error '1004' Method 'Range' of object '_Global' failed wen using refedit
- Please Help!! Excel driving me mad!
- macro script?
- Matrix syntax
- Architecture for the Download and Installation Manager.
- Application.FileSearch in Excel 2007
How to get the filename into the "Insert Picture" dialogue?
Edward1
Looks like the built-in dialog does not take a initial filename argument.
You can change the folder using,
Options.DefaultFilePath(wdPicturesPath) = "C:\"
Instead try the Filedialog object.
Dim dlgFile As FileDialog
Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
With dlgFile
.Filters.Add "Images", "*.bmp; *.gif; *.jpg; *.jpeg", 1
.InitialFileName = "c:\temp\happy"
.InitialView = msoFileDialogViewThumbnail
.Show
If .SelectedItems.Count > 0 Then
MsgBox .SelectedItems.Item(1)
End If
End With
Christian Frießnegg
Do you mean I cannot not get the filename if I use the dialogs that provided by MS as below code
With Dialogs(wdDialogInsertPicture)
.Show
End With
klei0777
But you wanted to set the name before showing, which you can not do.