Resim ekleme problem

[TURISSEMOS]

Sub getFileName()
' Displays the Office File Open dialog to choose a file name
' for the current employee record. If the user selects a file
' display it in the image control.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Emlak resmi seç"
.Filters.Add "Tüm resimler", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![Ad].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub

(msoFileDialogFilePicker) bölümünde uyarı veriyor.
resim ekleme yapmıyor.
Ne yapmalıyım.
Teşekkürler.

 

[gulsum1]

referanslara bak office11 referansı seçili olsun resimdeki gibi olsun

 

[tahsinanarat]

a&#351;a&#287;&#305;daki linki inceleyiniz
http://www.excel.web.tr/showthread.php?p=175000&posted=1