Aktive Datenweitergabe an Powerpoint
20.08.2008 10:47:27
Philipp
ich habe ein Problem, bei dem mir hoffentlich einer von Euch weiterhelfen kann.
Ich habe eine Powerpoint-Präsentation, in die ich Daten / Diagramme aus Excel einfügen möchte.
Dies möchte ich aktiv aus Excel heraus tun, damit ich von dort aus alles steuern kann und
keine Probleme mit wechselnden Pfaden habe.
Die ersten Schritte habe ich schon wie folgt zusammegesucht, aber beim Einfügen bleibe ich hängen:
Sub Excel_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
Dim picObj As Object, picName As String
'Dateiname
ppPres = "C:\MeineDatei.ppt"
'Objekt referenzieren
Set ppApp = CreateObject("Powerpoint.Application")
'Bereich kopieren
Worksheets("Tabelle1").Range("A1:B2").Copy
'Objekt initialisieren
ppApp.Visible = msoTrue
'PPT öffnen
Set ppFile = ppApp.Presentations.Open(ppPres)
'Foliennummer angeben
ppApp.ActivePresentation.Slides(1).Select
'Bereich einfügen und OLE Verknüpfung herstellen = Link
With ppApp.ActiveWindow
.ViewType = ppViewSlide 'HIER KLEMMT'S!!!
.View.PasteSpecial DataType:=ppPasteDefault, link:=msoTrue
End With
With ppApp.ActiveWindow.Selection.ShapeRange
'Oberer Rand 1 cm unter Standardtitel
.Top = 150
'Linker Rand 1.5 cm von linkem Folienrand
.Left = 35
'Eingefügte Tabelle auf Links und rechts 1,5 cm Rand skalieren
.Width = 650
End With
End Sub
Wäre toll, wenn mir hier jemand helfen könnte!
Viele Grüße
Philipp
Anzeige