在 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