Makro-Grafik
18.02.2005 10:53:06
Ivi
habe mit ein Makro aufgezeichnet und es funktioniert nicht!
Ich weiss glaube ich warum es nicht geht.
Es liegt vermutlich an den "ActiveSheet.Shapes("Diagramm 125").ScaleWidth "...
er zählt die Diagramm 125,126 fortlaufend.Aber es steht bei jeder
neuen grafik die alte zahl da.
Wie kann ich das umgehen?
vorab schon mal Danke...
Gruß
Ivi
Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Diagramm").Range("H13")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Diagramm!R3C10:R38C10"
ActiveChart.SeriesCollection(1).Values = "=Diagramm!R3C11:R38C11"
ActiveChart.SeriesCollection(1).Name = "=Diagramm!R2C11"
ActiveChart.SeriesCollection(2).XValues = "=Diagramm!R3C10:R38C10"
ActiveChart.SeriesCollection(2).Values = "=Diagramm!R3C12:R38C12"
ActiveChart.SeriesCollection(2).Name = "=Diagramm!R2C12"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Diagramm"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Auszahlungsprofil"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Aktienkurs"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Performance"
End With
ActiveSheet.Shapes("Diagramm 125").ScaleWidth 0.83, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 125").ScaleHeight 1.31, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 125").IncrementLeft 483#
ActiveSheet.Shapes("Diagramm 125").IncrementTop -135#
ActiveSheet.Shapes("Diagramm 125").ScaleWidth 1.27, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 125").ScaleHeight 1.4, msoFalse, _
msoScaleFromTopLeft