Diagramm Datenpunktbeschriftung mit vba drehen
Martin
ich versuche schon das ganze WE (vergeblich) das folgende Problem zu lösen, im Netz hab ich auch nichts gefunden:
Habe ein Diagramm (XY-Punkt) erstellt. Darin gibt es eine Datenreihe (lineare Fkt). Den letzten Datenpunkt daraus habe ich manuell mit dem Datenreihennamen beschriftet. Anhand der Steigung berechne ich im Tabellenblatt mit der TAN()-Funktion den Steigungswinkel. Bis dahin alles ok.
Jetzt mein Problem: Den Datenreihennamen möchte ich nun mit VBA so drehen, dass er wie die Datenreihe ausgerichtet wird. Aber das funktioniert manchmal, machmal fast, manchmal gar nicht - wie halt die Sterne stehen ... (dass ist mein individueller Eindruck).
Bitte helft ! Vielen Dank im voraus. So sieht der Kot aus:
Private Sub Worksheet_Change(ByVal lRange As Range)
'Wenn Blatt verändert wird ...
If Intersect(lRange, Range("K4:L3")) Is Nothing Then Exit Sub
'... im Bereich (K4:L3), wenn nicht, dann raus:
Sheets("hx-Diagramm").SeriesCollection(3).DataLabels.Orientation = Sheets("Tabelle2").Range(" _
J14")
Sheets("Tabelle2").Select 'Gehe in die Tabelle zurück
End Sub
Anzeige