OpenOffice.info

Hallo,
das Makro funktioniert (bei mir). Die Seitenvorlage "Standard" wird wie gewünscht geändert.

[quote=justus07 post_id=301381 time=1706698785 user_id=67048]
Moin, Danke Euch für die Info's - zu Fuß kann ich das auch ...
Ich versuche es aber, das ganze per Makro zu lösen - das ist mein Problem.
[/quote]
Und warum schreibst du das nicht bereits im Betreff?
Meckern kann jeder.
Auch gibt es noch ein spezielles Unterforum für Makro

Moin, Danke Euch für die Info's - zu Fuß kann ich das auch ...
Ich versuche es aber, das ganze per Makro zu lösen - das ist mein Problem.
Kennt jemand irgendeine Lösung ?
Viele Grüße
Jan

[quote=justus07 post_id=301376 time=1706670560 user_id=67048]
Ich möchte meine aktuelle Tabelle per Makro auf A3-Querformat einstellen
Tja: mein aktueller Code funktionert leider nicht - wahrscheinlich nur eine Kleinigkeit - oder fehlendes Basiswissen ?
[/quote]

Was genau funktioniert nicht?
Ich sehe die neue Einstellung (A3-Querformat) in OpenOffice und LibreOffice.
⠀
[attachment=0]A4_A3.png[/attachment]

Hallo,
wozu ein Makro?

Unter [b]Format → Seitenvorlage ► Register: Seite [/b] kann doch alles entsprechend eingestellt werden.


Gruß
Peter

[color=#FF0000]edit (Moderation, mikeleb): Thema von "Calc" nach " Makros und allgemeine Programmierung verschoben" [/color]

Moin, SORRY, ich bin neu hier; wurschtel mich gerade mal so durch das Forum durch ...

Ich möchte meine aktuelle Tabelle per Makro auf A3-Querformat einstellen
Tja: mein aktueller Code funktionert leider nicht - wahrscheinlich nur eine Kleinigkeit - oder fehlendes Basiswissen ?
So: mein Code meine Sub):

Sub SetPageStyleToA3Landscape
REM A3-Querformat ist Pflicht
dim myDoc As Object
dim dispatcher As Object
dim myStyleFamilies As Object
dim myPageStyles As Object
dim DefPage As Object

myDoc = ThisComponent
mySheet = myDoc.CurrentController.ActiveSheet

dispatcher = createUnoService("com.sun.star.frame.DispatcherHelper")

myStyleFamilies = myDoc.StyleFamilies
myPageStyle = myStyleFamilies.getByName("PageStyles")
DefPage = myPageStyle.getByName("Default")

DefPage.IsLandScape = true REM Querformat
DefPage.Width = 42000 REM A3-Breite
DefPage.Height = 29700 REM A3-Höhe

End Sub

Kann mir irgendjemand helfen ?
Wahrscheilich liegt das an einem fehlerhaften Zugriff auf meine aktuelle Tabelle ... aber ich finde den Fehler nicht.

VG Jan