（VBA/VBA EXCEL）画像をアップロードしてリンク/クリック可能なテキストにする

Question

画像をアップロードできるコードがあります。クリック可能なリンクにしたい添付の画像を参照してください。国はリンクになり、クリックすると表示されます。アップロードされた画像が表示されます。

私は製品名、製品コード、参考文献の私のuserformを持っています。番号、およびアップロードimg。 をクリックします。これが出力になり、imgへのクリック可能なtxt/linkがあります。

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ウィンドウを - あなたはディレクトリを取得することができますこの方法、
• 次に、セル内にリンクを作成するボタンを作成します（リンクをbuttoに置き換えますn）、
• ボタンクリックイベントにコードを追加すると、画像がロードされて表示されます。

希望します。最高の試薬！