Macro for Insert Picture

[Dan]

I want to create a macro that when you press the button starts the insert for
file dialog box and lets you select a picture then inserts it and then brings
up the caption dialog. is there a way to set the options for the caption
dialog?

 

[mbaird]

The name of the following routine intercepts Word's command
"Insert/Picture/From File.

Sub InsertPicture()
'
' InsertPicture Macro
' Inserts a picture from a graphics file
'
With Dialogs(wdDialogInsertPicture)
If .Show Then
With Dialogs(wdDialogInsertCaption)
.Show
End With
End If
End With

End Sub

Mark Baird