Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro-Grafik

Makro-Grafik
18.02.2005 10:53:06
Ivi
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro-Grafik
18.02.2005 11:25:22
Cardexperte
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige