charts aus excel nach Powerpoint exportieren

Hi!
ich habe ein kleines problem:
ich würde gerne diagramme/charts nach powerpoint exportieren. Ich habe folgenden code (als beispiel für ein chart) bis jetzt:
Code:


Sub Excel_Chart_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
.Visible = True
.Presentations.Open Filename:="F:\SYSTEM\Master.ppt"
.ActivePresentation.Slides(2).Select
Sheets("S27_G").ChartObjects.CopyPicture
With .ActiveWindow
.View.Paste
.Selection.ShapeRange.Left = 110
.Selection.ShapeRange.Top = 100
.Selection.ShapeRange.Width = 500
.Selection.ShapeRange.Height = 400
End With
End With
End Sub

folgendes funktioniert:
1. PPT wird geöffnet
2. die richtige Folie wird ausgesucht
3. das einfügen scheitert
Drücke ich nun "strg+v", fügt er das entsprechende Diagramm ein^^
Warum? Kann mir jmd. sagen, wo das Problem ist?
Bei diesem Export werden auch "nur" Bilder exportiert. es nicht möglich, Exceldaten (mittels Makro/VBA) in ein Datenblatt in Powerpoint einzufügen... oder!?
...bin am verzweifeln und für jede hilfe sehr dankbar!!
der MrB

Inzwischen sieht mein code wie folgt aus und die Grafik wird ordentlich dargestellt/exportiert:


Sub Excel_chart_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
Set ppApp = CreateObject("Powerpoint.Application")
Sheets(1).ChartObjects.CopyPicture
With ppApp
.Visible = True
.Presentations.Open Filename:="F:\SYSTEM\Master.ppt"
.ActivePresentation.Slides.Add 1, ppLayoutBlank
With .ActivePresentation.Slides(2)
.Shapes.Paste.Select
'Definition des Aussehens
With ppApp.ActiveWindow.Selection.ShapeRange
.Top = 100
.Left = 50
.Width = 720
.Height = 400
End With
End With
End With
er geht aber noch weiter, da ich möchte, dass alle Grafiken exportiert werden:
'Schleife für den Rest
For i = 2 To Charts.Count
Sheets(i).ChartObjects.CopyPicture
With ppApp
.Visible = True
With .ActivePresentation.Slides(i + 1)
.Shapes.Paste
'Definition des Aussehens
With ppApp.ActiveWindow.Selection.ShapeRange
.Top = 100
.Left = 50
.Width = 720
.Height = 400
End With
End With
End With
Next i
End Sub

das funktioniert auch soweit, bis auf die Formatierung, weil immer noch die "erste" Grafik selektiert ist und ich diese nich de-, unselect oder sonstwas bekomme. das ist zum verzweifeln.
Gruß MrB

charts aus excel nach Powerpoint exportieren

Forumthread: charts aus excel nach Powerpoint exportieren

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

charts aus excel nach Powerpoint exportieren

Forumthread: charts aus excel nach Powerpoint exportieren

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread