6
Diagramme mit Macro platzieren
Hi,
erstmal ein Frohes Neues Jahr an alle.
Zur Frage:
Ich möchte Diagramme in Excel über ein Macro erstellen und platzieren. Das Erstellen klappt inzwischen gut, das platzieren leider überhaupt nicht. Alle Versuche ein entsprechendes Makro aufzunehmen und den Code dann entsprechend anzupassen, haben nicht geholfen.
Hat jemand eine Idee und/oder ein funktionierendes Stück Code?
Danke.
Juryk
erstmal ein Frohes Neues Jahr an alle.
Zur Frage:
Ich möchte Diagramme in Excel über ein Macro erstellen und platzieren. Das Erstellen klappt inzwischen gut, das platzieren leider überhaupt nicht. Alle Versuche ein entsprechendes Makro aufzunehmen und den Code dann entsprechend anzupassen, haben nicht geholfen.
Hat jemand eine Idee und/oder ein funktionierendes Stück Code?
Danke.
Juryk
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 47801
Url: https://administrator.de/forum/diagramme-mit-macro-platzieren-47801.html
Ausgedruckt am: 21.04.2025 um 17:04 Uhr
6 Kommentare
Neuester Kommentar
Hallo juri61!
Das könnte etwa so gehen:
Grüße
bastla
Das könnte etwa so gehen:
With ActiveSheet
.ChartObjects(1).Left = .Columns("D").Left
.ChartObjects(1).Top = .Rows(8).Top
End WithGrüße
bastla
Hallo Bastla,
danke schon mal für die Hilfe, leider ist das noch nicht ganz des Pudels Kern. Mein fertiges Makro soll etwa so aussehen:
Das heißt, ich erzeuge die Plots in einer Schleife und will den nächsten Plot immer neben/unter dem vorhergehenden erzeugen.
Wie komme ich an die Nummer des Charts, mit der ich den entsprechenden Plot als ChartObject ansprechen kann. Meine Variable chartID, so wie ich sie verwendet habe, funktioniert nicht. Wo stehe ich auf dem Schlauch?
Danke und Gruß
Juryk
danke schon mal für die Hilfe, leider ist das noch nicht ganz des Pudels Kern. Mein fertiges Makro soll etwa so aussehen:
For leg = 0 To numLegs
Charts.Add
With ActiveChart
.Name = plname
.ChartType = xlXYScatterLinesNoMarkers
.SetSourceData Source:= _
Worksheets(wsindex).Range(dataLeft, dataRight), _
PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:="Plots"
End With
chartID = ActiveChart.Index
With ActiveSheet
.ChartObjects(chartID).Left = .Columns("D").Left
.ChartObjects(chartID).Top = .Rows(8).Top
End With
End ForDas heißt, ich erzeuge die Plots in einer Schleife und will den nächsten Plot immer neben/unter dem vorhergehenden erzeugen.
Wie komme ich an die Nummer des Charts, mit der ich den entsprechenden Plot als ChartObject ansprechen kann. Meine Variable chartID, so wie ich sie verwendet habe, funktioniert nicht. Wo stehe ich auf dem Schlauch?
Danke und Gruß
Juryk
Hallo juri61!
Du könntest einfach die Count-Eigenschaft der ChartObjects-Auflistung verwenden (da Du ja das zuletzt hinzugefügte Diagramm platzieren willst):
Alternativ dazu gäbe es noch eine ChartObjects.Add-Methode, der Du die Position mitgeben kannst (siehe Hilfe zur ChartObjects-Auflistung) - habe ich aber noch nicht ausprobiert.
Grüße
bastla
Du könntest einfach die Count-Eigenschaft der ChartObjects-Auflistung verwenden (da Du ja das zuletzt hinzugefügte Diagramm platzieren willst):
With ActiveSheet
.ChartObjects(.ChartObjects.Count).Left = .Columns("D").Left
.ChartObjects(.ChartObjects.Count).Top = .Rows(8).Top
End WithGrüße
bastla
Hi Bastla,
Gibt bei mir leider nur Typen unverträglich.? Hast du da noch eine Idee?
Mit ChartObjects.Add bin ich gerade am experimentieren. Hat aber noch keinen Erfolg.
Gruß
Juryk
With ActiveSheet
.ChartObjects(.ChartObjects.Count).Left= .Columns("D").Left
.ChartObjects(.ChartObjects.Count).Top =.Rows(8).Top
End With
Gibt bei mir leider nur Typen unverträglich.? Hast du da noch eine Idee?
Mit ChartObjects.Add bin ich gerade am experimentieren. Hat aber noch keinen Erfolg.
Gruß
Juryk
Hallo juri61!
Stell versuchsweise vor diese 4 Zeilen ein
Grüße
bastla
Stell versuchsweise vor diese 4 Zeilen ein
ActiveWindow.Visible = FalseGrüße
bastla
Hi Bastla,
danke für den Tip. Muss ich bei Gelegenheit auch mal testen.
Habe mich fur die ChartObjecs.Add Methode entschieden. Das sieht dann ungefähr so aus:
Danke und Gruß
Juryk
danke für den Tip. Muss ich bei Gelegenheit auch mal testen.
Habe mich fur die ChartObjecs.Add Methode entschieden. Das sieht dann ungefähr so aus:
Set plt = Sheets("Plots").ChartObjects.Add(pLeft, pTop + leg * pOff, pWidth, pHeight)
pltID = plt.Index
Sheets("Plots").ChartObjects(pltID).Activate
With ActiveChart
.ChartType = xlXYScatterLinesNoMarkers
.SetSourceData Source:= _
Worksheets(wsindex).Range(dataLeft, dataRight), _
PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:="Plots"
End WithDanke und Gruß
Juryk
