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

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

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


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


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

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



Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: Узнать Id выделенного субшейпа
СообщениеДобавлено: 21 янв 2017, 23:49 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 534
Использую Visio c: 2008
Очков репутации: 107

Добавить очки репутацииУменьшить очки репутации
Вопрос такой:
Как узнать Id или Name выделенного шейпа при условии что этот шейп является субшейпом другого шейпа.
Выделять субшейпы замечательно умею, а вот получить информацию о выделенном - чего-то никак.
Если на листе выделены только субшейпы то - ActiveWindow.Selection.Count = 0 :cry:
Крутил, вертел метод IterationMode (ActiveWindow.Selection.IterationMode) - ничего.
Так что требуется помощь знатоков таких нюансов.

Ладно, сам докумекал:
Код:
Debug.Print ActiveWindow.SelectedText.Shape.ID
' Но это только для первого среди выделенных.


Тогда вопрос чуть меняется:
Как считать Id или Name всех выделенных шейпов при условии что выделены и шейпы и субшейпы.

_________________
GitHub
Yandex-диск с набором полезных утилит


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Узнать Id выделенного субшейпа
СообщениеДобавлено: 22 янв 2017, 01:58 
Не в сети
Ветеран
Аватара пользователя

Зарегистрирован: 28 апр 2013, 14:03
Сообщений: 963
Откуда: Вена, Австрия
Использую Visio c: 1998
Очков репутации: 100614

Добавить очки репутацииУменьшить очки репутации
Так вообще есть же кнопка
Изображение

А программно это все же IterationMode. IMHO, что-то недокрутил.

Изображение

Set sel = ActiveWindow.Selection
sel.IterationMode = visSelModeSkipSuper
For Each s In sel
Debug.Print s.Name
Next

_________________
Полезные инструменты для создания диаграмм Visio:
https://unmanagedvisio.com/


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Узнать Id выделенного субшейпа
СообщениеДобавлено: 22 янв 2017, 09:19 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 534
Использую Visio c: 2008
Очков репутации: 107

Добавить очки репутацииУменьшить очки репутации
Да, действительно, самую малость недокрутил. :D
Спасибо.

_________________
GitHub
Yandex-диск с набором полезных утилит


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

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



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

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


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

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