Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 20:59:30
Buchstaben aus Zelle auftrennen
23.10.2025 18:34:00
Summation/Aggregation von Stücklistenmengen
23.10.2025 14:37:20
Ampel in Excel macht nicht das was sie soll
23.10.2025 12:48:01
Alle Tabellenblätter mehrerer Dateien in einer Datei
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm als Grafik kopieren

Forumthread: Diagramm als Grafik kopieren

Diagramm als Grafik kopieren
07.11.2019 12:25:56
HPG
Hallo,
ich möchte in einem Makro ein Diagramm als Grafik in ein anderes Arbeitsblatt kopieren und danach noch ein kleines bißchen die Größe anpassen. Mit dem Makrorecorder habe ich das so aufgezeichnet:
ActiveChart.ChartArea.Copy
Sheets("alle Betriebszustände").Select
Range("E8").Select
ActiveSheet.Pictures.Paste.Select
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
und es funktioniert auch. Jetzt weiß ich ja mittlerweile, daß man Select vermeiden soll und habe deshalb das hier:
ActiveChart.ChartArea.Copy
Sheets("alle Betriebszustände").Range("E8").Pictures.Paste.Select
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
ausprobiert, was aber nicht funkti0oniert. Woran liegt denn das?
Schöne Grüße
Hanns
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Archivsuche mit Betreff=>1 Treffer=Lösung! (owT)
07.11.2019 13:14:45
EtoPHG

AW: Diagramm als Grafik kopieren
07.11.2019 13:20:08
fcs
Hallo Hans,
manchmal ist der Weg via Select/Selection tatsächlich einfacher. Insbesondere wenn man die korrekten Objekte mit ihren Methoden und Eigenschaften noch nicht so genau kennt.
Ohne Select kann dein Makro vie folgt aussehen.
LG
Franz 
Sub Copy_Diagramm_Grafik_2()
Dim wksZiel As Worksheet
Dim objSh As Shape
ActiveChart.ChartArea.Copy
Set wksZiel = ActiveWorkbook.Worksheets("alle Betriebszustände")
'Bild auf Zielblatt einfügen
With wksZiel
.Pictures.Paste
Set objSh = .Shapes(.Shapes.Count)
End With
'eingefügtes Bild positionieren und skalieren
With objSh
.Top = wksZiel.Range("E8").Top
.Left = wksZiel.Range("E8").Left
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
End With
End Sub

Anzeige
AW: Diagramm als Grafik kopieren
07.11.2019 13:20:47
fcs
Hallo Hans,
manchmal ist der Weg via Select/Selection tatsächlich einfacher. Insbesondere wenn man die korrekten Objekte mit ihren Methoden und Eigenschaften noch nicht so genau kennt.
Ohne Select kann dein Makro vie folgt aussehen.
LG
Franz 
Sub Copy_Diagramm_Grafik_2()
Dim wksZiel As Worksheet
Dim objSh As Shape
ActiveChart.ChartArea.Copy
Set wksZiel = ActiveWorkbook.Worksheets("alle Betriebszustände")
'Bild auf Zielblatt einfügen
With wksZiel
.Pictures.Paste
Set objSh = .Shapes(.Shapes.Count)
End With
'eingefügtes Bild positionieren und skalieren
With objSh
.Top = wksZiel.Range("E8").Top
.Left = wksZiel.Range("E8").Left
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
End With
End Sub

Anzeige
AW: Diagramm als Grafik kopieren
07.11.2019 13:26:29
HPG
Danke für Deine Antwort, aber da scheint mir die Select-Variante tatsächlich einfacher zu sein.
Schönen Gruß
wie gesagt... Archivsuche
07.11.2019 15:33:07
EtoPHG
mit deinem Betreff, Hans
Lösung im ersten Suchtreffer (von NoNet) angepasst auf Deine Gegebenheiten: 
Sub DiagrammAlsBildopieren()
Worksheets("Betriebszustände").ChartObjects("Diagramm 1").CopyPicture
With ActiveSheet
.Cells(8, 5).Activate
.Paste
End With
End Sub

Gruess Hansueli
Anzeige
;

Forumthreads zu verwandten Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Anzeige
Export von Excel Diagrammen als JPG
Excel

Hi zusammen!
Ich habe ein Prblem mit einem (bzw. mehreren) Excel-Diagrammen:
Ich habe eine Datebank mit einer Vielzahl von Datensätzen. Ich wähle in einem anderen Tabellenblatt per Dropdown-Feld je einen Datensatz aus und aus den per sverweis hierher gezogenen Werten aus der Datenbank w...
12.11.2008 11:27:00
Thread-ID: 1023758
6 Beiträge
Anzeige
Bereich von Tabelle1 als Grafik in Tabelle2 einfüg
Tabelle1

Hallo Leute,
ich komm irgendwie nicht weiter und benötige Hilfe.
es soll z.B. von Sheets("Tabelle1") Range("a1:b5")
als Grafik
in Sheets("Tabelle2")
Gruss
Atikar
19.11.2008 17:09:19
Thread-ID: 1026118
3 Beiträge
Bereich als Bild in bestimmter Größeexportieren
dirkraeder

Hallo Excelgemeinde!!
Ich habe ein Problem und benötige eure Hilfe!
Ich habe mir eine Excel Datei gebastelt. In dieser Datei habe ich ein Formular, dass sich durch Auswahl in einem Kombinationsfeld verändert.
Nun muss ich die Ansicht dieses Formulars als GIF-Bilddatei immer wieder m...
26.11.2008 11:08:00
Thread-ID: 1027962
3 Beiträge
screenshot als JPG speichern
heike

Hallo experten,
ich suche eine VBA - Lösung um einen Screenshot zu erzeugen und diesen als JPG abzuspeichern.
Eine Lösung, um eine BMPdatei zu speicher habe ich bereits (sieh unten).
Danke Nepumuk.
Am besten währe genau dieser Ansatz, weil ich das Bild beschneiden kann.
Nur...
16.12.2008 20:47:09
Thread-ID: 1033426
2 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Diagramm als .PNG abspeichern
Grabner

Hallo!
Es geht um folgendes Thema, dass ich vor einiger Zeit mal gestellt hatte:
https://www.herber.de/forum/archiv/1040to1044/t1040069.htm
Das Problem ist, dass es immer nur das erste Diagramm des aktiven Excel-Registers exportiert. Jetzt habe ich mal testweise ActiveSheet.ChartObj...
30.01.2009 12:33:19
Thread-ID: 1045360
4 Beiträge
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
3 Beiträge
Bereich als Bild oder ähnlich in Zwischenspeicher
Theo

Hallo,
irgendwo hab ich mal diese Funktion gesehen, weiß aber leider nicht mehr wo.
Zellen markieren
Tastenkombi und Menü-Einfügen öffnen
Es erscheint ein weiteres Untermenü
(ich glaube irgend etwas mit als Bild in Zwischenspeicher oder ähnlich)
Kennt einer von euch das...
06.03.2009 20:31:40
Thread-ID: 1057450
6 Beiträge
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
Diagramm als Bild
Ulf

Hallo zusammen,
mir will es einfach nicht gelingen ein Diagramm als Bild in eine andere Datei zu kopieren. Vielleicht habt Ihr eine Idee. Bisher habe ich es geschafft das Diagramm zu kopieren, dass sieht dann so aus:
Sheets("Grafiken").Select
Application.Workbooks("Masterdatei_Aktie...
16.04.2009 15:51:00
Thread-ID: 1069109
2 Beiträge
Anzeige
alle Diagramme i allen Tabellenblättern als Grafik
Till

Hallo Leute,
wie kann ich alle Diagramme in einer Exceldatei (aus allen Dateiblättern) in fortlaufend nummerierte Grafiken speichern.
Als Ausgangsposition hab ich dieses hier:
Sub Create_GIF() Dim mychart As Chart Set mychart = ActiveSheet.ChartObjects(1).Chart mychart.Export File...
22.04.2009 09:17:53
Thread-ID: 1070226
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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