Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Erstellen eines Diagramms mit y-Achsen unter VBA!

Erstellen eines Diagramms mit y-Achsen unter VBA!
09.08.2002 11:14:48
Christian
Hallo zusammen,

ich möchte unter VBA ein Diagramm mit 2 y-Achsen erstellen. Dabei habe ich mit dem Macro-Recorder folgenden Code aufgenommen:
Leider tritt ein Fehler auf (siehe Textmarkierung). Wo liegt das Problem???


Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Linien auf zwei Achsen"
ActiveChart.SetSourceData Source:=Sheets("Staffing-Ergebnis").Range("A1:B6"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, name:="Staffing-Ergebnis"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "^1"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "2"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "3"

-> Fehler in der nachfolgenden Zeile
.Axes(xlCategory, xlSecondary).HasTitle = True
.Axes(xlCategory, xlSecondary).AxisTitle.Characters.Text = "4"
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "5"
End With


Mit freundlichen Grüßen

Christian

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Erstellen eines Diagramms mit y-Achsen unter VBA!
09.08.2002 11:52:44
Herbert
Hallo Christian,
Es war keine sekundäre Größenachse und keine sek.Rubrikenachse vorhanden.
Darum die Fehlermeldung.
Gruß Herbert

Sub Chart()
Application.ScreenUpdating = False
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Linien auf zwei Achsen"
ActiveChart.SetSourceData Source:=Sheets("Staffing-Ergebnis").Range("A1:B6"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Staffing-Ergebnis"

ActiveChart.SeriesCollection(2).AxisGroup = 2
 ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
    ActiveChart.Axes(xlCategory, xlSecondary).CategoryType = xlAutomatic
    
With ActiveChart
        .HasAxis(xlCategory, xlPrimary) = True
        .HasAxis(xlCategory, xlSecondary) = True
        .HasAxis(xlValue, xlPrimary) = True
        .HasAxis(xlValue, xlSecondary) = True
  .HasTitle = True
  .ChartTitle.Characters.Text = "^1"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "2"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "3"
 

.Axes(xlCategory, xlSecondary).HasTitle = True
.Axes(xlCategory, xlSecondary).AxisTitle.Characters.Text = "4"
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "5"
End With
Sheets("Staffing-Ergebnis").[A1].Activate
Application.ScreenUpdating = False
End Sub

     Alles über Formeln

Anzeige
Danke es funktioniert!
09.08.2002 13:06:02
Christian
Danke!
Re: Danke es funktioniert!
09.08.2002 18:50:00
Herbert
Hallo Christian,
"Screenupdating" mußt du am Ende natürlich wieder auf "True" setzen.
Gruß Herbert

37 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige