[gelöst] Darstellung einer Tabelle im Landscape-Format

[tomgom]

Ich habe mittels Basic ein in einer Tabelle ein Chart erstellt und möchte diese im Landscape-Seitenformat darstellen.

Mittels dieses Makros

Sub Umschalten_auf_Landscape
Dim Stilfamilien as Object
Dim SeitenStile as Object
Dim StandardSeite as Object
Dim KopfZeile as Object
Dim KopfzeilenText as Object

StilFamilien = oDoc.StyleFamilies
SeitenStile = StilFamilien.getByName("PageStyles")
StandardSeite = SeitenStile.getByName("Default")

StandardSeite.IsLandscape = True
End Sub

verändert sich zwar der Radiobutton bei Format > Seite > von Hochformat auf Querformat, aber im Bild wird dies nicht umgesetzt.
Erst wenn ich dann auf Hochformat umstelle wird der Chart im Landscape-Format quer dargestellt.

Hat jemand einen Tip, was ich falsch mache ?

[DerJJ]

Ich habe folgendes bei meinem Makro gemacht:

Code: Alles auswählen

[...]
iOldWidth = oStyle.width
iOldHeight = oStyle.height
oStyle.IsLandscape = True
oStyle.Height = iOldWidth
oStyle.Width = iOldHeight
 

Also noch zusätzlich zu "IsLandscape" Breite und Höhe des Dokuments getauscht.

[tomgom]

Danke für den Tip - es funktioniert !

Eigentlich logisch, daß wenn vorher die Höhe und Breite festgelegt ist, diese Werte dann übernommen werden und bei einer Formatänderung natürlich auch diese Werte getauscht werden müssen. Irgendwie hatte ich geistige Tomaten auf den Augen, nochmals vielen Dank.