ربط باور بوينت والوصول من خلال VBA؟

Question

ولدي شرائح PowerPoint الذي يحتوي على مربعات النص. وأود أن تصل تلك مربعات النص بهدف تصفيتها من جدول بيانات في Access.

لالسابق، إذا كان تطبيق تاسكليست في Access الذي عرض المهام مع الأولويات والتكلف مختلفة. هل هناك طريقة لفتح هذا الملف، حدد هذا الرأي، وتصفية وفقا لVBA (أو غيرها) عند _ النقر على زر تشغيل الحدث من عرض باور بوينت الخاص بي؟

Answer 1

وانها بالتأكيد من الممكن الحصول على الوصول إلى البيانات من باوربوينت.

وكنت بحاجة للتأكد من حصولك على المراجع الصحيحة لتعيين theMicrosoft DAO Object Library في مشروع VBA الخاص بك.

وبعد ذلك، لملء النص الخاص بك في العرض التقديمي PowerPoint، يمكنك الاتصال شيء من هذا القبيل الدالة التالية، مثلا، لإرجاع سلسلة تحتوي على قائمة المهام مطابقة TaskPriority معينة.

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