Macro to work on picture

[Geetha Naidu]

Hi i need to record macro which inserts an image(From file) in to the image
control. How do i go about doing this

 

[Kyle.Zhang]

Hello Geetha
you can try this

Dim sFile As String
Dim myDialog As Dialog
Set myDialog = Dialogs(wdDialogInsertPicture)

With myDialog
.Display
sFile = .Name
End With

Image1.Picture = Nothing
Image1.Picture = LoadPicture(sFile)
Image1.AutoSize = True