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

Форум по вопросам применения и программирования в Visio
Текущее время: 20 ноя 2019, 21:06

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


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


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



Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: совместная работа Visioи Excel
СообщениеДобавлено: 25 фев 2011, 23:00 
Народ подскажите как организовать автоматичкский подсчет длинны ломаной линии в визио с отображением в числовом виде в ячейке экселя.
наблюдал как человек рисовал линию а вэкселе менялась длинна


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: совместная работа Visioи Excel
СообщениеДобавлено: 04 апр 2011, 18:35 
Не в сети
Глав-тролль

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3728
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Сбор вторичного сырья
Должность: Безработный
Уровнь квалификации: Отсутствует
я думал это фантастика ! :o


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: совместная работа Visioи Excel
СообщениеДобавлено: 18 окт 2011, 10:45 
Денис писал(а):
Народ подскажите как организовать автоматичкский подсчет длинны ломаной линии в визио с отображением в числовом виде в ячейке экселя.
наблюдал как человек рисовал линию а вэкселе менялась длинна


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: совместная работа Visioи Excel
СообщениеДобавлено: 18 окт 2011, 11:23 
Не в сети
Глав-тролль

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3728
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Сбор вторичного сырья
Должность: Безработный
Уровнь квалификации: Отсутствует
Немного модифицировал код взятый на этом форуме в ветке Вычисление длины ломанной линии.
Код:
Sub dl()
Dim dl As Double
Dim snap1 As Shape
Dim oExcel As Excel.Application
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
Dim wb As Workbook
oExcel.Workbooks.Add
Set wb = oExcel.ActiveWorkbook
Set sht = wb.Sheets.Item("Лист1")
n = 1
For Each snap1 In ActiveWindow.Selection
dl = KabLength(snap1)
sht.Cells(n, 1).Value = snap1.Name
sht.Cells(n, 2).Value = dl
n = n + 1
Next snap1
End Sub

Function KabLength(Shap As Shape) As Double
Dim i As Integer
Dim Summa As Double
Dim dx As Double, dy As Double
Dim nRows As Integer
nRows = Shap.RowCount(visSectionFirstComponent) - 1
Summa = 0
For i = 1 To nRows - 1
dx = (Shap.CellsSRC(visSectionFirstComponent, i, 0) - Shap.CellsSRC(visSectionFirstComponent, i + 1, 0)) * 0.0254 * 1000
dy = (Shap.CellsSRC(visSectionFirstComponent, i, 1) - Shap.CellsSRC(visSectionFirstComponent, i + 1, 1)) * 0.0254 * 1000
Summa = Summa + Sqr(dx ^ 2 + dy ^ 2)
Next
KabLength = Summa
End Function
решение урезанное (без отслеживания динамики изменений):

во вновь созданном файле Excel, на листе "Лист1", появится список из названий выделенных шейпов с длинами


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

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



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

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


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

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