Hej Hol,
Kender i en måde hvorpå jeg kan gemme et excelark som PDF, hvor jeg beholder funktionen med mine hyperlinks, så de dermed kan klikkes på i PDF'en?
Som det er lige, så når jeg gemmer som PDF, så fungerer mine hyperlinks ikke. Indsætter jeg derimod det oprindelige link, så virker det fint.
Har forsøgt med VBA og følgende "kode", desværre uden held:
Public Sub CreateHyperlinkValues()
Dim Cell As Range
Dim URL As String
For Each Cell In Selection
URL = GetHyperlinkURL(Cell)
Cell.Clear
Cell.Parent.Hyperlinks.Add Cell, URL
Next Cell
End Sub
Public Function GetHyperlinkURL( _
ByVal Cell As Range _
) As String
' Extract the hyperlink URL, if any, from the specified cell.
Dim Value As String
Dim Pos As Long
' Look for a simple hyperlink URL in the cell
If Cell.Hyperlinks.Count = 1 Then
GetHyperlinkURL = Cell.Hyperlinks(1).Address
Else
' Look for a HYPERLINK function
If Left(Cell.Formula, 11) = "=HYPERLINK(" Then
Pos = InStr(Cell.Formula, ",")
If Pos = 0 Then
Pos = InStr(Cell.Formula, ")")
End If
Value = Mid(Cell.Formula, 12, Pos - 12)
' Using the Evaluate function resolves both a constant value ("
www.site.com[...] and a cell reference (A1)
GetHyperlinkURL = Application.Evaluate(Value)
End If
End If
End Function
Andre forslag?
--