Diagramm von Excel nach Powerpoint kopieren

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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.

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

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

Beliebteste Forumthreads (12 Monate)

Diagramm von Excel nach Powerpoint kopieren

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

169 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagramm von Excel nach Powerpoint kopieren

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

169 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread