VBA UserForm Получить имя файла

Question

Я создал UserForm, который состоит из 2 CommandButtons, каждый из которых содержит изображение. Пользователю предлагается выбрать один из двух CommandButtons. Я хотел бы, чтобы имя выбранного изображения было скопировано в ячейку на листе. На данный момент я не могу понять, как получить имя файла изображения, и поэтому я вручную вставить имя файла для каждого CommandButton, как таковой:

Private Sub cmdQ2Opt1_Click() 
    Worksheets("UserQuestionnaire").Range("C4").Value = "242.216.490" 
End Sub 

Private Sub cmdQ2Opt2_Click() 
    Worksheets("UserQuestionnaire").Range("C4").Value = "354.129.401" 
End Sub 

Как я могу закодировать это так, что VBA автоматически копирует имя файла изображения?

Заранее благодарим за помощь!

Answer 1

Если вы назначаете изображение в Forms Designer, то путь не сохраняется, поскольку изображение затем загружается из хранилища в самой книге.

Чтобы сохранить путь, который вы загружаете во время выполнения:

dim path As string 
path = "C:\...\foo.jpg" 
set commandbutton1.Picture = loadpicture(path) 

Вы можете сохранить путь в кнопках Tag свойства:

commandbutton1.Tag = path 

Тогда прочитайте его обратно, когда его щелкнули:

ActiveWorkbook.Sheets("UserQuestionnaire").Range("C4").Value = commandbutton1.Tag