Извлечь тексте от мастеров

Question

Я работаю над Visio 2013 для проекта, и я новичок в VBA и Visio.

Во-первых, я написал функцию, которая импортирует файл CSV в текущем документе VISIO путем создания первой таблицы строки texte в CSV, а затем добавить его в форме:

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

Теперь я хочу написать обратная функция, от формы до CSV-файла, но я не могу найти способ получить доступ к тексту в моей форме «Puce 120».

Я написал:

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