Calc: Seitenformat ändern

[erikafuchs]

Hallo ihr Lieben, ich brauche wieder mal Hilfe:

Ich möchte in einer per Makro erstellten Datei die Einstellungen ändern (Querformat, Header und Fußzeile aus ...). Wahrscheinlich fehlt in meinem Code wieder was:

Code: Alles auswählen

   neuDat = createUnoService("com.sun.star.frame.Desktop")                          
   LDat = neuDat.loadComponentFromURL("private:factory/scalc", "_blank", 0, NoArgs())
   zielFrame=LDat.CurrentController.Frame
   outSheet=LDat.sheets.GetByName("Tabelle1")

   oFormatFamilien=ThisComponent.StyleFamilies
   oSeitenformate = oFormatFamilien.getByName("PageStyles")
   oSeitenformat = oSeitenFormate.getByName("Standard")
   oSeitenFormat.HeaderIsOn = False   
   oSeitenFormat.FooterIsOn = False
   oSeitenFormat.isLandscape = False   

... und dann ist an diesem Befehl auch noch was falsch:

Code: Alles auswählen

         oBereich=outSheet.getCellRangeByPosition(5,1,5,1)
         oBereich.Orientation = com.sun.star.table.cellOrientation.TOPBOTTOM

Vielen Dank für eure Hilfe!
Pit



Moderation,4: Titel um Komponente erweitert

[komma4]

1. Solltest Du Deine Variable LDat auch nutzen - nicht ThisComponent

2. ist die Eigenschaft "Landscape" nur eine Eigenschaft - die wahre Darstellung richtet sich nach Höhe/Breite. Sprich: wenn Du A4 einstellst, 29,7*21 kannst Du (ohne weitere Auswirkung) isLandscape setzen, oder nicht.
Wichtig ist hier also die Höhe .Height "29700" und Breite .Width "21000" zu setzen.


3. muss die geänderte Vorlage auf das Tabellenblatt angewendet werden

Code: Alles auswählen

oViewCursor = LDat.getCurrentController().getActiveSheet() 
oViewCursor.setPropertyValue "PageStyle", "Standard"

Zur zweiten Frage habe ich erst mal keinen Plan.

Hilft Dir das trotzdem weiter?

[erikafuchs]

Lieber Winfried,

Hilft Dir das trotzdem weiter?

Astrein - Danke!
Grüße
Pit