重新創建超鏈接，或創建網絡超鏈接VBA excel

Question

我有兩張。 在工作表（sheet1）的其中一個中，我有1個超鏈接，其文件地址\\ sii \\ picture \\ as.jpg超鏈接被命名為“ LINK”。 我需要重新創建沒有“格式”（背景顏色及其任何一種）的超鏈接。 我需要使用VBA進行此操作。

當我嘗試這個我得到一個錯誤

Localization = Sheets("Sheet1").Range("A1").Hyperlinks(1).Address

Sheets("Sheet2").Hyperlinks.Add Anchor:=Sheets("sheet2").Cells(2, 2), Address:=Localization, TextToDisplay:="LINK"

---

如果我做類似的事情

sheets("Sheet1").select

range (Cells(1,1)).select

SELECTION.Copy

sheets("Sheet2").select

range (Cells(1,1)).select

Sheets("Sheet2").Paste

我得到了很好的hiperlink，但是此hiperlink具有格式化的背景以及第一張工作表中的所有內容，並且我的屏幕閃爍了，因為excel在sheet1和sheet2之間跳轉

Answer 1

這應該為您工作。 您可能需要修改它以適合您現有的代碼

Sub Main()

Dim rngDest As Range
Dim rngSource As Range
Dim wkshtSource As Worksheet
Dim wkshtDest As Worksheet
Dim urlSource As String

    ' Set Worksheet and Range variables for easy reference
    Set wkshtSource = ActiveWorkbook.Sheets("Sheet1")
    Set wkshtDest = ActiveWorkbook.Sheets("Sheet2")
    Set rngSource = wkshtSource.Cells(1, 1)
    Set rngDest = wkshtDest.Cells(2, 2)
    'Gets the address of the hyperlink to copy
    urlSource = rngSource.Hyperlinks(1).Address

    'Creates Hyperlink on second page
    rngDest.Hyperlinks.Add Anchor:=rngDest, Address:=urlSource, TextToDisplay:="Link"

End