All Forums
 Категория Visio
 Форум Вопросы и ответы
 Как программно вставить поле в Text Fields?
Author Previous Topic Topic Next Topic  

mormax

Russia
18 Posts
Posted - 02/06/2006 :  11:45:58
Как программно реализовать, то что мы получаем при выполнении операции Insert->Field?
Вот такой код:

visObj.ActivePage.Shapes(i).AddSection (visSectionTextField)
v = visObj.ActivePage.Shapes(i).AddRow(visSectionTextField, visRowField, 0)
visObj.ActivePage.Shapes(i).Shapes(i1).CellsSRC(visSectionTextField, v, visFieldFormat).Formula = "FieldPicture(37)"
visObj.ActivePage.Shapes(i).Shapes(i1).CellsSRC(visSectionTextField, v, visFieldValue).Formula = "ThePage!Prop.Row_1"

работает, добавляется секция и строка, и данные в строку прописываются, только в шейпе текст который находится в "ThePage!Prop.Row_1" не отражается...
Причем строка которая создается програмно имеет номер 0, а если через
Insert->Field, то 1, и если программно добавлять еще строки, то они все равно имеют номер 0.

Tumanov

Russia
1198 Posts
Posted - 02/06/2006 :  18:51:25
Бесполезно. В эту секцию нельзя программно прописать данные.
Go to Top of Page

arturik

Russia
29 Posts
Posted - 02/16/2006 :  11:33:47  Visit arturik's Homepage
Mormax попробуй так у меня работает(Visio 2003 sp2)

Dim vsoChar As Visio.Characters
Set vsoChar = MyShape.Characters
vsoChar.Begin = 0
vsoChar.End = 0
vsoChar.AddCustomFieldU "sheet.1!User.1", visFmtNumGenNoUnits

Я тоже в начале пробовал делать как ты, но потом записал макрос(благо в 2003 визио эта функция появилась), и у меня все начало срастаться.

Не заню почему на прямую нельзя редактировать данную ячейку.

Желаю удачи
Edited by - arturik on 02/16/2006 11:37:44
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)