Hi I am using xlDialogInsertPicture from a commandbutton and would like to
capture the path of the user selected image, I have sent a lot of time
looking for an answer can someone please help.
TIA
Charles

Why not just use application.getopenfilename and get the name (and insert the
picture, too).


Kind of...

Option Explicit
Sub testme()
Dim myPictName As Variant
Dim myPict As Picture
Dim wks As Worksheet

Set wks = Worksheets("sheet1")

myPictName _
= Application.GetOpenFilename("Picture files, *.bmp;*.jpg;*.gif")
If myPictName = False Then
MsgBox "try later!"
Exit Sub
End If

With wks
With .Range("a1:B9")
Set myPict = .Parent.Pictures.Insert(myPictName)
myPict.Top = .Top
myPict.Left = .Left
myPict.Width = .Width
myPict.Height = .Height
End With
End With

End Sub


vqthomf wrote:

Hi I am using xlDialogInsertPicture from a commandbutton and would like to
capture the path of the user selected image, I have sent a lot of time
looking for an answer can someone please help.
TIA
Charles

--

Dave Peterson