重建超链接，或创建网络超链接VBA excel

我有2张。在其中一张表（sheet1）中，我有1个文件地址超链接\ sii \ picture \ as.jpg超链接被命名为“LINK”。我需要重新创建这个没有“格式”（背景颜色和任何它们）的超链接。我需要使用VBA来做到这一点。重建超链接，或创建网络超链接VBA excel

当我尝试这个，我得到一个错误

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之间跳跃

来源

2014-05-06 byrqowy

要恢复链接纠正的第一行：本地化=表（“工作表Sheet1”）超链接（1）。地址之后，做工精细 – user3514930

如果你离开“。Range（”A1“）”你需要知道超链接的数量。毕竟我把它放在一条线上，它工作。（2），地址：=（表格（“Sheet1”）。范围（“A1”）。超链接（1））.Address），TextToDisplay：=“LINK” – byrqowy

Thi s应该为你工作。您可能必须修改它以适应withing现有的代码

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

来源

2014-05-06 16:41:40 Adach1979

重建超链接，或创建网络超链接VBA excel

回答

相关问题