Verknüpfen von Powerpoint und Access durch VBA?

Question

Ich habe eine Powerpoint-Folie, die Textfelder enthält. Ich mag diese Textfelder mit einer gefilterten Ansicht einer Datentabelle in Access verknüpfen.

Für die Ex, wenn ich habe eine Tasklist Anwendung in Access, die Aufgaben mit unterschiedlichen Prioritäten und affectations angezeigt; ist es eine Möglichkeit, die Datei zu öffnen, diese Ansicht auszuwählen und filtern nach einem vba (oder andere) Onclick Taste Ereignis aus meiner Powerpoint-Präsentation ausgelöst?

Answer 1

Es ist sicherlich möglich, Zugriff auf Daten von Powerpoint zu erhalten.

Sie müssen sicherstellen, dass Sie die richtigen Referenzen auf theMicrosoft DAO Object Library in Ihrem VBA-Projekt haben.

Dann, um Ihre Textbox in Ihrer Powerpoint-Präsentation zu füllen, können Sie so etwas wie die folgende Funktion aufrufen kann, sagen wir, eine Zeichenfolge in eine Liste von Aufgaben Anpassen des gegebenen Taskpriority enthält.

Function GetTaskListFromAccess(taskPriority as Integer) as String
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Dim listOfTasks as String

  Set db = DBEngine.OpenDatabase(“C:\my_database.accdb”)

  Set rs = db.OpenRecordset("SELECT * FROM TaskTable WHERE TaskPriority=" & _
                            taskPriority, dbOpenSnapshot)
  If not rs is nothing then
    If rs.RecordCount > 0 then
      With rs
        While Not .EOF
          if listOfTask = "" then 
            listOfTasks = !TaskName
           Else 
            listOfTasks = listOfTasks & vbCrLf & !TaskName
          End If
          .MoveNext
        Loop
      .Close
      End With
    End If
    Set rs = nothing
  End If
  Set db = nothing

  GetTaskListFromAccess = listOfTasks
End Function