Question

我正在为一个项目开发Visio 2013，而且我是VBA和Visio的新手。

首先，我编写了一个函数，通过首先创建CSV的字符串表texte然后将其添加到形状中来导入当前visio文档中的CSV文件：

Dim sp As Visio.Shape
Set sp = ActiveDocument.Pages(1).Drop(Visio.ActiveDocument.Masters("Puce 120"), 4, 10)
sp.Characters.Text = texte

现在我想编写反向函数，从形状到CSV文件，但我无法找到一种方法来访问我的形状文本＆＃34; Puce 120＆＃34;。

我写了这个：

Dim vsoMasters As Visio.Masters
Dim intMasterCount As Integer
Dim intCounter As Integer
Dim vsoMaster As Visio.Master

Set vsoMasters = ActiveDocument.Masters    
intMasterCount = vsoMasters.Count

If intMasterCount > 0 Then
    For intCounter = 1 To intMasterCount
        If vsoMasters.Item(intCounter).Name = "Puce 120" Then
            Set vsoMaster = vsoMasters.Item(intCounter)
        End If
    Next intCounter
Else
    Debug.Print " No masters in document"
End If

Dim shap As Visio.Shapes
Set shap = vsoMaster.Shapes

Dim ch As Visio.Characters
ch = shap.Characters

但我在ch找不到我的文字。有人可以解释一下如何检索它吗？

Answer 1

您可以使用shape.Text属性放置和获取形状的文本。所有其他花哨的东西有什么理由吗？也就是说，您可以像这样设置形状文本：

shape.Text = "Hello"

然后像这样回复：

myText = shape.Text

从大师中检索文本

1 个答案: