Makro-Grafik

Bild

Betrifft: Makro-Grafik von: Ivi
Geschrieben am: 18.02.2005 10:53:06

Hallo liebe Excel-Gemeinde,

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

Bild


Betrifft: AW: Makro-Grafik von: Cardexperte
Geschrieben am: 18.02.2005 11:25:22

Hello Ivi,
leg doch einfach den Namen des Diagramms fest, also da wo jetzt "Diagramm 125" drin steht kommt der Name rein, den kannst du dort wo with activeChart steht mit .name="Fest" einen festen Namen vergeben, aber alles nicht getestet, wenn du nicht weiter kommst stell doch mal ein Beispiel hier rein!
Gruss WS


 Bild

Beiträge aus den Excel-Beispielen zum Thema "zellen formatieren"