Erstellen Sie eine Powerpoint mit Grafiken aus dem Zugang

Ich bin versucht, programmgesteuert eine PowerPoint erstellen von Diagrammen in Access. Im Idealfall, wenn die Grafiken bewegen, um PowerPoint-Sie werden statische Bilder und nicht die Grafiken noch in Verbindung mit den Zugangsdaten ein.

Ich habe versucht, die Verfahren wie:

 Private Sub Command1_click()
     Dim pwrpnt as Object
     Dim Presentation as Object

     set pwrpnt = CreateObject("Powerpoint.Application")
     pwrpnt.Activate
     Set Presentation = pwrpnt.Presentation.Open("C:\test.ppt")
     Me.Graph1.SetFocus
     Runcommand acCmdcopy

     Presentation.Slides(1).Shapes.Paste
     set pwrpnt = Nothing
     set Presentation = Nothing
End Sub

Und ich bekomme eine Fehlermeldung wie zum Beispiel: Paste-Methode ist fehlgeschlagen.

Gibt es einen besseren Ansatz? Und kann es sein, gezwungen zu werden, ein statisches Bild?

Danke.

InformationsquelleAutor TimothyAWiseman | 2009-06-24
  1. 4

    Ok, ich fand einen Weg, es zu tun. Ich bin immer noch daran interessiert, wenn jemand eine elegantere Möglichkeit, aber für jemand anderen der Umgang mit einem ähnlichen problem:

    Private Sub Command1_click()
 'Note: Sample only, in real code this should probably have something to save the 
 'PPT file and then close the powerpoint application, not to mention some error handling,
 ' and possibly some picture formatting, etc.  

 Dim pwrpnt as PowerPoint.Application
 Dim Presntation as PowerPoint.Presentation

 Me.Graph0.Action = acOLECopy
 set pwrpnt = CreateObject("Powerpoint.Application")
 pwrpnt.Activate
 Set Presentation = pwrpnt.Presentations.Open("TemplateFile.ppt")
 pwrpnt.ActiveWindow.ViewType = ppViewSlide

 'This inserts it as a picture, just use .Paste to insert it as an actual chart.
 pwrpnt.ActiveWindow.View.PasteSpecial ppPasteEnhancedMetafile 
EndSub
    • Sie können gehen Sie voran und akzeptieren Sie Ihre eigenen Antworten mit dem Häkchen.
    InformationsquelleAutor TimothyAWiseman
  2. 2

    Yep, das ist genau die Technik, die ich verwende - und ich verbrachte Tage mit der Suche im web nach Lösungen. Seine nicht sehr elegant, aber es funktioniert und das schöne ist, dass man ein MS Graph-Objekt in Powerpoint, so dass Benutzer können einfach Ihre eigenen styling , Vorlagen etc

    InformationsquelleAutor Chris
Schreibe einen Kommentar