ID für Diagrammtyp?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Alex,
da hat Nepumuk Recht : Da es sich um einen "benutzerdefinierten" Diagrammtyp handelt, ist dieser leider nicht als Konstante hinterlegt.
Allerdings könntest Du ja auch z.B. ein "gewöhnliches" Linien-Diagramm aus 3 Spalten erstellen und dann die 2. Datenreihe nachträglich auf die Sekundärachse "verschieben".
Als VBA-Code formuliert sieht das dann z.B. so aus :

VBA-Code:

Sub DiagrammLinieSaeuleAuf2Achsen()
'Erstellt ein Liniendiagramm aus 2 Spalten und "verschiebt" die 2. Datenreihe auf die Sekundärachse :
Dim strShName As String, rngBereich As Range

    strShName = ActiveSheet.Name 'Name des aktuellen Tabellenblattes sichern
Set rngBereich = Sheets(strShName).Range("D1:F21") 'Datenbereich bitte anpassen !
With Charts.Add

        .SetSourceData Source:=rngBereich, PlotBy:=xlColumns

        .SeriesCollection(1).XValues = "='" & strShName & "'!" & _

            rngBereich.Offset(1).Resize(rngBereich.Rows.Count - 1, 1).Address(1, 1, xlR1C1)

        .ChartType = xlLineMarkers                              'Diagrammtyp : Linien mit Punkten

        .HasDataTable = False

        .SeriesCollection.NewSeries                             'Neue Datenreihen hinzufügen
With .SeriesCollection(2)                               '2.Datenreihen definieren :

            .XValues = "='" & strShName & "'!" & _

                rngBereich.Offset(1, 0).Resize(rngBereich.Rows.Count - 1, 1).Address(1, 1, xlR1C1)

            .Values = "='" & strShName & "'!" & _

                rngBereich.Offset(1, 1).Resize(rngBereich.Rows.Count - 1, 1).Address(1, 1, xlR1C1)

            .Name = "='" & strShName & "'!" & _

                rngBereich(2, 2).Address(1, 1, xlR1C1)
End With

        .Location Where:=xlLocationAsObject, Name:=strShName    'Als Objekt in aktuellem Tabellenblatt
End With
'2. Datenreihe auf Sekundärachse "verschieben"

    ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2).AxisGroup = 2
End Sub

Gruß, NoNet

					 @NoNet
				
					Herbert
				
hast du meine e-mail vom letzten mittwoch nun auch wieder nicht bekommen?

sorry alex, ich bitte um nachsicht! ;o)=)

gruß herbert

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread