1

背景

我必须多次在 Visio 中绘制多个矩形。我注意到 Visio 中头脑风暴模板的模具有一个名为“添加多个主题”的形状。当您将此形状带到文档页面时，它会提示您输入以换行符分隔的主题名称。当您根据行数提供此内容时，带有提供文本的主题（水平行）将添加到文档页面。

志向

在 Visio 中使用矩形创建一个类似的（添加多个主题）自定义形状。即我想要一个名为“添加多个组件”的形状，当它放在文档表上时，它应该提示输入组件的名称，这些组件的名称应该由换行符分隔。当提供这些名称时，应将这些带有文本的矩形添加到 Visio 文档中。

至今

我探索了以下途径-

  1. 我打开了我在 Visio 中获得灵感的模板并检查了

    a) 当您将形状放在文档页面中时，可能会生成其他形状的宏代码。

[观察] - 模具中没有写宏代码。

b) 形状表中的内置函数，在 EventDropor的事件中被调用EventMultiDrop。

[观察] - 单元格带有文本“无公式”

  1. 在互联网上搜索（谷歌搜索:)）如何使用与此问题标题相同的文本来实现这一点。

[观察] - 我得到与相关的结果

  1. 添加自定义属性
  2. 将数据链接到形状
  3. 如何有效使用 Visio 的思维导图功能。

问

  1. 如何设计一个可以实现抱负的定制形状？
4

1 回答 1

1

你需要的是一个模板

  • 一个模块
  • 表单
  • 主控 主控（要放置的形状）将在其 ondrop 单元格中包含一个调用子例程（例如 sub CallForm）的公式，该子例程本身调用表单。ondrop 单元格中的公式会写成： = CALLTHIS(“MyModule”, “CallForm”)

Sub CallForm(shp as shape) Shp.delete '形状不再需要 myForm.show end sub

在表单中，您将有两个文本框：供主使用的文本框和条目列表。然后按钮可以触发命令： ActivePage.Drop Application.Documents.Item([AnyStencil]).Masters.ItemU([TheChosenMaster]), 1,1 将所需母版放置在位置 1,1。

于 2018-07-27T11:31:27.083 回答