gibt es eine Möglichkeit die Position einer Datenreihe im Diagramm zu ermitteln und
dort nebendran ein Textfeld zu positionieren?
Vielen Dank
Gruß
Frank
'3. Untere Spezifikationsgrenze
If SpezFlag = 1 Or SpezFlag = 3 Then
If USG = 0 Then
ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, 662, (PixelPos(YMAX, YMIN, USG) _
+ 28), 84# _
, 18#).Select
Else
ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, 662, (PixelPos(YMAX, YMIN, USG) _
), 84# _
, 18#).Select
End If
Function PixelPos(YMAX, YMIN, Wert)
Dim YMAX_PIX As Integer
Dim YMIN_PIX As Integer
Dim Faktor As Single
YMAX_PIX = 368
YMIN_PIX = 48
Faktor = (YMAX_PIX - YMIN_PIX) / (YMAX - YMIN)
PixelPos = YMAX_PIX - ((Wert - YMIN) * Faktor) * 0.98
Nochmals Danke und einen schönen Tag