(以解決)批註插入圖片的宏可否增加圖片連接單獨(dú)打開(kāi)圖片

joyark

批註插入圖片的宏可否增加圖片連接單獨(dú)打開(kāi)圖片
希望各位幫忙寫(xiě)出相關(guān)的宏
問(wèn)題1.批註插入圖片的宏
    2.圖片插入後,能否加上超連結(jié)打開(kāi)圖片的宏
      謝謝各位幫忙


'批註插入圖片的宏
Option Explicit
Const ImgFileFormat = "Image Files (*.bmp;*.gif;*.tif;*.jpg;*.jpeg)," & _
"*bmp;*gif;*.tif;*.jpg;*.jpeg"

---

'--------------------------------------------------------------------------------
Sub AddPicturesToComments() '插入備注圖片
Dim HasCom
Dim Pict As String
Dim ans As Integer
Set HasCom = ActiveCell.Comment
If Not HasCom Is Nothing Then ActiveCell.Comment.Delete
Set HasCom = Nothing
GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
If Pict = "False" Then End
ans = MsgBox("Open : " & Pict, vbYesNo + vbExclamation, "Use this Picture?")
If ans = vbNo Then GoTo GetPict
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Shape.Fill.Transparency = 0#
.Comment.Shape.Fill.UserPicture Pict
End With
ActiveCell.Select
ActiveCell.Comment.Shape.ScaleWidth 3, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Shape.ScaleHeight 4, msoFalse, msoScaleFromTopLeft
ActiveSheet.Hyperlinks.Add ActiveCell, Pict, , , Pict
End Sub

roych

在最后一句加上這一句看看？
ActiveSheet .Hyperlinks.Add ActiveCell, Pict, , , Pict
在2010版本測(cè)試沒(méi)問(wèn)題。

joyark

謝謝幫忙