Fatal编程技术网
  • ms-office/
  • Ms office 如何更改形状表中的Visio 2010形状标签

Ms office 如何更改形状表中的Visio 2010形状标签

ms-office

Ms office 如何更改形状表中的Visio 2010形状标签,ms-office,visio,Ms Office,Visio,我想知道是否有一种方法可以使用用户定义的形状数据中输入的值来更改形状下方显示的文本。基本上是这样的： shape.textblowshapeimage=Prop.Name 如果此形状属性位于形状表中的某个位置，那就太好了 谢谢你的帮助 Wayne E.Pfeffer通过使用字段可以轻松完成此任务。关键是对形状字符对象使用AddCustomFieldU方法 假设您有一个具有属性的形状，其标签为“FOO”，值为“BAR”。（该属性存储在命名行中—在本例中为“Prop.row_1”，它仅在该形状的Sh

我想知道是否有一种方法可以使用用户定义的形状数据中输入的值来更改形状下方显示的文本。基本上是这样的：

shape.textblowshapeimage=Prop.Name

如果此形状属性位于形状表中的某个位置，那就太好了

谢谢你的帮助

Wayne E.Pfeffer

通过使用字段可以轻松完成此任务。关键是对形状字符对象使用AddCustomFieldU方法

假设您有一个具有属性的形状，其标签为“FOO”，值为“BAR”。（该属性存储在命名行中—在本例中为“Prop.row_1”，它仅在该形状的ShapeSheet中可见

Dim vsoCharacters2 As Visio.Characters
Set vsoCharacters2 = myshape.Characters
vsoCharacters2.Begin = 0
vsoCharacters2.End = 0
vsoCharacters2.AddCustomFieldU "Prop.Row_1", visFmtNumGenNoUnits
运行此代码后，形状的文本将显示为“条形”