Excel VBA Befehle aus Folge 2: Ein Diagramm in ein Tabellenblatt einbetten

Inhalt dieser Folge:

  • Wie bette ich ein Diagramm in ein Tabellenblatt ein?
  • Wie passte ich die Position und Größte des Diagramms im Tabellenblatt an?

Ein eingebettetes Diagramm erstellen

Sub EingebettetesDiagramm()

 

'Variable für das Diagramm definieren

Dim MeinDiagramm As Chart

 

'Variable für den Rahmen definieren

Dim Rahmen As ChartObject

 

'Rahmen erzeugen

Set Rahmen = ThisWorkbook.Worksheets("Informationen").ChartObjects.Add (190, 30, 250, 150)

 

'Das Diagramm dem Rahmen zuweisen

Set MeinDiagramm = Rahmen.Chart

 

'Werte aus dem Tabellenblatt in das Diagramm einlesen

MeinDiagramm.SetSourceData Worksheets("Informationen").Range("B5:C12")

 

End Sub


Das Diagramm und den Rahmen bearbeiten

Sub DiagrammBearbeiten()

 

'Variable für das Diagramm definieren

Dim MeinDiagramm As Chart

Dim Rahmen As ChartObject

Set Rahmen = ThisWorkbook.Worksheets("Informationen").ChartObjects(1)

 

'Das Diagramm dem Rahmen zuweisen

Set MeinDiagramm = Rahmen.Chart

 

'Diagramm bearbeiten: Bspw. DiagrammTyp festlegen

MeinDiagramm.ChartType = xlLine 

 

'Rahmen bearbeiten

Rahmen.Left = 180

Rahmen.Top = 10

Rahmen.Width = 200

Rahmen.Height = 200

 

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)