ein Histogramm mit 3 Varianten
Peter
für einen Bekannten habe ich aus drei Spalten (Hmin, Hmax und MW) jeweils ein Histogramm erstellt.
In Spalte Z stehen ab Zeile 2 bis 36 die Klassen, Hmin in den Zellen G2:G2330, Hmax in den Zellen H2:H2330, MW in den Zellen I2:I2330.
Nun möchte der Anwender möglichst nicht 3 Histogramme haben sondern alles in einem Histogramm mit 3 unterschiedlich farbigen Kennlinien.
Die Erstellung erfolgt über VBA, hier für das erste Histogramm:
Public Sub Histogramme()
Dim WkSh As Worksheet
Dim sDiag_Name As String
Set WkSh = ThisWorkbook.Worksheets("Tabelle2")
WkSh.Range("M20:N150").ClearContents
Application.Run "ATPVBAEN.XLA!Histogram", WkSh.Range("$G$2:$G$2330") _
, WkSh.Range("$M$20"), WkSh.Range("$Z$2:$Z$36"), False, False, True, False
sDiag_Name = WkSh.ChartObjects(1).Name
ActiveSheet.ChartObjects(sDiag_Name).Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartType = xlLineStacked
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Hmin"
ActiveSheet.Shapes(sDiag_Name).ScaleHeight 1.7, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes(sDiag_Name).ScaleWidth 1.33, msoFalse, _
msoScaleFromTopLeft
End Sub
Für sachdienliche Hinweise schon jetzt vielen Dank im voraus.
Gruß Peter
Anzeige