您可以 link 将 Visio 中形状的部分形状文本添加到 excel 电子表格中吗?
Can you link part of the shape text of a shape in Visio to an excel spreadsheet?
我有一个带有形状数据的正方形,可以 link 适合 excel 电子表格,但我也有一些显示在形状上的形状文本。我相信您可以 link 使用 link 向导并选择 shape::text 或非常相似的东西来 link 所有形状文本。
有没有办法只 link 一段形状文本?我不希望我的第一行形状文本 link 编辑为 excel。只有第二行。例如
---正方形开头---
(未link在此处编辑文本)
(link在此处输入文字)
---方形端---
如果没有,我将 link 所有形状文本。只是想知道是否有办法只 link 的一部分。
您不能 link 调整文本形状。只有形状数据。但稍后,您可以将该数据用作文本中的字段。
首先,您 link 数据到形状。然后您可以编辑形状以将 linked 内容用作字段。意思是,您开始编辑形状文本,将光标位置设置到您希望(linked 文本)出现的位置,然后使用 "Insert Field" 和 select link编辑文本 属性.
Microsoft 很吝啬,希望您升级您的许可证,以便您可以将外部数据映射到形状文本 属性。我写了一个小宏。这允许您将外部数据拖到 Visio canvas 上,它会设置 shape.Text。非常简单,我用它来创建 uml class 图,其中我需要创建很多成员。我从 excel 电子表格加载然后我可以拖放到 canvas 上。记得在拖放之前 select 'stencil control'
Private Sub Document_ShapeAdded(ByVal Shape As IVShape)
externalDataColumnName = "Prop._VisDM_FIELDLIST"
'this is the property of the external data column header; look at shape sheet to get it
If Shape.CellExists(externalDataColumnName, 1) Then
Set celObj = Shape.Cells(externalDataColumnName)
Shape.Text = celObj.ResultStr("")
Shape.Cells("Char.Size").FormulaU = "8 pt"
End If
End Sub
我有一个带有形状数据的正方形,可以 link 适合 excel 电子表格,但我也有一些显示在形状上的形状文本。我相信您可以 link 使用 link 向导并选择 shape::text 或非常相似的东西来 link 所有形状文本。
有没有办法只 link 一段形状文本?我不希望我的第一行形状文本 link 编辑为 excel。只有第二行。例如
---正方形开头---
(未link在此处编辑文本)
(link在此处输入文字)
---方形端---
如果没有,我将 link 所有形状文本。只是想知道是否有办法只 link 的一部分。
您不能 link 调整文本形状。只有形状数据。但稍后,您可以将该数据用作文本中的字段。
首先,您 link 数据到形状。然后您可以编辑形状以将 linked 内容用作字段。意思是,您开始编辑形状文本,将光标位置设置到您希望(linked 文本)出现的位置,然后使用 "Insert Field" 和 select link编辑文本 属性.
Microsoft 很吝啬,希望您升级您的许可证,以便您可以将外部数据映射到形状文本 属性。我写了一个小宏。这允许您将外部数据拖到 Visio canvas 上,它会设置 shape.Text。非常简单,我用它来创建 uml class 图,其中我需要创建很多成员。我从 excel 电子表格加载然后我可以拖放到 canvas 上。记得在拖放之前 select 'stencil control'
Private Sub Document_ShapeAdded(ByVal Shape As IVShape)
externalDataColumnName = "Prop._VisDM_FIELDLIST"
'this is the property of the external data column header; look at shape sheet to get it
If Shape.CellExists(externalDataColumnName, 1) Then
Set celObj = Shape.Cells(externalDataColumnName)
Shape.Text = celObj.ResultStr("")
Shape.Cells("Char.Size").FormulaU = "8 pt"
End If
End Sub