Внедрение OLE объекта с выпадающим окном выбора файла

[Romario371]

Проблема в том что с помощью макроса получается записать только вставку OLE объекта только по указанию адреса:
Sub Макрос1()
ActiveSheet.OLEObjects.Add(Filename := _
"C:\Users\ChernohlebovRV\Desktop\DS C_0047.jpg", Link:=False, DisplayAsIcon _
:=True, IconFileName:= _
"C:\Program Files (x86)\Internet Explorer\iexplore.exe", IconIndex:=0, _
IconLabel:="C:\Users\ChernohlebovRV \Desktop\DSC_0047.jpg").Select
End Sub
Подскажите, пожалуйста, как сделать чтобы по кнопке выпадало окно для выбора файла?

[IgorGO]

Application.FileDialog(msoFileDialogFilePicker).show

[Romario371]

Сообщение от IgorGO

Application.FileDialog(msoFileDialogFilePicker).show

Егор, спасибо большое за ответ. Только вот при использовании данного кода макрос выдает "вставка объекта неосуществима" не подскажете что может припятствовать?
Макрос выглядит так:
Sub Макрос2()
'
' Макрос2 Макрос
'

'
ActiveSheet.OLEObjects.Add(Applicat ion.FileDialog(msoFileDialogFilePic ker).Show, Link:=False, _
DisplayAsIcon:=True, IconFileName:="C:\Windows\system32\ packager.dll", _
IconIndex:=0, IconLabel:="").Select
End Sub

[IgorGO]

препятствовать может то, что

Application.FileDialog(msoFileDialogFilePicker).Show

возвращает -1 или 0, которые Вы пытаетесь впихнуть в коллекцию ОЛЕ-обьектов активного листа

посмотрите в справке как пользоваться

Application.FileDialog(msoFileDialogFilePicker)

, там все понятно написано

[Romario371]

Сообщение от IgorGO

препятствовать может то, что

Application.FileDialog(msoFileDialogFilePicker).Show

возвращает -1 или 0, которые Вы пытаетесь впихнуть в коллекцию ОЛЕ-обьектов активного листа

посмотрите в справке как пользоваться

Application.FileDialog(msoFileDialogFilePicker)

, там все понятно написано

Спасибо) В справке на нашем форуме?

[IgorGO]

в редакторе ВБА, есть поле куда можно вписать вопрос, достаточно этого:
msoFileDialogFilePicker

удачи!

[Romario371]

Сообщение от IgorGO

в редакторе ВБА, есть поле куда можно вписать вопрос, достаточно этого:
msoFileDialogFilePicker

удачи!

Егор, я походу тупой. Скажите, пожалуйста, есть возможность сделать макрос для выбора файла, который можно внедрить как Оле-объект?

Я не очень силен в программировании((

[IgorGO]

Function ChoiceFile() As String
  With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
'    .Filters.Add "ÎáüåìÏðîäàæ", "*.xls*", 1:  .FilterIndex = 1
    .Title = "Это заголовок окна"
'    .InitialFileName = ThisWorkbook.Path
    If .Show = -1 Then
      ChoiceFile = .SelectedItems(1)
    End If
  End With
End Function

sub Test
  msgbox ChoiceFile
end sub

ChoiceFile - вернет полное имя файла или пустую строку (если ничего не выбрать)
имя файла получили - используйте как вам нужно
например

ActiveSheet.OLEObjects.Add(Filename := ChoiceFile, Link:=False, ....

[Romario371]

Сообщение от IgorGO

Function ChoiceFile() As String
  With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
'    .Filters.Add "ÎáüåìÏðîäàæ", "*.xls*", 1:  .FilterIndex = 1
    .Title = "Это заголовок окна"
'    .InitialFileName = ThisWorkbook.Path
    If .Show = -1 Then
      ChoiceFile = .SelectedItems(1)
    End If
  End With
End Function

sub Test
  msgbox ChoiceFile
end sub

ChoiceFile - вернет полное имя файла или пустую строку (если ничего не выбрать)
имя файла получили - используйте как вам нужно
например

ActiveSheet.OLEObjects.Add(Filename := ChoiceFile, Link:=False, ....

Ого го, спасибо)) wm ru работает?

[IgorGO]

да, работает)