(VBA/VBA EXCEL)上传图片并将其制作为链接/可点击文本

Question

我有可以上传图片的代码。我想把它做成可点击的链接。见附图。国家/地区将是链接，当我单击它时。将显示上传的图片。

我有产品名称、产品代码、参考编号和上传图像的用户表单。单击"添加"时。这将是输出，并且有一个可点击的 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

我的想法是执行以下操作：

• 提示打开文件名窗口 - 这样你可以得到目录，
接下来，在
• 单元格内创建按钮，您希望在其中包含链接(您将用按钮替换链接(，
• 然后将代码添加到按钮单击事件，该事件将加载并显示图片。

希望对您有所帮助。最好的雷格德！