Dim
Diagramm
As
ChartObject
Dim
DiagrammLeft
As
Double
Dim
AchseLeft
As
Double
Dim
AchseWidth
As
Double
Dim
MinAchse
As
Double
Dim
MaxAchse
As
Double
Dim
XStart
As
Double
Dim
L
As
Shape
Dim
StartX
As
Double
Dim
StartY
As
Double
Dim
EndY
As
Double
Dim
EndX
As
Double
If
ActiveSheet.ChartObjects.Count
And
Not
clBlatt.GrenzLinie
Is
Nothing
And
NameExist(naktuelle_Taktzeit, ActiveSheet)
Then
Set
Diagramm = ActiveSheet.ChartObjects(1)
DiagrammLeft = Diagramm.Left
AchseLeft = Diagramm.Chart.Axes(xlValue).Left
AchseWidth = Diagramm.Chart.Axes(xlValue).Width
MinAchse = Diagramm.Chart.Axes(xlValue).MinimumScale
MaxAchse = Diagramm.Chart.Axes(xlValue).MaximumScale
XStart = DiagrammLeft + Diagramm.Chart.Axes(xlCategory).Left + (Diagramm.Chart.Axes(xlCategory).Left - Diagramm.Chart.PlotArea.Left)