[發問] 請問打開某個路徑下的圖檔，超連結該如何寫?

pesi2884

問題已有寫在附件內，請見附件!
請各位大大幫忙小弟解答一下，非常感恩。

Hsieh

試試

1. Sub yy()
   
2. Dim A As Range
   
3. For Each A In Range([A2], Cells(Rows.Count, 1).End(xlUp))
   
4.    fd = "G:\台帳資料\" & A.Offset(, 4) & "\" & A.Offset(, 1) & "\" & A.Offset(, 2) & "\" & A.Offset(, 2) & A.Offset(, 3) & "\"
   
5.    fs = Dir(fd & "*.jpg")
   
6.    fds = fd & fs
   
7.    With ActiveSheet.Pictures.Insert(fds)
   
8.    .Top = A.Top
   
9.    .Left = A.Left
   
10.    .Width = A.Width
    
11.    .Height = A.Height
    
12.   ActiveSheet.Hyperlinks.Add .ShapeRange.Item(1), fds
    
13.    End With
    
14. Next
    
15. End Sub

複製代碼

pesi2884

回復 2# Hsieh


    Hsieh 謝謝你的回答
  但是可以在請你幫我改一下程式嗎
  因為跟我想要的有一點落差
  想要結果詳附件!
   先跟你道謝一下
  一直都受到你的幫助

Hsieh

1. Sub yy()
   
2. Dim A As Range
   
3. For Each A In Range([A2], Cells(Rows.Count, 2).End(xlUp).Offset(, -1))
   
4.    fd = "G:\台帳資料\" & A.Offset(, 4) & "\" & A.Offset(, 1) & "\" & A.Offset(, 2) & "\" & A.Offset(, 2) & A.Offset(, 3) & "\"
   
5.    fs = Dir(fd & "*.jpg")
   
6.    fds = fd & fs
   
7.    ActiveSheet.Hyperlinks.Add anchor:=A, Address:=fds, TextToDisplay:="照片"
   
8. Next
   
9. End Sub

複製代碼

pesi2884

謝謝你的解答~~
我試過了~~目前沒什麼問題
非常感謝你!