Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Chart-Objekt von Daten "lösen"

Forumthread: Chart-Objekt von Daten "lösen"

Chart-Objekt von Daten "lösen"
29.09.2003 20:55:57
Florian
Hallo!

Kann ich mit VBA z.B. die Punkte (1,2) und (2,4) in einem
Diagramm plotten, ohne, dass die Punkte selbst in einem
Worksheet (Zelle) gespeichert sind?

Bzw.: Kann man ein Diagramm von seiner Datenquelle "lösen"?
(So wie bei 'Werte einfügen')

Hintergrund:

Ich möchte mir eine sinnvollere Histogramm-Routine basteln.
Für die Anzahl der Töpfchen bei äquidistanter Verteilung der
'Bruchstellen' gibt's ein paar nette Regeln, z.B. "Sturges'
Formel (~1+log2(n) Töpfchen) etc.

Dazu muss ich irgendwo die Töpfchen und die Häufigkeiten
speichern, das möchte ich aber nicht in dem Sheet machen, wo das
Histogramm rein soll. Versteckte Hilfs-Sheets finde ich auch etwas
schlecht, vor allem, wenn's nachher viele Histogramme werden.

Eine Lösung wäre: neues Sheet nehmen, Chart zurechtbasteln, dann das
"Bild" des Charts wieder an die entsprechende Stelle packen.

Was tun?

Danke, Florian
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Chart-Objekt von Daten "lösen"
29.09.2003 21:18:29
andre
hallo florian,
du kannst in einem diagramm statt der zellbezüge auch wertereihen einsetzen.
z.b. so in einer datenreihe: ={2.2.3}
die daten werden dabei durch punkt getrennt.
gruss andre
AW: Chart-Objekt von Daten "lösen"
29.09.2003 21:31:12
Nepumuk
Hallo Florian,
Diagramm anklicken Shifttaste drücken und halten, dann in der Menüleiste Bearbeiten - Bild kopieren und in einer anderen Tabelle einfach wieder einfügen.
Gruß
Nepumuk
Anzeige
AW: Chart-Objekt von Daten "lösen"
29.09.2003 21:59:42
Florian
Danke!

Das ist dann die Methode

ActiveChart.CopyPicture

das ginge schonmal!
AW: Chart-Objekt von Daten "lösen"
29.09.2003 22:02:28
Florian
Hi Andre!

Danke für die Antwort...

Verstehe ich aber nicht ganz.

Die Frage ist, wie bekomme ich anstelle der Fragezeichen harte Werte
rein (Excel erwartet da ein Range-Objekt).

Gruß, Florian

Charts.Add

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:= ??? , PlotBy:=xlColumns

ActiveChart.Location Where:=xlLocationAsObject

With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Anzeige
AW: Chart-Objekt von Daten "lösen"
29.09.2003 22:41:32
andre
hallo florian,
im prinzip so:

Sub Makro2()
' Makro2 Makro
' Makro am 29.09.2003 von wanderer aufgezeichnet
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.SeriesCollection.Add Source:=Range("a1")
ActiveChart.SeriesCollection(1).Values = "={2,2,3}"
End Sub

gruss andre
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige