charts aus excel nach Powerpoint exportieren
08.02.2007 12:53:19
MrB
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