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

Форум по вопросам применения и программирования в Visio
Текущее время: 29 мар 2024, 02:04

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


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


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

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



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Выделение линией аля Autocad
СообщениеДобавлено: 03 мар 2015, 04:13 
Не в сети
Ветеран

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

Добавить очки репутацииУменьшить очки репутации
Еще один способ выделения на листе. Линией и не только.
У нас уже представлен один способ, здесь (http://visio.getbb.ru/viewtopic.php?f=15&t=671&st=0&sk=t&sd=a)
Вот еще подобное:

Изображение

Код (Одноразовое выделение для линии. Чтобы было как на картинке - раскомментировать/закомментировать нужные строки)
Запускать процедуру Start_SelectByLine
Код:
Option Explicit

Dim tmpS As Boolean

Sub Start_SelectByLine()
    Application.DoCmd (1221) 'Включение инструмента Линия
    tmpS = True
End Sub
   
'Sub Stop_SelectByLine()' Раскомментировать для отключения (при многоразовой операции)
'    tmpS = False
'    Application.DoCmd (1907) ' Включение Обычного выделения
'End Sub

Private Sub Document_ShapeAdded(ByVal Shape As IVShape)

If tmpS Then
    Dim Sel As Visio.Selection
        Set Sel = Shape.SpatialNeighbors(visSpatialContain + visSpatialOverlap + visSpatialTouching, 0, 0) 'определение пересечений временной линии
            ActiveWindow.Selection = Sel
            Shape.Delete 'удаление временного шейпа
            Application.DoCmd (1907) ' Закомментировать для многоразового действия
            tmpS = False ' Закомментировать для многоразового действия
End If
   
End Sub
' Код поместить в модуль документа.


Вложения:
SelectByLine.vsd [53.5 Кб]
Скачиваний: 260

_________________
GitHub
Yandex-диск с набором полезных утилит
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

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



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

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


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

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