（VBA / VBA EXCEL）上传图片并将其作为链接/可点击文本

Question

我的代码可以上传图片。我想把它作为可点击的链接。见附图。当我点击它时，国家将成为链接。上传的图片将显示。

我有产品名称，产品代码，参考号的用户表单。号码，并上传img。 点击添加时。这将是输出，并且有一个可点击的txt /链接到img。

http://imgh.us/CLICKABLE.png

Private Sub cmdAttachment_Click（）

Dim fname As String 

 fname = Application.GetOpenFilename(filefilter:= _ 
"JPG Files(*.jpg),*.jpg", Title:="Select Image To Open") 

 'If you did not click Cancel...
 If fname <> "False" Then 
    Dim pic 

    Set pic = ActiveSheet.Pictures.Insert(fname) 

    With pic 
        .Left = 0 
        .Top = 0 
    End With 
End If 

Answer 1

我的想法是做以下事情：

• 提示OpenFilename窗口 - 这样就可以获取目录
• 接下来，在单元格中创建按钮，您想要链接（您将用按钮替换链接），
• 然后将代码添加到按钮单击事件，该事件将加载并显示图片。

希望它有所帮助。最好的想法！