Hallo,
Betriebssystem: Windows XP Professional bzw. Suse-Linux 10.0 Open-Office-Version 2.0.2 Build oob680.1.0 Wie kann man per Makro die Größe eines Notizrahmens ändern? Der Rahmen sollte sich an den Inhalt, wenn möglich, automatisch anpassen. Mit dem folgenden Makro kann ich die Eigenschaften der Notiz: CharFontName = "Arial"; String = "Notiz 1"; FillColor = RGB(0,255,255);CharColor = RGB(0,0 0) ändern. REM ***** BASIC ***** Sub Main Dim oNotizen as Object Dim oNotiz as Object Dim oNotizShape as Object oNotizen = ThisComponent.sheets(0).getAnnotations() oNotiz = oNotizen.getByIndex(0) oNotizShape = oNotiz.getAnnotationShape() oNotizShape.CharFontName = "Arial" oNotizShape.String = "Notiz 1" oNotizShape.FillColor = RGB(0,255,255) oNotizShape.CharColor = RGB(0,0,0) End Sub Gruß Hellmuth --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
