Seite 1 von 1
hyperlinks in starcalc setzen
Verfasst: Mo, 08.05.2006 08:09
von kannenklaus
hallo profis,
ich möchte im tabellenblatt 1 hyperlinks von a1 bis a10 aus den gleichnamigen zellen des tabellenblattes 2 eintragen lassen. kennt da jemand beispiele?
freue mich auf eine antwort.
grüße
klaus
Verfasst: Mi, 10.05.2006 09:23
von Stephan
Was wäre denn mit einfachem Aufzeichnen von Copy und paste? (mittels Makrorekorder aufzeichnen)
Ansonsten kannst Du in den Zielzellen mittels Funktion HYPERLINK() arbeiten, also in etwa:
<Zellobjekt>.FormulaLocal
Wie Du per Hand Links überträgst das sie wie im Orginal als 'Feld'-formatiert ankommen kann ich im Moment nicht sagen.
Gruß
Stephan
Verfasst: Mi, 10.05.2006 10:01
von kannenklaus
hallo stephan,
danke für deinen tipp. ich bin inzwischen fündigen geworden.
der code für das setzen von hyperlinks lautet wie folgt:
Code: Alles auswählen
Option Explicit
Sub HyperlinkAufZelle
Dim oDoc
Dim oText
Dim oField
Dim oCell
Dim oSheet
oDoc = thisComponent
oSheet = oDoc.sheets(0)
oCell = oSheet.getCellByPosition(0,1)
oField = ThisComponent.createInstance("com.sun.star.text.TextField.URL")'URL Textfeld erzeugen
oField.Representation = oCell.getString()
oField.Representation ="mein Name" 'Text, der im Hyperlink erscheint
oField.URL = ConvertToURL("#Tabelle1.A1")
'--Erzeugt den Hyperlink
oCell.setString("")'stellt dem Hyperlink weiteren Text voran
oText = oCell.getText()
oText.insertTextContent(oText.createTextCursor(), oField, False)
End Sub