Automatische Diagrammerstellung
11.10.2016 13:37:00
Tim
' Diagramme
WB.Worksheets.Add After:=WB.Sheets(Sheets.Count)
Sheets("Tabelle2").Select
Sheets("Tabelle2").Name = "Diagramme"
Range("B1").Select
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
ActiveSheet.Shapes("Diagramm 1").IncrementLeft -345.75
ActiveSheet.Shapes("Diagramm 1").IncrementTop -105.75
ActiveSheet.Shapes("Diagramm 1").ScaleWidth 2.5625, msoFalse, _
msoScaleFromTopLeft
ActiveChart.SetSourceData Source:=wksXLS. _
Range("A6:Q100")
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
ActiveSheet.Shapes("Diagramm 2").IncrementLeft -345.75
ActiveSheet.Shapes("Diagramm 2").IncrementTop 120.75
ActiveSheet.Shapes("Diagramm 2").IncrementLeft 1.5
ActiveSheet.Shapes("Diagramm 2").IncrementTop -0.75
ActiveSheet.Shapes("Diagramm 2").ScaleWidth 2.5645833333, msoFalse, _
msoScaleFromTopLeft
ActiveChart.SetSourceData Source:=wksLOG.Range( _
"A2:A100,C2:C100")
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
Selection.Caption = "Zeit [hh:mm:ss]"
ActiveChart.ChartArea.Select
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
' Selection.Caption = "Temperatur [°C]"
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
Selection.Caption = "Zeit [hh:mm:ss]"
ActiveChart.ChartArea.Select
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
' Selection.Caption = "Sauerstoffkonzentration [%]"
Range("A18").Select
Außerdem bekomme ich eine Fehlermeldung bei den Y-Achsen Beschriftungen, wobei diese auch mit dem Makro Recorder aufgenommen worden sind.
Vielen Dank für euren Support
LG Tim