Excel, ThisAddIn.vb: porque é Application.SheetFollowHyperlink não chamado para = HYPERLINK ()
Estou tentando detectar hiperlinks clicados no Excel. O evento Application.SheetFollowHyperlinkreivindicações que será chamado "quando você clicar em qualquer hiperlink no Microsoft Excel".
No entanto, embora ele dispare quando uma célula contém um URL comowww.google.com
, não quando a célula contém=HYPERLINK("http://www.google.com", "google")
.
Como faço para detectar cliques para o segundo tipo de hiperlink?
Por exemplo, um simples add do Excel:
Public Class ThisAddIn
Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
End Sub
Private Sub ThisAddIn_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
End Sub
Private Sub Application_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Microsoft.Office.Interop.Excel.Hyperlink) Handles Application.SheetFollowHyperlink
MsgBox("Hyperlink Clicked")
End Sub
Uma caixa de mensagem contendo "Hyperlink Clicked" aparecerá quando você clicar em uma célula contendowww.google.com
mas não uma célula contendo=HYPERLINK("http://www.google.com", "google")
.