Office: Nochmal Diagramm-Koordinatenursprung?

OfficeUser · 12. Januar 2021

Moin Leute,

ich habe folgende Werte liste

Tabelle: Tabelle2

[parsehtml]<table border=3 cellpadding=1><tr><td> </td><td align=center bgcolor=#C0C0C0>A</td><td align=center bgcolor=#C0C0C0>B</td></tr><tr><td align=center bgcolor=#FFFF80>1</td><td bgcolor=#FEECC7>Wert 1</td><td bgcolor=#FEECC7>0</td></tr><tr><td align=center bgcolor=#FFFF80>2</td><td bgcolor=#FEECC7>Wert 2</td><td bgcolor=#FEECC7>6</td></tr><tr><td align=center bgcolor=#FFFF80>3</td><td bgcolor=#FEECC7>Wert 3</td><td bgcolor=#FEECC7>12</td></tr><tr><td align=center bgcolor=#FFFF80>4</td><td bgcolor=#FEECC7>Wert 4</td><td bgcolor=#FEECC7>18</td></tr><tr><td align=center bgcolor=#FFFF80>5</td><td bgcolor=#FEECC7>Wert 5</td><td bgcolor=#FEECC7>24</td></tr><tr><td align=center bgcolor=#FFFF80>6</td><td bgcolor=#FEECC7>Wert 6</td><td bgcolor=#FEECC7>30</td></tr><tr><td align=center bgcolor=#FFFF80>7</td><td bgcolor=#FEECC7>Wert 7</td><td bgcolor=#FEECC7>36</td></tr><tr><td align=center bgcolor=#FFFF80>8</td><td bgcolor=#FEECC7>Wert 8</td><td bgcolor=#FEECC7>42</td></tr><tr><td align=center bgcolor=#FFFF80>9</td><td bgcolor=#FEECC7>Wert 9</td><td bgcolor=#FEECC7>48</td></tr><tr><td align=center bgcolor=#FFFF80>10</td><td bgcolor=#FEECC7>Wert 10</td><td bgcolor=#FEECC7>54</td></tr><tr><td align=center bgcolor=#FFFF80>11</td><td bgcolor=#FEECC7>Wert 11</td><td bgcolor=#FEECC7>60</td></tr><tr><td align=center bgcolor=#FFFF80>12</td><td bgcolor=#FEECC7>Wert 12</td><td bgcolor=#FEECC7>66</td></tr><tr><td align=center bgcolor=#FFFF80>13</td><td bgcolor=#FEECC7>Wert 13</td><td bgcolor=#FEECC7>72</td></tr><tr><td align=center bgcolor=#FFFF80>14</td><td bgcolor=#FEECC7>Wert 14</td><td bgcolor=#FEECC7>78</td></tr><tr><td align=center bgcolor=#FFFF80>15</td><td bgcolor=#FEECC7>Wert 15</td><td bgcolor=#FEECC7>84</td></tr></td></tr></table>[/parsehtml]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und möchte nun, dass der Graph genau! im Koordinatenursprung startet. Geht das irgendwie?

Hilfe wäre schön; schon mal ein schönes Wochenende und Gruß

Pittchen *biggrin.gif*

Folgendes Tool wird zur optischen Aufbereitung eingesetzt: Code Converter von Stefan MS-Office-Forum - Code Converter

Es wurden in diesem Beitrag Links korrigiert, die auf falsche Adressen zeigten...

:)

AndiB · 27. September 2002

Hi Pittchen.
Du formatierst die x-Achse (z.B. per Doppelklick) und wählst den Reiter "Skalierung". Nun entfernst Du den Haken bei "Größenachse (Y) schneidet zwischen Rubriken".
Das sollte es gewesen sein.
Gruß Andi

Pittchen · 27. September 2002

Hey Andi,

Danke schön, genau das war's. Noch ein schönes Wochenende wünscht dir

Pittchen *biggrin.gif* *top.gif* *wink.gif*

Pittchen · 29. September 2002

Moin Leute,

ich habe noch was zu dem Thema:

wie man unschwer erkennen kann, sollte das ne Gerade mit der Steigung 1 sein, that means:

der Winkel zwischen x-Achse und Gerade müßte 45 Grad sein.
Gibt es irgend einen Trick, mit dem ich die Diagramm-Achsen so wählen kann, dass die Gerade tatsächlich diese Steigung hat? Denn der Winkel hängt beim freien Ziehen ja wohl vom Verhältnis Länge-Breite des Diagramms ab; oder?

Ein guter Tipp wäre toll; schon mal Danke schön und noch einen schönen Tag wünscht

Pittchen *biggrin.gif*

Pittchen · 30. September 2002

on top

Pittchen *biggrin.gif*

JFreudens · 12. Januar 2021

Moin Pittchen,

mindestens zwei Wege führen nach Rom. Entweder du stellst die Größe der Plotarea so ein, dass du ein quadratisches Diagramm bekommst (Diagonale1), oder du passt bei einem rechteckigen Diagramm die Skalierungen der Achsen an (Diagonale2).

Wenn Du nicht mit Ursprungsgeraden arbeitest, musst du den Code entsprechend erweitern.

Gruß

Johannes

Code:

Sub Diagonale1()
Sheets("Diagramm1").PlotArea.Width = Sheets("Diagramm1").PlotArea.Height
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Sub Diagonale2()
Dim LängeXAchse As Double
Dim LängeYAchse As Double
Dim DiagrammBreite As Double
Dim DiagrammHöhe As Double
With Charts("Diagramm1")
LängeYAchse = .Axes(xlValue).MaximumScale - .Axes(xlValue).MinimumScale
DiagrammBreite = .PlotArea.Width
DiagrammHöhe = .PlotArea.Height
End With
With Charts("Diagramm1").Axes(xlCategory)
.MinimumScaleIsAuto = False
.MinimumScale = 0
.MaximumScale = LängeYAchse * DiagrammBreite / DiagrammHöhe
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
End With
With Charts("Diagramm1").Axes(xlValue)
.MinimumScaleIsAuto = False
.MinimumScale = 0
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es wurde in diesem Beitrag der Code für dieses Forum angepasst.

Pittchen · 1. Oktober 2002

Moin Johannes, schön mal wieder was von dir zu lesen *biggrin.gif*

das is genau das, was ich suche; vielen Dank und noch nen schönen Tag

Gruß Pittchen *top.gif* *biggrin.gif*

Office: Nochmal Diagramm-Koordinatenursprung?

Nochmal Diagramm-Koordinatenursprung?

Nochmal Diagramm-Koordinatenursprung?

Nochmal Diagramm-Koordinatenursprung?

Nochmal Diagramm-Koordinatenursprung? - Similar Threads - Nochmal Diagramm Koordinatenursprung

Sverweis nochmal verweisen nur nv

Und nochmal ... Microsoft Formeleditor

Gruppierte Abfrage nochmal Gruppieren

Alte Termine löschen - nochmaliger Versuch

Nochmal was kleines zu einer Syntax

nochmal automatische Übertragung von Zellinhalten

hex2dec funktioniert nur nach nochmaligem eingeben der hex z