Das Archiv des Excel-Forums

Diagramm per VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label
Bild

Betrifft: Diagramm per VBA
von: martin

Geschrieben am: 04.10.2003 12:01:09

Hallo,

ich möchte per VBA Diagramme in verschiedene Blätter einfügen. Dazu dient folgender Code von Hans Herber:


Sub CreateAndDelete()
Dim cht As Chart
On Error Resume Next
ActiveSheet.ChartObjects(1).Delete
On Error GoTo 0
Set cht = Charts.Add
cht.ChartType = xlColumnClustered
cht.SetSourceData Source:=Sheets("Tabelle1").Range("A1").CurrentRegion
cht.Location Where:=xlLocationAsObject, Name:="Tabelle1"
Range("A1").Select
End Sub


Alles schön und gut, aber gibt es auch eine Möglichkeit, wie man die Position eines Diagramms festlegen kann ?
z.B: linke, obere Ecke = A15 ... oder so ähnlich

Mit Bildern funktioniert das ja folgendermaßen:

Set Shp = Tabelle.Pictures.Insert("D:\Test.jpg")
Shp.Top = Range("C3").Top
Shp.Left = Range("C3").Left

Hat jemand einen Tipp, ob oder wie man das mit Diagrammen macht??

Danke im Voraus

Martin
Bild


Betrifft: AW: Diagramm per VBA
von: Reinhard
Geschrieben am: 04.10.2003 12:23:24

Hi Martin,
schau doch erstmal in die Hilfe, da findest du z.B.:
Gruß
Reinhard

Add-Methode (ChartObjects-Auflistung)
Erstellt ein neues eingebettetes Diagramm. Gibt ein ChartObject-Objekt zurück.
Syntax
Objekt.Add(Left, Top, Width, Height)
Objekt Erforderlich. Ein Ausdruck der ein ChartObjects-Objekt zurückgibt.
Left, Top Long erforderlich. Die Anfangskoordinaten des neuen Objekts (in Punkt), relativ zur oberen linken Ecke der Zelle A1 oder zur oberen linken Ecke eines Diagramms.
Width, Height Long erforderlich


Beispiel zur Add-Methode (ChartObjects-Auflistung)
In diesem Beispiel wird ein neues eingebettetes Diagramm erstellt.
Set co = Sheets("Sheet1").ChartObjects.Add(50, 40, 200, 100)
co.Chart.ChartWizard Source:=Worksheets("Sheet1").Range("A1:B2"), _
Gallery:=xlColumn, Format:=6, PlotBy:=xlColumns, _
CategoryLabels:=1, SeriesLabels:=0, HasLegend:=1


Bild


Betrifft: AW: Diagramm per VBA
von: martin
Geschrieben am: 05.10.2003 13:50:38

Danke, Reinhard

Hatte mittlerweile schon eine Lösung gefunden. Aber Deine ist offensichtlich einfacher handzuhaben, muß ich gleich mal ausprobieren.

gruss, Martin


Bild


Betrifft: THx für die Rückmeldung o.w.T.
von: Reinhard
Geschrieben am: 05.10.2003 19:49:33

.


 Bild

Excel-Beispiele zum Thema " Diagramm per VBA"

Diagramm in Userform download Export von Diagrammen im Grafikformat download
Diagramm aus Arbeitsblatt in Diagrammblatt übertragen download Balkendiagramm simulieren download
Diagramm aus Daten einer Bandbreite bilden download Diagramm-Datenreihen blinken lassen und Linie langsam zeichnen download
Diagramm exportieren und in Tabellenblatt importieren download Eine Serie von Diagrammen erstellen und Druckansicht zeigen download
Diagramm-Datenbereich über Schaltfläche festlegen download Mit einer Diagramm-Bildlaufleiste durch Tabelle bewegen download
Gleiche Zufallszahlen zählen und in Diagramm anzeigen download Diagrammdatenreihe mit VBA ändern download
Diagramm erstellen, in UserForm anzeigen und drucken download Dynamisches Diagramm download
Diagramm dynamisch erstellen download Hyperlink zu einem Diagrammblatt. download
Diagramm zu PowerPoint-Präsentation konvertieren und aufrufen download Bei Rechtsklick auf Diagramm MessageBox-Aufruf download