ich möchte mittels VBA mehrere Diagramme zeichnen und diese auf einem Tabellenblatt anordnen. Wie kann ich die Position der Diagramme und deren Größe möglichst einfach beeinflussen.
Dank im Vorraus
Gerd
Sub Diagramm()
'Diagramm einfügen
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("C1:D24"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "DezZahl"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
'Diagramm positionieren
With ActiveSheet
.Shapes(Mid(ActiveChart.Name, Len(.Name) + 1, 200)).Top = .Range("A12").Top
.Shapes(Mid(ActiveChart.Name, Len(.Name) + 1, 200)).Left = .Range("A12").Left
.Shapes(Mid(ActiveChart.Name, Len(.Name) + 1, 200)).Width = 300
.Shapes(Mid(ActiveChart.Name, Len(.Name) + 1, 200)).Height = 200
End With
End Sub