ich möchte mit folgendem Code ein Diagramm (Diagrammtyp "Punkt (X Y)") formatieren:
<pre>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strName As String
strName = ActiveSheet.Range("A1").Value
With ActiveSheet.ChartObjects(strName).Chart
'Category (Y) Axis
With .Axes(xlValue)
.MaximumScale = Range("B33")
.MinimumScale = Range("C33")
.MajorUnitIsAuto = True
.MinorUnitIsAuto = True
.MajorTickMark = xlOutside
.MinorTickMark = xlOutside
.HasMajorGridlines = True
.HasMinorGridlines = False
'.Selection.TickLabels.NumberFormat = "#.##0,00"
End With
'Category (X) Axis
With .Axes(xlCategory)
.MaximumScale = Range("F33")
.MinimumScale = Range("G33")
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
End With
'Formatierung Diagrammtitel
If .HasTitle = True Then
With .ChartTitle.Format.TextFrame2.TextRange.Font
.Name = "Arial"
.Size = 14
End With
End If
'Formatierung Legende
If .HasLegend = True Then
With .Legend.Format.TextFrame2.TextRange.Font
.Name = "Arial"
.Size = 10
End With
End If
'Formatierung Diagrammfläche
With .ChartArea.Format
With .Fill
.ForeColor.RGB = RGB(255, 255, 255) 'weiß
End With
With .Line
.Visible = msoTrue
.DashStyle = msoLineSolid
.Weight = 0
.ForeColor.RGB = RGB(255, 255, 255) 'weiß
End With
End With
'Formatierung Zeichnungsfläche
With .PlotArea.Format
With .Fill
.Visible = msoFalse
.ForeColor.RGB = RGB(255, 255, 255) 'weiß
End With
With .Line
.Visible = msoFalse '=msoTrue wenn Linie angezeigt werden soll
.DashStyle = msoLineSolid
.Weight = 1
.ForeColor.RGB = RGB(127, 127, 127) 'weiß, Hintergrund 1, dunkler 50%
End With
End With
End Sub</pre>
Folgende Probleme habe ich jetzt:
- Zahlenformat ändern der y-Achse funktioniert nicht, wünschenswert wäre es, das Zahlenformat aus einer Zelle (Tabellenblatt "Diagramm", Zelle "E35")zu übernehmen, da ich da verschiedene Bedingungen habe.
- Formatierung Diagrammtitel meldet Fehler "Fehler beim Kompilieren: Unzulässiger oder nicht ausreichender Verweis"
- Formatierung Legende meldet Fehler "Fehler beim Kompilieren: Unzulässiger oder nicht ausreichender Verweis"
- Formatierung Diagrammfläche meldet Fehler "Fehler beim Kompilieren: Unzulässiger oder nicht ausreichender Verweis"
- Formatierung Zeichnungsfläche meldet Fehler "Fehler beim Kompilieren: Unzulässiger oder nicht ausreichender Verweis"
Mit dem Makrorekorder komme ich auch nicht wirklich weiter.
Kann mir bitte jemand helfen?
Vielen Dank im Voraus für Eure Hilfe.
Viele Grüße
Ralf