Hallo, ich hoffe Ihr könnt mir bei einem Problem helfen.
Ich möchte Diagramme aus Excel per Makro in Powerpoint kopieren, sie sollen nicht gelinkt sein.
Wenn ich die Diagramme in Powerpoint normal einkopiere sehen sie meistens nicht mehr gut aus sondern sind seltsam skaliert oder undeutlich.
Soweit ich weiss gibt es die PasteSpecial Funktion in PPT nicht ohne zu linken, jedenfalls probiere ich es jetzt über den Umweg per Word. Vielleicht gibt es aber auch hier eine einfachere Lösung.
Das eigentliche Problem ist momentan, dass wenn ich ein Diagramm in Excel kopiere es 100%ig in der Zwischenablage landet (habe ich dort kontrolliert), wenn ich es allerdings per Makro in Word oder PPT einfüge bekomme ich immer nur einen kleinen Ausschnitt statt des ganzen Diagramms. Ich kann dann diesen Ausschnitt zwar wieder manuell vergrößeren aber dann kriegt man es nie mehr richtig hin. Außerdem habe ich den Eindruck, dass dieses Phänomen seltsamerweise nicht immer auftritt.
Wenn ich per Bearbeiten / Einfügen manuell einfüge ist das Diagramm auch normal !
Folgenden Code habe ich verwendet.
Sub Charts_to_PPT()
Dim ppApp As Object
Dim wdApp As Object
Dim ppFile As Object
Dim wdfile As Object
Dim ppPres As String
Dim wdDoc As String
'Filename
ppPres = ThisWorkbook.Path & "\Analysis_Master.ppt"
wdDoc = ThisWorkbook.Path & "\Analysis_Master.doc"
'Object reference
Set ppApp = CreateObject("Powerpoint.Application")
Set wdApp = CreateObject("Word.Application")
'Open MS Word for paste special function
wdApp.Visible = msoTrue
Set wdfile = wdApp.Documents.Open(wdDoc)
'Distribution
'Select sheet
Sheets("Store").Select
'Copy chart
ActiveSheet.ChartObjects("Distribution").Chart.ChartArea.Copy
'PasteSpecial to Word
wdApp.ActiveWindow.Selection.PasteSpecial _
DataType:=wdPasteEnhancedMetafile
End Sub
danach gehts dann nach ppt aber der fehler ist schon früher...
Vielen Dank
Hanno
Ich möchte Diagramme aus Excel per Makro in Powerpoint kopieren, sie sollen nicht gelinkt sein.
Wenn ich die Diagramme in Powerpoint normal einkopiere sehen sie meistens nicht mehr gut aus sondern sind seltsam skaliert oder undeutlich.
Soweit ich weiss gibt es die PasteSpecial Funktion in PPT nicht ohne zu linken, jedenfalls probiere ich es jetzt über den Umweg per Word. Vielleicht gibt es aber auch hier eine einfachere Lösung.
Das eigentliche Problem ist momentan, dass wenn ich ein Diagramm in Excel kopiere es 100%ig in der Zwischenablage landet (habe ich dort kontrolliert), wenn ich es allerdings per Makro in Word oder PPT einfüge bekomme ich immer nur einen kleinen Ausschnitt statt des ganzen Diagramms. Ich kann dann diesen Ausschnitt zwar wieder manuell vergrößeren aber dann kriegt man es nie mehr richtig hin. Außerdem habe ich den Eindruck, dass dieses Phänomen seltsamerweise nicht immer auftritt.
Wenn ich per Bearbeiten / Einfügen manuell einfüge ist das Diagramm auch normal !
Folgenden Code habe ich verwendet.
Sub Charts_to_PPT()
Dim ppApp As Object
Dim wdApp As Object
Dim ppFile As Object
Dim wdfile As Object
Dim ppPres As String
Dim wdDoc As String
'Filename
ppPres = ThisWorkbook.Path & "\Analysis_Master.ppt"
wdDoc = ThisWorkbook.Path & "\Analysis_Master.doc"
'Object reference
Set ppApp = CreateObject("Powerpoint.Application")
Set wdApp = CreateObject("Word.Application")
'Open MS Word for paste special function
wdApp.Visible = msoTrue
Set wdfile = wdApp.Documents.Open(wdDoc)
'Distribution
'Select sheet
Sheets("Store").Select
'Copy chart
ActiveSheet.ChartObjects("Distribution").Chart.ChartArea.Copy
'PasteSpecial to Word
wdApp.ActiveWindow.Selection.PasteSpecial _
DataType:=wdPasteEnhancedMetafile
End Sub
danach gehts dann nach ppt aber der fehler ist schon früher...
Vielen Dank
Hanno
Zuletzt bearbeitet:
