Problem beim Verbund-Diagram ...
28.01.2005 10:49:44
Marco1005
ich habe bei folgenden Quellcode ein Problem:
Dim cht As Chart
Dim chtSC As SeriesCollection
Dim bytRow As Byte
Dim bytType As Byte
Set cht = ActiveSheet.ChartObjects(1).Chart
Set chtSC = cht.SeriesCollection
bytType = Application.InputBox _
("Bitte wählen sie zwischen:" & vbCrLf & _
"1 für Säulendiagramm" & vbCrLf & _
"2 für Balkendiagramm" & vbCrLf & _
"3 für Liniendiagramm" & vbCrLf & _
"4 für Flächendiagramm", _
Default:="1", Title:="Diagrammtyp", Type:=1)
If bytType = False Then
Exit Sub
ElseIf bytType 4 Then
MsgBox "Falsche Eingabe"
End If
If bytType = 1 Then
chtSC(1).ChartType = xlColumnClustered ' Säule
ElseIf bytType = 2 Then
chtSC(1).ChartType = xlArea ' Balken
ElseIf bytType = 3 Then
chtSC(1).ChartType = xlPie ' Linie
ElseIf bytType = 4 Then
chtSC(1).ChartType = xlAreaStacked ' Fläche
End If
Set cht = Nothing
Set chtSC = Nothing
Application.ScreenUpdating = True
Das Problem ist nachdem das erste Diagramm einwandfrei angezeigt wird und ich danach ein anderes auswähle, wird dieses in das erste eingefügt. Also ein Mischmasch. Ich weiss nicht warum. Sieht Jemand den Fehler?
Vielen, vielen Dank. Bin schon soweit alles zu löschen.
Gruß
Marco