Microsoft Excel

Herbers Excel/VBA-Archiv

Aktive Datenweitergabe an Powerpoint

Betrifft: Aktive Datenweitergabe an Powerpoint von: Philipp
Geschrieben am: 20.08.2008 10:47:27

Hallo liebe Excel-Profis,

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

  

Betrifft: AW: Aktive Datenweitergabe an Powerpoint von: Herbert
Geschrieben am: 20.08.2008 17:09:40

Hi,
du verwendest LateBinding, das heißt, die benannten Konstanten von PoPo sind nicht bekannt.

ppViewSlide muss durch den realen Zahlenwert ersetzt werden, den du im Objektkatalog
von PoPo findest. das gilt natürlich für alle benannten Konstanten.

mfg Herbert


  

Betrifft: AW: Aktive Datenweitergabe an Powerpoint von: Philipp
Geschrieben am: 20.08.2008 18:06:24

Hallo Herbert,

vielen Dank für die Erläuterungen!
Dann gucke ich mal, ob ich das damit gehäkelt kriege.

Viele Grüße
Philipp


 

Beiträge aus den Excel-Beispielen zum Thema "Aktive Datenweitergabe an Powerpoint"