Hallo,
Mathias Wrede schrieb:
> > Ja, nun müßtest Du sagen ob das akzeptabel ist dann
> schreibe ich schnell
> > ein Makro.
>
> Das wäre spitze. :-))
Sub Main
x = ThisComponent.getCurrentSelection
If x.supportsService("com.sun.star.sheet.SheetCell") Then
auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
With auswahl
.SetMultiselectionMode(False)
'Dateitypen vorauswählen
.appendFilter("PDF-Dateien", "*.pdf")
.appendFilter("Alle Dateien", "*.*")
.SetTitle("Wählen Sie eine Datei als Linkziel")
'Startverzeichnis
'geht nicht in allen OOo-Versionen
.setDisplayDirectory(ConvertToURL("c:\abc"))
End With
antwort = auswahl.execute
if antwort = 1 then
Datei = auswahl.Files(0)
i = 0
Do
i = i + 1
teil = Right(Datei, i)
Loop While LEFT(teil, 1) <> "/"
nur_name = Right(Datei, i - 1)
x.FormulaLocal = "=HYPERLINK(" & CHR(34) & Datei & _
CHR(34) & ";" & CHR(34) & nur_name & CHR(34) & ")"
end if
End If
End Sub
Hinweis:
in der Zeile:
.setDisplayDirectory(ConvertToURL("c:\abc"))
mußt Du "c:\abc" durch Deinen bevorzugten Pfad ersetzen, das
funktioniert aber wie gesagt nicht in allen OOo-Versionen (ich sehe
jedoch gerade das es in 2.0.2 geht)
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
