Hallo Community, erstmal tausend Dank für das Ganze hier, habe schon öfter tolle Lösungen gefunden.
Nun mein Fall. Mehrere XY Diagramme (X ist Zeitachse) untereinander. Die Skalierung der Zeitachse X ist über Startdatum und Enddatum (2 Zellen) festgelegt und wird über VBA bei Änderung für alle Diagramme im Sheet angepasst. Die Diagramme und die Zeichenfelder sind gleich breit.
Innerhalb des Diagramms habe ich einen vertikalen Strich, zum Markieren des Zeitpunkts, laut Makro heißt der:
ActiveChart.Shapes.Range(Array("Gerade Verbindung 24")).Select
Nun würde ich gerne über eine Zelle (Wert wird durch Scrollbar festgelegt) den Markierungszeitpunkt festlegen (liegt zwischen Startdatum und Enddatum) und entsprechend den vertikalen Strich in allen Diagrammen anpassen. Das Makroaufzeichnen gibt mir bspw. diesen Befehl:
Selection.ShapeRange.IncrementLeft 1041
Verschieben nach rechts. Relativer Bezug.
Was bedeutet dieser Wert 1041? Lässt sich das nicht etwas cleverer lösen? Bspw. mit einer absoluten Positionangabe orientiert an der aktuellen Breite des Zeichenfelds? Ich habe Sorge, dass wenn ich die Diagrammbreite ändere (geht ja schnell mal unbemerkt), mein relative Angabe nicht mehr zur Zeichenfeldbreite passt.