Hallo,
Dr. Matthias Weisser schrieb:
> Ist es wirklich erforderlich die Bilder alle
> einzeln zu löschen und komplett neu ein-
> zubinden?
von "wirklich" abgesehen (denn "wirklich" ist hier wirklich überflüssig)
kannst Du entweder, folgendes Makro über das Dokument laufen lassen um
die Dateiauswahl bei den eingebetteten Bildern aufrufbar zu machen:
Sub Main
Dim x()
x = ThisComponent.GetGraphicObjects
For i = 0 To x.Count-1
if Not FileExists (x(i).GraphicURL) then
x(i).GraphicURL = ConvertToURL("dummy")
end if
Next
End Sub
oder, ein Bild markieren und das folgende Makro laufen lassen um einen
Auswahldialog zu bekommen:
Sub Main2
Dim x()
x = ThisComponent.CurrentSelection.GraphicURL
v = 0
Do
v = v+1
x1 = Left(x,Len(x)-v)
Loop While Right(x1,1)<>"/"
auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
With auswahl
.setDisplayDirectory(x1)
End With
antwort = auswahl.execute
if antwort = 1 then
ThisComponent.CurrentSelection.GraphicURL = auswahl.Files(0)
end if
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
