von justus07 » Mi, 31.01.2024 04:09
edit (Moderation, mikeleb): Thema von "Calc" nach " Makros und allgemeine Programmierung verschoben"
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
[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