Diagramm von Excel nach Powerpoint kopieren

Forumthread: Diagramm von Excel nach Powerpoint kopieren

06.08.2013 09:05:36

Excel

Hi zusammen,
i need help...
Eine ganz simple doch für mich nach langer Suche mit google nicht lösbare Frage.
Kopieren eines Diagramms von Excel nach Powerpoint. Dabei soll die ursprüngliche Formatierung beibehalten werden. Mehr nicht.. Mein bisheriger Code fügt es zwar als Diagramm ein, doch leider als Zieldesign...


Sub Excel_Diagramm_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
'Dateiname
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
.Visible = True
.Presentations.Open Filename:= _
"Pfad zur Datei" 'Link wurde entfernt
.ActivePresentation.Slides(2).Select
Sheets(2).ChartObjects(1).Copy
.ActivePresentation.Slides(2).Shapes.PasteSpecial DataType:=ppPasteDefault
End With
End Sub

Falls so etwas schon besprochen wurde, bitte einfach darauf hinweisen. Wahrscheinlich ist die Lösung ganz simple...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Diagramm von Excel nach Powerpoint kopieren

06.08.2013 17:58:29

Excel

Hallo kultnoob,
auch PP-VBA hat eine Hilefefunktion.
such dir aus den folgenden Werten was passendes aus.
Gruß
Franz
PpPasteDataType-Aufzählung
Gibt ein Format für den Inhalt der Zwischenablage an, wenn dieser in das Dokument eingefügt wird.
Versionsinformationen
Hinzugefügte Version: PowerPoint 2007


Name                 Wert Beschreibung
ppPasteBitmap           1 Bitmap einfügen.
ppPasteDefault          0 Standardinhalt der Zwischenablage einfügen.
ppPasteEnhancedMetafile 2 Erweiterte Metadatei einfügen.
ppPasteGIF              4 GIF-Bild einfügen.
ppPasteHTML             8 HTML einfügen.
ppPasteJPG              5 JPG-Bild einfügen.
ppPasteMetafilePicture  3 Metadateibild einfügen.
ppPasteOLEObject       10 OLE-Objekt einfügen.
ppPastePNG              6 PNG-Bild einfügen.
ppPasteRTF              9 RTF einfügen.
ppPasteShape           11 Form einfügen.
ppPasteText             7 Text einfügen.

AW: Diagramm von Excel nach Powerpoint kopieren

07.08.2013 10:55:51

Excel

Hi fcs,
danke für die Antwort und Hilfe.
Das Ergebnis des PasteSpecial Code, welches im Post von Dir angegeben wird, funktioniert nur bedingt. Natürlich könnte ich das Diagramm als Bild einfügen. Doch dann ist die Schrift sehr sehr klein und nur schwer lesbar. Natürlich sprechen ein paar Vorteile für ein Bild. Verlinkung ist ua. nicht vorhanden usw.
Nur verstehe ich nicht warum es in Powerpoint die Option bei Einfügen "ursprüngliche Formatierung beibehalten" vorhanden ist, diese aber in VBA nicht umsetzbar ist. Habe nun auch das Diagramm innheralb meiner Folie in PPT positioniert. Diese eine Sache ("ursprüngliche Formatierung beibehalten") fehlt mir, um dieses Projekt abzuschließen.
Anbei der Code, der ein Diagramm aus einer geöffneten Excel-Dokument kopiert und positioniert.
Vielleicht benötigt ihn jemand.


Sub Excel_Diagramm_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
'Dateiname
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
.Visible = True
.Presentations.Open Filename:= _
"Link entfernt"
'Powerpointdatei wählen und Folie 2 auswählen/anzeigen
.ActivePresentation.Slides(2).Select
'Aus Sheet2 den explodierenden Kreis kopieren
Sheets(2).ChartObjects(1).Copy
'Größe und Positionierung des Diagramms in der Powerpointdatei bestimmen
With .ActiveWindow
.View.Paste
.Selection.ShapeRange.Left = 470.6
.Selection.ShapeRange.Top = 56.45
.Selection.ShapeRange.Width = 240.79
.Selection.ShapeRange.Height = 155.81
End With
'Rahmen um das Diagramm einfügen
ActiveSheet.ChartObjects(1).Border.ColorIndex = 1
End With
End Sub

AW: Diagramm von Excel nach Powerpoint kopieren

07.08.2013 12:38:03

Excel

Hi fcs,
habe nun eine Möglichkeit gefunden. Wahrscheinlich gibt es eine andere, doch ich glaube diese Lösung sollte passen. Zuerst habe ich mir angeschaut was passiert, wenn ich das Diagramm verkleinere und dann das Diagramm als Bild kopiere. Dann ist die Beschriftung auch automatisch größer...
Dann kam mir eine Idee.
Punkt 1:
Verkleinern der Grafik
Punkt 2:
Kopieren der Grafik
Punkt 3:
Einfügen der Grafik als .JPG
Punkt 4:
Grafik in der Exceldatei wieder an Orginalgröße anpassen.
Somit kann man die Bezeichnungen lesen und ich habe mein Ziel erreicht. Für alle die, die das Problem auch haben, anbei der Code. Links und Bezeichnungen wurden unkenntlich gemacht...


Sub Excel_Diagramm_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
'Der Auswertungsdatei den Namen Grafik zuweisen
Grafik = ActiveWorkbook.Name
With Workbooks(Grafik).Sheets(2)
'Diagramm auswählen und Größe anpassen
.ChartObjects(1).Activate
.Shapes(1).Height = 155.81
.Shapes(1).Width = 240.79
End With
'Dateiname
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
.Visible = True
.Presentations.Open Filename:= _
"Link zur Powerpoint Datei"
'Powerpointdatei wählen und Folie 2 auswählen/anzeigen
.ActivePresentation.Slides(2).Select
'Aus Sheet2 den explodierenden Kreis kopieren
Sheets(2).ChartObjects(1).Copy
'Größe und Positionierung des Diagramms in der Powerpointdatei bestimmen
End With
With .ActiveWindow
.View.PasteSpecial DataType:=ppPasteJPG
.Selection.ShapeRange.Left = 470.6
.Selection.ShapeRange.Top = 56.45
End With
'Rahmen um das Diagramm einfügen
ActiveSheet.ChartObjects(1).Border.ColorIndex = 1
With Workbooks(Grafik).Sheets(2)
'Diagramm auswählen und auf Orginalgröße zurückstellen
.ChartObjects(1).Activate
.Shapes(1).Height = 270
.Shapes(1).Width = 450
End With
End Sub

Danke fcs für die Hilfe... Wieder einmal... :D

Infobox / Tutorial

Diagramm von Excel nach Powerpoint kopieren

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und PowerPoint: Stelle sicher, dass sowohl Excel als auch PowerPoint geöffnet sind.
Diagramm in Excel erstellen: Erstelle dein gewünschtes Diagramm in Excel, z.B. ein Balkendiagramm oder ein Blasendiagramm.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul einfügen: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

Code einfügen: Kopiere den folgenden Code und füge ihn in das Modul ein:

Sub Excel_Diagramm_an_PPT()
   Dim ppApp As Object
   Set ppApp = CreateObject("Powerpoint.Application")
   With ppApp
       .Visible = True
       .Presentations.Open Filename:="Pfad zur PowerPoint-Datei"
       .ActivePresentation.Slides(2).Select
       Sheets(2).ChartObjects(1).Copy
       .ActivePresentation.Slides(2).Shapes.PasteSpecial DataType:=ppPasteDefault
   End With
End Sub

Anpassen des Dateipfads: Ersetze "Pfad zur PowerPoint-Datei" mit dem tatsächlichen Pfad deiner PowerPoint-Datei.
Ausführen: Drücke F5, um das Skript auszuführen. Dein Diagramm sollte nun in PowerPoint eingefügt werden.

Häufige Fehler und Lösungen

Diagramm wird nicht korrekt eingefügt: Stelle sicher, dass du den richtigen DataType im PasteSpecial-Befehl verwendest. Nutze ppPasteDefault, um die ursprüngliche Formatierung beizubehalten.
PowerPoint öffnet sich nicht: Überprüfe, ob PowerPoint korrekt installiert ist und ob VBA die Berechtigung hat, Anwendungen zu steuern.
Diagramm ist zu klein oder unscharf: Stelle sicher, dass du die Größe des Diagramms in PowerPoint nach dem Einfügen anpasst. Alternativ kannst du das Diagramm vorher in Excel verkleinern.

Alternative Methoden

Diagramm als Bild kopieren: Du kannst das Diagramm in Excel als Bild kopieren, indem du es auswählst und dann Rechtsklick > Kopieren wählst. In PowerPoint kannst du dann Einfügen > Bild wählen.
Verwendung von Bildschirmfoto: Eine schnelle Methode ist, ein Screenshot des Diagramms zu machen und diesen in PowerPoint einzufügen.
Diagramm in PowerPoint erstellen: Du kannst auch ein neues Diagramm direkt in PowerPoint erstellen und die Daten aus Excel importieren.

Praktische Beispiele

Hier ist ein Beispiel, wie man ein Balkendiagramm erstellen kann:

Sub BalkendiagrammErstellen()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)

    ws.Range("A1:B5").Select
    Charts.Add
    ActiveChart.SetSourceData Source:=ws.Range("A1:B5")
    ActiveChart.ChartType = xlColumnClustered
End Sub

Wenn du dein Diagramm einmal in PowerPoint eingefügt hast, kannst du die Diagrammformatierung durch Rechtsklick und dann Diagramm format übertragen anpassen.

Tipps für Profis

VBA-Kürzel: Nutze die VBA-Funktion ppPasteEnhancedMetafile, um die besten Ergebnisse beim Einfügen von Diagrammen zu erzielen.
Diagrammformat übertragen: Wenn du oft Diagramme von Excel nach PowerPoint überträgst, erstelle eine benutzerdefinierte Funktion zum Übertragen der Diagrammformatierung, um Zeit zu sparen.
Verwende VBA-Fehlerbehandlung: Implementiere eine Fehlerbehandlung in deinem Code, um Probleme beim Ausführen des Skripts zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich ein Diagramm in PowerPoint erstellen?
Du kannst ein Diagramm direkt in PowerPoint erstellen, indem du auf Einfügen > Diagramm klickst und dann die gewünschten Daten hinzufügst.

2. Warum wird das Diagramm nicht in der ursprünglichen Formatierung eingefügt?
Stelle sicher, dass du den richtigen DataType im PasteSpecial-Befehl verwendest. Der ppPasteDefault sollte die ursprüngliche Formatierung beibehalten.

3. Kann ich ein Diagramm aus PowerPoint kopieren und wieder in Excel einfügen?
Ja, du kannst ein Diagramm aus PowerPoint kopieren und in Excel einfügen. Achte darauf, dass du die richtige Einfügeoption wählst, um die Formatierung zu behalten.

4. Wie kann ich die Größe des Diagramms in PowerPoint anpassen?
Nach dem Einfügen kannst du das Diagramm auswählen und die Ecken ziehen oder die Größe im Format-Menü anpassen.

Beliebteste Forumthreads (12 Monate)

Diagramm von Excel nach Powerpoint kopieren

Forumthread: Diagramm von Excel nach Powerpoint kopieren

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Diagramm von Excel nach Powerpoint kopieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Diagramm von Excel nach Powerpoint kopieren

Forumthread: Diagramm von Excel nach Powerpoint kopieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Diagramm von Excel nach Powerpoint kopieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread