Ich mache einen Macro der 4 Diagramme in ein Excel Blatt einfügt. Und zwar soll Diagramm 1 von E3 bis I20 gehen, Diagramm 2 von K3 bis O20, der Dritte
E22 bis I39 und der Vierte K22 bis O39.
Hier erstmal der Vba-code des ersten:
Sub Macro1()
' Macro6 Macro
' Macro recorded 26.08.2004 by SCHELLWA
Application.ScreenUpdating = False
Charts.Add
ActiveChart.ChartType = xlCylinderColClustered
ActiveChart.SetSourceData Source:=Sheets("Analyse des letzten Monats").Range( _
"A50:G50,A52:G52"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:= _
"Analyse des letzten Monats"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Statusverteilung in %"
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
With ActiveChart
.HasAxis(xlCategory) = False
.HasAxis(xlSeries) = False
.HasAxis(xlValue) = True
End With
ActiveChart.Axes(xlCategory).CategoryType = xlAutomatic
ActiveChart.HasDataTable = False
ActiveSheet.Shapes("Chart 1").IncrementLeft 208.5
ActiveSheet.Shapes("Chart 1").IncrementTop -216.75
ActiveSheet.Shapes("Chart 1").ScaleWidth 0.65, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Chart 1").ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
'ActiveSheet.Shapes("Chart 1").Height (320)
'ActiveSheet.Shapes("Chart 1").Width (320)
'ActiveSheet.Shapes("Chart 1").Top (0)
'ActiveSheet.Shapes("Chart 1").Left (20)
Application.ScreenUpdating = True
End Sub
Wie man sieht ist es immer nur der relative Bezug und ich würde es gerne als absoluten Bezug stehen haben, aber wie? Ich habe in den letzten paar Zeilen des Codes dies schon versucht, bekomme aber immer Fehlermeldung. "Object doesnt support this method or property". Wie würdet ihr das machen?
mit freundlichen Grüssen
Waldemar