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

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

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


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


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

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



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Как создать ссылку из excel на обьект в visio 2003
СообщениеДобавлено: 02 сен 2010, 19:38 
Здравствуйте! как сделать так чтобы при нажатии на ячейку в Excel 2003 открылся документ Visio 2003 в определенном месте(на заданнм обьекте)?
Заранее благодарен!


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Как создать ссылку из excel на обьект в visio 2003
СообщениеДобавлено: 02 окт 2010, 09:07 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 2253
Очков репутации: 100626

Добавить очки репутацииУменьшить очки репутации
А чем Вы хотите это сделать? Варианты ведь разные.
Если в ячейку поместить гиперссылку на файл Visio, то файл откроется практически сам. Но на заданный шейп (объект) не выйдет.
Если документ Visio открывать макросом, то можно выйти на любое место в документе, поместить его, например, в центр экрана, селектировать шейп. Но организовать запуск макроса будет несколько посложнее, чем щелкнуть по гиперссылке.
Можно, например, назначить макрос на определенную комбинацию клавиш. Тогда в Excel нужно будет селектировать ячейку и нажать нужную комбинацию клавиш. По этой комбинации запустится макрос, прочитает селектированную ячейку, выберет из нее данные для выхода на шейп Visio, откроет Visio и спозиционирует в нужное место.
Открытие документа Visio макросом делается примерно так:
Код:
Sub ttt()
    Dim AppVis As Visio.Application
    Set AppVis = CreateObject("Visio.Application")
    AppVis.Visible = True
    Set visDoc = AppVis.Documents.Add("c:/temp/test.vsd")
    '... здесь делаете что нужно с документом visDoc
End Sub


Последний раз поднималось Anonymous 02 окт 2010, 09:07.


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

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



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

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


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

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