Graficprogrammierung
25.04.2018 18:36:05
Rothe
auf einen festen Bereich im Tabellenblatt kalibriert. Dazu wird ein Koordinaten-
ursprungspunkt in durch ein Klssenmodul bestimmt. Wenn ich nun einen 2.Grafen auf
dem gleichen Tabellenblatt für Vergleiche erzeugen will, ist es sinnvoll, die Ordinate zur besseren Lesbarkeit etwas nach links zu verschieben. Es gilt also
festzustellen, ob bereits ein Funktionsgraf existiert; ist also z.B. ein Pfeil der
Ordinate im Punkt 240, 10 vorhanden?
Dim Pfeil As Object
.........
Set Pfeil = Worksheets(1)
With Pfeil.Shapes.AddLine(930, Orgio.Y0, 940, Orgio.Y0).Line
.DashStyle = msoLineSingle 'Pfeil der Abszisse
.EndArrowheadStyle = msoArrowheadTriangle
End With
With Pfeil.Shapes.AddLine(240, 10, 240, 1).Line
.DashStyle = msoLineSingle 'Pfeil der Ordinate
.EndArrowheadStyle = msoArrowheadTriangle
End With
Hierzu diese Befehlssequenz zur Erzeugung des Pfeils.
Ich könnte natürlich eine Zelle als Anzeiger benutzen, das gefällt mir aber vom Stil
her nicht. Matthias