OpenOffice.info

' laden zum Nutzen von Standardfunktionen
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
sURL_Bild = ConvertToURL( "d:\daten\bild.png" )
' ergibt: file:///d:/daten/bild.png

[quote="jutta"]Es soll ja am Wochenende regnen[/quote]
Kommt auf die [i]location[/i] an [Vorhersage hier (8°52'55"N 98°16'1" E): 32° und Sonnenschein]***.

OK:

aufgezeichnete Makros sind [i]dispatcher calls[/i].
Sie sind weder zwingend vollständig, noch (immer) korrekt.


Ich verwende UNO APIs.
Schritt für Schritt:

[color=#008000]ThisComponent[/color] ist die Komponente, welche gerade aktiv angezeigt wird. Könnte auch ein Dokument anderen Typs sein, die BASIC-IDE oder die Onlinehilfe (dann passen die folgenden Anweisungen aber nicht und der Code gibt eine Fehlermeldung aus).
Diese wird der Variablen [color=#008000]oDoc[/color] zugewiesen.
Daraus leitet sich in den folgenden Anweisungen das erste Tabellenblatt ([color=#008000]oSheet[/color]) ab (Indices beginnen i.A. bei Null)
Von diesem Blatt wird das Objekt der Zelle A1 (Index: 0 ! - wie gelernt, Name [color=#008000]oCell[/color]) ermittelt, dann ein "Text"-Objekt dieser Zelle.

Zum [color=#008000]oDoc[/color] wird nun ein Objekt des Typs "Hyperlink" erzeugt
Dieses hat Eigenschaften, wie die Ziel-URL, und die sichtbare Darstellung ([color=#008000]representation[/color]). Diesen Eigenschaften werden die Werte zugewiesen: URL eben in der benötigten Schreibweise, Anzeigetext wie gewünscht.

Zum Schluss wird das so besetzte Objekt in die Zelle gesetzt; dazu ist Programmiersprachen-abhängig ein Textcursor notwendig.

Für den Link zu einer Grafik nimmst Du wohl einen Dateiverweis:
[color=#008000]file:///home/user/bild.png[/color]

Um die "richtige" Schreibweise einer URL-Adresse zu ermitteln steht Dir eine Funktion aus der Bibliothek [color=#008000]TOOLS[/color] (die zunächst geladen werden muss) zur Verfügung:[code]
' laden zum Nutzen von Standardfunktionen
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
sURL_Bild = ConvertToURL( "d:\daten\bild.png" )
' ergibt: file:///d:/daten/bild.png[/code]


Ich hoffe das war verständlich.



*** zum Trotz (für alle Frierenden in D-Land): Sonntag abend ist mein Urlaub zu Ende und dann gehöre ich auch wieder zu denen, denen 20 Grad auf dem Thermometer fehlen

Sub calc_hyperlink
  oDoc = ThisComponent
  oSheet = oDoc.getSheets().getByIndex(0)
  oCell = oSheet.getCellByPosition(0,0)
  oText = oCell.getText()
 
  oLink = oDoc.createInstance("com.sun.star.text.TextField.URL")
  oLink.URL = "http://www.oooforum.org/"
  oLink.Representation = "OOoForum.org"
 
  oCell.insertTextContent(oText.createTextCursor(),oLink,True)
End Sub 

[code]
Sub calc_hyperlink
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oCell = oSheet.getCellByPosition(0,0)
oText = oCell.getText()

oLink = oDoc.createInstance("com.sun.star.text.TextField.URL")
oLink.URL = "http://www.oooforum.org/"
oLink.Representation = "OOoForum.org"

oCell.insertTextContent(oText.createTextCursor(),oLink,True)
End Sub [/code]

Hilft Dir das?

Als Funktion:
=HYPERLINK("file:///C:/Documents%20and%20Settings/Propietario/Mis%20documentos/Mis%20im%C3%A1genes/flower_121.jpg";"flower_121")