Hallo Jörg,
Am 02.09.2005 22:05 schrieb Jörg Schmidt:
Guenter Marxen schrieb:
> Danke. Ich war leider ungenau: Es sind auch Pixelgrafiken
> drin und die
> werden mit SO 7.0 auch weiterhin farbig exportiert. :-(
Offen gesagt ich finde auf die Schnelle auch nichts. Deshalb starte das:
sub Main
x = Stardesktop.CurrentComponent.getGraphicObjects
For i = 0 to x.Count-1
If x.GetByIndex(i).GraphicColorMode = 1 Then
x.GetByIndex(i).GraphicColorMode = 0
Else
x.GetByIndex(i).GraphicColorMode = 1
End If
Next i
end sub
Dann sind die Bilder in Grauwerten.
Exportiere als PDF.
Starte das Makro nochmal, dann sind die Bilder wieder farbig.
funktioniert in SO7 PP4 und SO8 ß1 einwandfrei! Danke für das Makro.
--
MfG
Guenter Marxen
(Win2K, SO 7.0, PP4; SO 8 ß)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
