在 Excel (VBA) 中使用 PowerPoint 變量

Question

我有一個 PowerPoint 演示文稿和一個 Excel 文件。 在我的 PPT 中，我使用公共變量Public cnt As Long和以下兩個函數來添加到cnt或減去（例如）：

Private Sub CommandButton1_Click()
cnt = cnt + 1
Me.CommandButton3.Caption = "cnt up = " & cnt
End Sub


Private Sub CommandButton2_Click()
cnt = cnt - 1
Me.CommandButton3.Caption = "cnt down = " & cnt
End Sub

用戶將在 PPT 展示期間單擊兩個按鈕之一，這將增加或減少cnt變量。 所以在PPT展示過程中， cnt可能會從1變成2然后變成3等等。

我想要的是在 excel 文件中記錄cnt的值。 因此，例如在 PPT 顯示期間， cnt值應顯示在單元格“A1”中。 這可能嗎？

Answer 1

這是一個后期綁定示例：（這將進入 Powerpoint VBA）

Option Explicit

Public braX As Integer

Public Sub test()
  braX = 10
  Dim xlApp As Object
  Dim xlBooks As Object
  Dim xlBook As Object
  Dim xlSheet As Object
  Set xlApp = CreateObject("Excel.Application")
  xlApp.Visible = True
  Set xlBooks = xlApp.workbooks
  Set xlBook = xlBooks.Add()
  Set xlSheet = xlBook.Worksheets(1)
  xlSheet.Range("A1") = braX
End Sub