Anzeige
Archiv - Navigation
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Aktive Datenweitergabe an Powerpoint

Aktive Datenweitergabe an Powerpoint
20.08.2008 10:47:27
Philipp
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktive Datenweitergabe an Powerpoint
20.08.2008 17:09:00
Herbert
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

AW: Aktive Datenweitergabe an Powerpoint
20.08.2008 18:06:24
Philipp
Hallo Herbert,
vielen Dank für die Erläuterungen!
Dann gucke ich mal, ob ich das damit gehäkelt kriege.
Viele Grüße
Philipp
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige