Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 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
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
Anzeige
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!
Ich will ein Excel-Diagram in möglichst hoher Qualität abspeichern. Wenn ich es nur mit Strg-C & Strg-V mache, dann ist das Diagram ziemlich klein. Ich habe dazu folgendes gefunden:
http://www.xxcl.de/0025.htm
Aber irgendwas mache ich anscheinend falsch. So habe ich den...
15.01.2009 12:32:23
Thread-ID: 1040069
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
33
4
5
2
2
1
2
2
3
2
5
1
1
2
3
3
1
1
5
2
5
3
8
4
1