Salü!
ein Problem gelöst, ein neues da...
aus einer Tabelle, wie hier: http://www.herber.de/bbs/user/71066.xlsx
lass ich ein balkendiagramm erstellen aus einer eigenen vorlage.
soweit so gut dank franz!
meine augen geben leider mittlerweile auf angesichts der tatsache, dass ich zu den Datenreihen die nebenstehenden werte als standardabweichungen eingefügt haben möchte. d.h. ich möcht mich irgendwie auf eine von mir definierte range beziehen.
der bestehende code:
Sub WegDiagramm4()
Dim chDiagramm As ChartObject
Dim oReihe As Series, oAxis As Axis, rangeError As Range
Set chDiagramm = ActiveSheet.ChartObjects.Add(80, 80, 200, 200)
With chDiagramm.chart
.SetSourceData Source:=ActiveCell.Offset(0, 0).Range("A1:D5")
Set rangeError = Range("E2:E5")
.ApplyChartTemplate ("C:\Dokumente und Einstellungen\Notebook\" _
& "Anwendungsdaten\Microsoft\Templates\Charts\SimsnMasterBalkenW.crtx")
.Axes(xlValue, xlPrimary).AxisTitle.Text = "Weg [mm]"
With .SeriesCollection(1)
.ErrorBar Direction:=xlY, Include:=xlBoth, Type:=xlCustom, _
Amount:=rangeError
'.ErrorBar Direction:=xlY, Include:=xlBoth, Type:=xlCustom, _
Amount:=rangeError, MinusValues:=rangeError
End With
End With
End Sub
alles zusätzliche hab ich grad rausgelöscht, und bin dabei das ganze mit der ersten seriescollection zu versuchen, also nicht wundern, dass nur die grad angesprochen wird.
der permanente Fehler heißt: Typen unverträglich bei .ErrorBar...
versucht habe ich:
rangeError als Range wie hier direkt anzusprechen,
mit activecell.offset().range(),
mit xlboth und sowohl nur mit amount, als auch mit minusvalue dahinter,
mit noch berschiedenen varianten von xlPlusValues, xlMinusValues, etc...
...leider immer derselbe Fehler, deshalb hab ich versucht an der deklaration rumzuspielen, aber da fürcht ich reichen meine VBA fähigkeiten einfach nicht um da dahinter zu kommen...
...
hat jemand einen tip?
dankeschön für hilfreiche leser!
Gruaß,
Simon |