Mein Problem ist folgendes:
Ich lasse ein Diagramm erstellen als Object.Chart in der Tabelle "Müller Martini Druck". diesem Diagramm möchte ich einen "Titel" geben, damit ich es referenzieren kann, um Grösse und Position des Diagramms zu bestimmen. (nicht einfach nur Diagramm 1 - es existieren eben mehrere Diagramme^^)
2. Problem: ich möchte die Farbe einzelner Werte Verändern... statt gelb z.b. grün machen o.ä. wer kann mir helfen?
Code
- Sub Makro6()
- '
- ' Makro6 Makro
- ' Makro am 13.06.2008 von Sascha Bosshard aufgezeichnet
- '
- '
- Charts.Add
- ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
- "Linie - Säule auf zwei Achsen"
- ActiveChart.SetSourceData Source:=Sheets("Müller Martini Druck").Range( _
- "A50:A55,D50:O55"), PlotBy:=xlRows
- ActiveChart.Location Where:=xlLocationAsObject, Name:="Müller Martini Druck"
- With ActiveChart
- .HasTitle = False
- .Axes(xlCategory, xlPrimary).HasTitle = False
- .Axes(xlValue, xlPrimary).HasTitle = True
- .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "CHF"
- End With
- With ActiveChart
- .HasAxis(xlCategory, xlPrimary) = True
- .HasAxis(xlCategory, xlSecondary) = False
- .HasAxis(xlValue, xlPrimary) = True
- .HasAxis(xlValue, xlSecondary) = False
- End With
- ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
- With ActiveChart.Axes(xlCategory)
- .HasMajorGridlines = False
- .HasMinorGridlines = False
- End With
- With ActiveChart.Axes(xlValue)
- .HasMajorGridlines = True
- .HasMinorGridlines = False
- End With
- ActiveChart.SeriesCollection(3).ChartType = xlLineMarkers
- ActiveChart.SeriesCollection(4).ChartType = xlLineMarkers
- ActiveChart.SeriesCollection(5).ChartType = xlColumnClustered
- ActiveSheet.ChartObjects("Diagramm 1").Height = 1024
- ActiveSheet.ChartObjects("Diagramm 1").Width = 768
- End Sub
