在editBox中使用PowerPoint的VBA填充文本

Question

我是新的VBA电源点插件开发，我已经成功地添加了editBox在PowerPoint带状使用CustomUI编辑器。后来，我在通过VBA代码动态地向editBox添加文本时遇到了困难。我看到了一些解决方案，如下面提到的流程：

1. 编写onLoad函数
2. 使用GetText方法，可以使用GetText函数在editBox中输入文本。

但在我的情况下这是不可能的。有人能帮助/指导我使用VBA代码在editBox中填充PowerPoint带状的数据吗？

供参考，我已经张贴了下面的代码。请查收。

Option Explicit

Dim sRename As String
Dim RibbonUI As IRibbonUI

Sub OnSlideLoad(ribbon As IRibbonUI)
Set RibbonUI = ribbon
Set sRename = "checking"
End Sub

Sub Height_onChange(control As IRibbonControl, text As String)
    MsgBox text
End Sub

Sub Width_onChange(control As IRibbonControl, text As String)
    MsgBox text
End Sub

Sub Height_getText(control As IRibbonControl, ByRef returnedVal)
    returnedVal = sRename
End Sub

Sub Width_getText(control As IRibbonControl, ByRef returnedVal)
    returnedVal = sRename
End Sub

Sub ButtonClick()
    RibbonUI.InvalidateControl ("boxHeight")
End Sub

Answer 1

谢谢你的支持我找到了解决办法。要动态更新editBox中的Excel/ PowerPoint，我们需要在PowerPoint布局中分配回调函数。在编写脚本时，必须实现相同的函数。在我的例子中，我发现VBA函数名与XML布局函数的名称发生了变化，因此没有触发回调函数。我对它们做了正确的修改，现在它运转良好。