Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Открытие Excel'я из Visio
 
Добрый день, уважаемые формучане!

Появилась потребность в создании карты-схемы в Visio с возможностью открытия Excel'я по щелчку на название точки (A, B,...) или по щелчку на участок между этими точками (A-B, C-D,...). Участок между точками никак не выражен, т.е. нет ни его названия, ни отрезка - это просто одна линия.

Есть ли возможность, сделать так, чтобы по щелчку на название точки или участку открывался соответствующий лист книги Excel? Карта уже существует и она большая, поэтому что необходимо будет сделать с участками чтобы это работало, но без перерисовки всех линий (дробя их на настоящие участки или добавления названий участков, к примеру)?

Прикладываю примеры

К сожалению, Visio не прикрепляется. Прикреплю скрин, на самом деле выглядит очень просто: линия с буквами над ней
Снимок.PNG (19.19 КБ)
Изменено: poceluev - 22 Апр 2020 07:55:42
 
А почему вопрос на форуме по Excel?
 
Цитата
Юрий М написал:
А почему вопрос на форуме по Excel?
Так открыть то Excel нужно.  :D
По вопросам из тем форума, личку не читаю.
 
Я понимаю ))
Но не понимаю логики: если из Visio нужно открыть графический файл, то по логике автора нужно задать вопрос на форуме по графическим редакторам. Если из Visio нужно открыть документ Wird - задавать вопрос на форуме по Wurd.
poceluev, Логика верна?
 
Цитата
Юрий М написал:
открыть документ Wird - задавать вопрос на форуме по Wurd
Юр, спокойнее, не нервничай, о как тебя заколбасило.  :D
По вопросам из тем форума, личку не читаю.
 
Это Пятачка колбасило на мясокомбинате )
 
Цитата
poceluev написал:
открывался соответствующий лист книги Excel?
соответствующий чему? Точке? Если да, то как точка вообще к Excel относится? И как по ней понять какой лист/книгу открывать?
Открыть легко:
Код
On Error Resume Next
Set oEx = Getobject(, "excel.Application")
If oEx Is Nothing Then
    Set oEx = Createobject("excel.application")
    oEx.Visible = True
End If
set wb oEx.Workbooks.Open("путь к нужному файлу excel")
wb.sheets("соответствующий лист").Activate
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Дмитрий(The_Prist) Щербаков, Дмитрий, судя по всему у ТС стоит сперва вопрос, как вааще что-либо запустить и стандартного события для этого в Visio нет.
По вопросам из тем форума, личку не читаю.
 
Цитата
БМВ написал:
и стандартного события для этого в Visio нет
ну это не конкретизировано самим ТС :) А в качестве основного заголовка темы написано явно про открытие. Все остальное явно не по адресу(да и это-то не совсем), о чем уже писали.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Читают тему (гостей: 1)
Наверх