Excel VBA Befehle aus Folge 1: Ein DiagrammBlatt erstellen
Inhalt dieser Folge:
- Wie stelle ich den Inhalt eines Tabellenblattes in einem DiagrammBlatt dar?
-
Wie wähle ich einen anderen Diagrammtyp aus?
- Wie nehme ich erste Änderungen der Diagrammelemente vor? (Titel des Diagramms, Achsenbeschriftung)
- Wie lege ich den minimalen- und den maximalen Skalenwert fest?
|
Sub DiagrammBlattErstellen()
'Grundlegende
Einstellungen für das DiagrammBlatt
'1. DiagrammBlatt
hinzufügen
ThisWorkbook.Charts.Add Before:=Worksheets("Informationen")
'2. Werte aus dem
Tabellenblatt in das Diagramm einlesen
ActiveChart.SetSourceData Worksheets("Informationen").Range("B5:C12")
'3. Name für das
DiagrammBlatt festlegen
ActiveChart.Name = "DiagrammBlatt"
End Sub |
|
Sub DiagrammBearbeiten()
'Variable für das DiagrammBlatt definieren
Dim MeinDiagramm As Chart 'Der Variable das Objekt zuweisen
Set
MeinDiagramm = ThisWorkbook.Charts("DiagrammBlatt")
'Den DiagrammTyp
festlegen
MeinDiagramm.ChartType = xlLine
'Titel des Diagramms
festlegen
MeinDiagramm.HasTitle = True MeinDiagramm.ChartTitle.Text = "Bestellübersicht"
'Achsenbeschriftung
für die X-Achse
With MeinDiagramm.Axes(xlCategory) .HasTitle = True .AxisTitle.Text = "Datum" .TickLabels.NumberFormatLocal = "TT.MM" End with 'Achsenbeschriftung für die X-Achse With MeinDiagramm.Axes(xlValue) .HasTitle = True .AxisTitle.Text = "Bestellungen" .MinimumScale = 10 .MaximumScale = 35 End With
End Sub |