Hallo,
weißt jemand wie ich die von mir erstellten Diagramme verschieben und das Aussehen ändern kann? Ich habe versucht das verschieben und editieren in dem Sub MoveAndEdit abzurufen, aber leider klappt das nicht.
Wo ist mein Fehler?
Sub DiagrammErstellen()
Dim DL As Integer
Dim i As Integer
Dim sheet As Worksheet
Set MyWorksheet = ThisWorkbook.Sheets("KPI")
Application.CutCopyMode = False
DL = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To DL
With MyWorksheet.Shapes.AddChart2(216, xlBarClustered).Chart
.ChartArea.ClearContents
.SeriesCollection.NewSeries
With .FullSeriesCollection(1)
.Name = "=Pivot! " & Cells(i, 1).Address
.Values = "=Pivot!" & Range(Cells(i, 2), Cells(i, 3)).Address
End With
Call MoveAndEdit
End With
Next i
End Sub
Sub MoveAndEdit()
With ActiveChart
.Width = 10
.Height = 10
.Top = Cells(i, 2).Top
.Left = Cells(i, 2).Top
End With
End Sub