动态 Drop/Draw/Insert 命令按钮进入 Visio 页面并使用 VBA 设置文本

Question

我正在尝试 drop/draw/insert 一个命令按钮到 Visio 页面并使用 VBA 设置它的文本。

目前我可以使用以下方法插入按钮 VBA，但我找不到任何方法来编辑文本。

' Generate Button
Dim generateButton As Visio.Shape
Set generateButton = migrationPlanPage.InsertObject("{D7053240-CE69-11CD-A777-00DD01143C57}", 0)

以下是我尝试设置按钮文本值的两种不成功的方法。

generateButton.CellsSRC(visButtonIcon, 0, visButtonCaption).Formula = "Test"
generateButton.Caption = "Test"

Answer 1

你可以试试：

Dim obj As Shape
Set generateButton = ActivePage.InsertObject("{D7053240-CE69-11CD-A777-00DD01143C57}", visInsertNoDesignModeTransition)
generateButton.Object.Caption = "Hello"

动态 Drop/Draw/Insert 命令按钮进入 Visio 页面并使用 VBA 设置文本

Dynamically Drop/Draw/Insert Command Button into Visio Page and set text using VBA

vba

visio