AW: Textfeld in Diagramm
04.04.2012 15:35:17
Frank
Hallo Karin,
vielen Dank für die Hilfe.
ich habe es nach einigem googlen jetzt so gelöst
'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
Gruß
Frank