Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 28 мар 2024, 23:43

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Добавление текста в shape из CustomProperty
СообщениеДобавлено: 05 апр 2012, 13:57 
Есть шейп-группа элементов. У него есть CustomProperty. Например: Prop.Number.
Необходимо отобразить текст из этого CustomProperty во вложенном шейпе. Причем этот текст должен попасть именно в свойство(текст), чтобы потом программно можно было считать используя команду shape.text. При использовании Text Fields для этих целей:текст отображается на элементе, но через функцию shape.text недоступен.


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Добавление текста в shape из CustomProperty
СообщениеДобавлено: 29 май 2012, 03:12 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
пример выложил http://odnoznachnost.narod.ru/store/Drawing1.vsd

код подстановки текста шейпа из свойства материнской группы
Код:
Sub settext()
Dim shp As Shape
Set shp = ActivePage.Shapes.ItemFromID(2)  ' шейп с номером 2 и есть шейп-группа
Set sh = shp.Shapes.ItemFromID(6) '  шейп с номером 6 и есть шейп внутри группы
sh.Text = Replace(shp.CellsSRC(visSectionProp, 0, visCustPropsValue).FormulaU, """", "") ' подстановка текста из Prop.Number ( у меня шейп обладает единственным пользовательским свойством)


Field.Value и TheText это совсем разные вещи

Код считывания текста
Код:
Sub gettext()
Dim txt As String
Dim shp As Shape
Set shp = ActivePage.Shapes.ItemFromID(1)
txt = shp.Text  ' считывание текста
Debug.Print txt
End Sub

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Последний раз поднималось Anonymous 29 май 2012, 03:12.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB