Excel（VBA）でPowerPoint変数を使用

Question

私はPowerPointプレゼンテーションとExcelファイルを持っています。私のPPTでは、私は（一例として）cntに加算または減算するパブリック変数Public cnt As Longと、以下の2つの機能を使用します。

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ショーの中に2つのボタンのいずれかをクリックします変数cntからしたがって、PPT表示中にcntは1から2へ、3から3へと変化する可能性があります。

私が欲しいのは、cntの値をExcelファイルに記録することです。たとえば、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