graph mit vba unabhängig von der quelle
14.08.2003 09:15:15
ralf
ich brauche dringend hilfe!!!
ich habe mit dem makrorekorder die formatierung eines graphen aufgezeichnet und möchte dieses makro nun auf tabellenblätter anwenden die exakt gleich formatiert sind. excel weiss es aber besser als ich und erstellt immer nur den gleichen graphen, basierend auf den original-daten.
kann mir jemand helfen?
hier ist der aufgezeichnete code:
Sub AbsolutEinzel()
' AbsolutEinzel Macro
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("3107e4vc2").Range("L7:N20"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "='3107e4vc2'!R7C10:R20C10"
ActiveChart.SeriesCollection(1).Values = "='3107e4vc2'!R7C12:R20C12"
ActiveChart.SeriesCollection(1).Name = "='3107e4vc2'!R4C12"
ActiveChart.SeriesCollection(2).XValues = "='3107e4vc2'!R7C10:R20C10"
ActiveChart.SeriesCollection(2).Values = "='3107e4vc2'!R7C13:R20C13"
ActiveChart.SeriesCollection(2).Name = "='3107e4vc2'!R4C13"
ActiveChart.SeriesCollection(3).XValues = "='3107e4vc2'!R7C10:R20C10"
ActiveChart.SeriesCollection(3).Values = "='3107e4vc2'!R7C14:R20C14"
ActiveChart.SeriesCollection(3).Name = "='3107e4vc2'!R4C14"
ActiveChart.Location Where:=xlLocationAsObject, Name:="3107e4vc2"
End Sub