Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос VBA для обращения к экселю из визио. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Макрос VBA для обращения к экселю из визио.
rotten41 Дата: Воскресенье, 09.07.2017, 15:17 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день уважаемые специалисты.
Помогите разобраться.

С помощью макрорекодера создал в Visio простой макрос для отрисовки прямой линии.
[vba]
Код

Sub Macro1()
    Application.ActiveWindow.Page.DrawLine 1.653543, 10.03937, 6.023622, 3.149606
    Application.ActiveWindow.DeselectAll
End Sub
[/vba]

Как заставить этот макрос брать численные величины координат линии - из открытого файла 5765675.xls (с листа1, ячеек C3,D3,C4,D4) ?

Чтобы получилось что-то навроде вот этого
[vba]
Код
Sub Macro2()
    Application.ActiveWindow.Page.DrawLine Windows("5765675.xls").Sheets("Лист1").Range("C3"), Windows("5765675.xls").Sheets("Лист1").Range("D3"), Windows("5765675.xls").Sheets("Лист1").Range("C4"), Windows("5765675.xls").Sheets("Лист1").Range("D4")
    Application.ActiveWindow.DeselectAll
End Sub
[/vba]
К сообщению приложен файл: 5765675.xls (33.0 Kb) · 43563.rar (11.1 Kb)
 
Ответить
СообщениеДобрый день уважаемые специалисты.
Помогите разобраться.

С помощью макрорекодера создал в Visio простой макрос для отрисовки прямой линии.
[vba]
Код

Sub Macro1()
    Application.ActiveWindow.Page.DrawLine 1.653543, 10.03937, 6.023622, 3.149606
    Application.ActiveWindow.DeselectAll
End Sub
[/vba]

Как заставить этот макрос брать численные величины координат линии - из открытого файла 5765675.xls (с листа1, ячеек C3,D3,C4,D4) ?

Чтобы получилось что-то навроде вот этого
[vba]
Код
Sub Macro2()
    Application.ActiveWindow.Page.DrawLine Windows("5765675.xls").Sheets("Лист1").Range("C3"), Windows("5765675.xls").Sheets("Лист1").Range("D3"), Windows("5765675.xls").Sheets("Лист1").Range("C4"), Windows("5765675.xls").Sheets("Лист1").Range("D4")
    Application.ActiveWindow.DeselectAll
End Sub
[/vba]

Автор - rotten41
Дата добавления - 09.07.2017 в 15:17
Udik Дата: Воскресенье, 09.07.2017, 15:19 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Это вопрос не по экселю, а по Visio B)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеЭто вопрос не по экселю, а по Visio B)

Автор - Udik
Дата добавления - 09.07.2017 в 15:19
rotten41 Дата: Воскресенье, 09.07.2017, 15:28 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Udik, это вопрос - по VBA.
Посмотрите - на название форума.
 
Ответить
СообщениеUdik, это вопрос - по VBA.
Посмотрите - на название форума.

Автор - rotten41
Дата добавления - 09.07.2017 в 15:28
Udik Дата: Воскресенье, 09.07.2017, 15:31 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
а ничего, что ВБА в экселе и ВБА в Visio отличаются?


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщениеа ничего, что ВБА в экселе и ВБА в Visio отличаются?

Автор - Udik
Дата добавления - 09.07.2017 в 15:31
rotten41 Дата: Воскресенье, 09.07.2017, 15:35 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Udik, вы можете какое-либо решение предложить по этому вопросу?
 
Ответить
СообщениеUdik, вы можете какое-либо решение предложить по этому вопросу?

Автор - rotten41
Дата добавления - 09.07.2017 в 15:35
Udik Дата: Воскресенье, 09.07.2017, 15:39 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Я с Visio дел не имел, подозреваю, что большинство жителей данного форума тоже.


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеЯ с Visio дел не имел, подозреваю, что большинство жителей данного форума тоже.

Автор - Udik
Дата добавления - 09.07.2017 в 15:39
rotten41 Дата: Воскресенье, 09.07.2017, 15:43 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Udik, спасибо за ответ.
Может кто-нибудь из жителей форума знает.
 
Ответить
СообщениеUdik, спасибо за ответ.
Может кто-нибудь из жителей форума знает.

Автор - rotten41
Дата добавления - 09.07.2017 в 15:43
KuklP Дата: Воскресенье, 09.07.2017, 15:43 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
rotten41, посмотрите на картинку:

Это заголовок форума. Видите там слово Visio? Я не вижу. Не надо быковать, ищите соответствующий форум.
К сообщению приложен файл: 1484653.gif (5.8 Kb)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщениеrotten41, посмотрите на картинку:

Это заголовок форума. Видите там слово Visio? Я не вижу. Не надо быковать, ищите соответствующий форум.

Автор - KuklP
Дата добавления - 09.07.2017 в 15:43
Pelena Дата: Воскресенье, 09.07.2017, 16:23 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 19407
Репутация: 4556 ±
Замечаний: ±

Excel 365 & Mac Excel
Перенесла тему в нужный раздел


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПеренесла тему в нужный раздел

Автор - Pelena
Дата добавления - 09.07.2017 в 16:23
anvg Дата: Воскресенье, 09.07.2017, 20:45 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Доброе время суток.
Коллеги, что-то злые вы какие-то сегодня.
rotten41, почитайте эту статью. Думаю, вы поймёте, как из Visio обращаться к Excel.
Успехов.
 
Ответить
СообщениеДоброе время суток.
Коллеги, что-то злые вы какие-то сегодня.
rotten41, почитайте эту статью. Думаю, вы поймёте, как из Visio обращаться к Excel.
Успехов.

Автор - anvg
Дата добавления - 09.07.2017 в 20:45
rotten41 Дата: Понедельник, 10.07.2017, 16:34 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
anvg, ясно. Спасибо за информацию.
 
Ответить
Сообщениеanvg, ясно. Спасибо за информацию.

Автор - rotten41
Дата добавления - 10.07.2017 в 16:34
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!