Office: (Office 2013) Diagramm, Achsen gleiche längen

Ist das Diagramm bereits nach Codeausführung oder davor?

- Falls davor: eine Höhe von 1000 Punkt kann nicht erzielt werden, da die Diagrammfläche nur ca. 300 Pkt hoch ist

- Falls danach: wichtig wäre das Diagramm VOR Codeausführeung gewesen

Dennoch hier generell die einzige Möglichkeit die ich sehe:

Code:

 

Das Diagramm ist vor Codeausführung.
Ich habe den Code integriert und jetzt scheint alles wunderbar zu funktionieren. Der Zeichnungsbereich wird nicht mehr verzogen.
Vielen lieben Dank!

 

Das Makro scheint doch nicht 100% zu funktionieren.
Ich habe ja ein Beispieldiagramm hochgeladen.
Wenn ich jetzt im Makro z.b. die Höhe auf 200 setze und das Makro ausführe, dann ist die Höhe und die Breite der Zeichnungsfläche nicht 100% identisch.
Ich habe mal einen Zettel an das Diagramm gehalten und es fällt definitiv auf, dass das Diagramm höher als breiter ist.
Mir ist das jetzt erst an einem größeren Bildschirm aufgefallen.

 

Ich hatte bereits geschrieben, dass die Breite/Höhe der Beschriftungslabel an den Achsen in die Höhe/Breite der Zeichnungsfläche eingeht - da du 2 Vertikalachsen hast gehen beide selbstverständlich mit ein, was das Verhältnis noch mehr verändert. Du kannst höchstens versuchen, auch die sekundäre Horizontalachse einzublenden, sodass das Verhältnis etwas ausgeglichener wird. Aber bereits eine unterschiedliche Breite/Höhe der Achsenbeschriftungen ändert das Verhältnis.

 

Ja das stimmt.
Dazu zählt die Achsenbeschriftung und die "Zahlen" an der Achse (also die Achse selber)?

Dann wäre ja eine Möglichkeit alles weg zu lassen, das Makro anzuwenden und dann die Beschriftungen wieder anzufügen.
So scheint es jetzt bei mir zu funktionieren. Ohne Beschriftung ist die Zeichnungsfläche 100% homogen. Wenn ich aber die Beschriftung wieder anfüge, dann wird das Verhältnis wieder ungleichmäßig.

Ich habe was zu InsideHeight bzw. InsideWith gelesen, damit ist es wohl möglich die Zeichnungsfläche unabhängig von der Achsenbeschriftung zu formatieren. Kann man das innere Maß verändern oder ist es schreibgeschützt?

Ich hab den Code jetzt mal so verändert:
Sub GleicheGroesse()
dblHoehe = 200 '(in Punkt)
With ActiveSheet.ChartObjects(1).Chart.PlotArea
.InsideHeight = dblHoehe
.InsideWidth = dblHoehe
End With
End Sub

Und er könnte funktionieren. Müsste es morgen auf dem größeren Bildschirm testen.

 

Die Achsenbeschriftung sind die "Zahlen" an der Achse - das andere ist der Achsentitel und der zählt nicht zur Zeichnungsfläche.

Das ist doch auch logisch - Begründung siehe meinen vorhergehenden Beitrag.



Die Inside-Werte könnten die Lösung sein, allerdings nur so:

Code:

 

"Das ist doch auch logisch - Begründung siehe meinen vorhergehenden Beitrag."
Dann ist das Makro aber sozusagen aktiv, wenn ich die Beschriftung wieder hinzufüge.
Weil wenn das Makro verwendet wurde, dann "deaktiv" ist, ich die Beschriftung wieder anfüge, dann dürfte ja die Zeichnungsfläche nicht verändert werden?

Mit den Inside-Werten kommt man leider auch auf keine Besserung. Es passiert das selbe.
Ich glaube diese Inside-Werte sind schreibgeschützt? Zumindest habe ich das irgendwo gelesen.

 

Wie soll das Makro noch aktiv sein wenn es bereits zuende gelaufen ist???
Wenn du die Achsenbeschriftung nachträglich hinzufügst änderst du damit die Breite/Höhe der Zeichnungsfläche, da die Beschriftung zur Zeichnungsfläche gehört und alles zusammen eine bestimmte definierte Fläche innerhalb der Diagrammfläche einnimmt. Ich weiß, jeder Vergleich hinkt, aber stell dir mal folgendes vor: du hast eine Kiste, in welche du eine andere Kiste steckst - alles passt, wenn die innere Kiste etwas kleiner als die äußere Kiste ist. Jetzt willst du die innere Kiste außen mit Griffen versehen und wieder in die erste Kiste stecken - was passiert? Sie passt nicht mehr hinein. Erst wenn du die innere Kiste um die Dicke der Griffe verkleinerst kannst du diese Griffe außern anbringen und die innere Kiste passt immer noch in die äußere. Nimmst du die Griffe wieder weg, kannst du die innere Kiste wieder auf die Ausgangsgröße vergrößern und sie passt genau so in die äußere Kiste wie vorher.