Hallo,
Mathias Wrede schrieb:
> das ist im benötigten Fall schlichtweg unpraktisch, da ich mal eben
> schnell Links (per Tastatur) auf PDF-Dokumente einbinde.
Und wie konkret?
Wenn es akzeptabel ist für die Linkeingabe den Eingabevorgang statt mit
ENTER mit einer anderen Taste abzuschließen, kannst Du folgendes Makro
an diese Taste binden und mit Abschluß der Eingabe wird der Hyperlink
automatisch auf Funktion HYPERLINK() 'umgeschrieben':
Sub Main
x = ThisComponent.getCurrentSelection.getRangeAddress
row = x.StartRow
col = x.StartColumn
oCtl=ThisComponent.getCurrentController
oCtl.select(ThisComponent.Sheets(x.Sheet).GetCellByPosition(col,row+1))
linkziel =
ThisComponent.Sheets(x.Sheet).GetCellByPosition(col,row).String
ThisComponent.Sheets(x.Sheet).GetCellByPosition(col,row).FormulaLocal =
"=HYPERLINK(" & CHR(34) & linkziel & CHR(34) & ")"
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
