Vba画像にハイパーリンクを追加する

Question

ウェブリンクから数百枚の画像をシートに追加するコードがあります。それは完全に動作します！今私は各写真にハイパーリンクを追加するためにそれを修正する必要があり、私はそれを働かせることができません。どんな助けもありがとう！ハイパーリンクはピクチャを含む同じリンクです。このスクリプトではFilenameという変数があります。アイデアは、ユーザーが画像をクリックすると、より大きなサイズで画像を開くことです。

Line_dest = n - 1 
Filename = Sheets("LISTOFLINKS").Cells(n, 15).Value 
Rows(Line_dest).RowHeight = 100 
ActiveSheet.Pictures.Insert(Filename).Select 
Set shp = Selection.ShapeRange.Item(1) 
With shp 
    .LockAspectRatio = msoTrue 
    .Width = 180 
    If .Height > 95 Then .Height = 95 
    .Cut 
End With 
Selection.Hyperlinks.Add 
Anchor:=Selection.ShapeRange.Item(1), _ 
Address:=Filename 

おかげ

Answer 1

それは

ActiveSheet.Hyperlinks.Add _ 
Anchor:=shp, _ 
Address:=Filename 

でなければなりません、あなたは.Cutを削除する必要があります。これは、画像（のようなCTRL +X）をカットし、それが削除された場合、あなたはそれへのリンクを追加することはできません。または、ハイパーリンクを切断する前に追加することもできます。

ActiveSheet.Pictures.Insert(Filename).Select 
Set shp = Selection.ShapeRange.Item(1) 
ActiveSheet.Hyperlinks.Add Anchor:=shp, Address:=Filename 
With shp 
    .LockAspectRatio = msoTrue 
    .Width = 180 
    If .Height > 95 Then .Height = 95 
    '.Cut 'removed that I guess you don't want the image to be cut 
End With