R
Ronio
According to the VBA help there is supposed to be an internal function called
HYPERLINK. However, whenever I attempt to use it I get an Compile Error:
Function not defined. Any assistance would be great.
Sub RouterModemSearch()
Dim Hlinkstr3 As String
Dim Hlinkstr4 As String
Dim shapesObj As Visio.Shapes
Dim shapeObj As Visio.Shape
Set shapesObj = ActiveDocument.Pages.Item(1).Shapes
Set shapeObj = shapesObj.Item("DataBox1")
Hlinkstr3 = shapeObj.Cells("user.SiteR_name.Value").ResultStr(0)
Hlinkstr4 = "http://hal.corp.com/audit/getmodem.php?cli=" & Hlinkstr3
Hyperlink (Hlinkstr4)
End Sub
HYPERLINK. However, whenever I attempt to use it I get an Compile Error:
Function not defined. Any assistance would be great.
Sub RouterModemSearch()
Dim Hlinkstr3 As String
Dim Hlinkstr4 As String
Dim shapesObj As Visio.Shapes
Dim shapeObj As Visio.Shape
Set shapesObj = ActiveDocument.Pages.Item(1).Shapes
Set shapeObj = shapesObj.Item("DataBox1")
Hlinkstr3 = shapeObj.Cells("user.SiteR_name.Value").ResultStr(0)
Hlinkstr4 = "http://hal.corp.com/audit/getmodem.php?cli=" & Hlinkstr3
Hyperlink (Hlinkstr4)
End Sub