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



Auf einen Blick - Alle Folgen der VideoReihe!

Du hast ein Thema das noch nicht behandelt wurde? Lass es mich wissen :)


Jetzt abonnieren & kein Video

mehr verpassen!

Meine Arbeit unterstützen

Meine Empfehlungen

(Bücher und mehr)