ich verwende Office 2016.
Ich erstelle mir mit einem Makro drei Liniendiagramme aus Daten, die in drei Spalten stehen. Das Funktioniert auch soweit.
'Diagramme erstellen
Sheets("Tabelle1").Select
Range("A" & grenze).Select
Range(Selection, Selection.End(xlUp)).Select
Range("A3:A" & grenze).Select
Range("A" & grenze).Activate
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
ActiveChart.SetSourceData Source:=Range("Tabelle1!$A$3:$A$" & grenze)
'Diagramm anpassen
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MaximumScale = 200
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = 0
ActiveChart.Axes(xlCategory).MaximumScale = max
ActiveChart.SetElement (msoElementLegendRight)
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.FullSeriesCollection(1).Name = "=""Diagramm Titel"""
ActiveChart.FullSeriesCollection(1).Border.ColorIndex = 3
ActiveSheet.Shapes("Diagramm 1").IncrementLeft -400
ActiveSheet.Shapes("Diagramm 1").IncrementTop -400
Nun habe ich für jedes dieser Diagramme Min. und Max. Grenzwerte zwischen denen die Werte in der jeweiligen Spalten liegen sollten. Um nun in den Diagrammen direkt zu sehen ob dort Werte außerhalb dieser Grenzen liegen, würde ich gerne in jedes Diagramm zwei Horizontale Linien einfügen; einmal bei der unteren und einmal bei der oberen Grenze.
Allerdings habe ich das noch nicht hinbekommen. Folgend mal meine Versuche das zu lösen, was allerdings nicht wirklich funktioniert. Es wird zwar eine Linie gezeichnet, aber die ist außerhalb des Diagrammbereichs.
startX = ActiveChart.PlotArea.InsideLeft
startY = 1.7
endX = grenze
endY = 1.7
ActiveChart.Shapes.AddLine(startX, startY, endX, endY).Select
Wäre klasse, wenn mir da jemand weiterhelfen könnte.
Vielen Dank!
Beste Grüße