Для этого используется функция shp.XYToPage(x, y, xPrime, yPrime) где, shp - фигура Visio x, y - локальные координаты (в системе измерений фигуры) xPrime, yPrime - возвращаемые по ссылке координаты в системе измерений страницы. Все значения в ДЮЙМАХ - не забывайте переводить! --- Работает это примерно так: Dim shp As Visio.Shape Dim x As Double Dim y As Double Set shp = Application.ActivePage.Shapes(1) shp.XYToPage 0, 0, x, y 'Передаете в третий и четвертый параметр переменные Double, функция передает в них значения, которые потом можно использовать в коде Debug.Print x
Сегодня запустил проект - базу знаний по ShapeSheet! Разумеется в разделе видео буду размещать ссылки на видео с этого канала :) ==> shapesheet-kb.github.io/ru/index.htm
Аналог IntelliSence в ShapeSheet появился в версии 2010 / пруф -download.microsoft.com/download/D/0/F/D0F921D5-F37A-4ECE-B79D-16CD6AA6E8CF/What's%20New%20for%20Developers%20in%20Visio%202010.docx
Спасибо, продолжайте в том же духе.
Спасибо!
Долго ждали и дождались, а до динамических фигур когда доберемся?)
А не подскажете, где этот самый "Microsoft Office Visio" можно скачать?
Как правильно програмно вычислить абсолютные координаты узлов шейпа из относительных координат?
Для этого используется функция shp.XYToPage(x, y, xPrime, yPrime)
где, shp - фигура Visio
x, y - локальные координаты (в системе измерений фигуры)
xPrime, yPrime - возвращаемые по ссылке координаты в системе измерений страницы.
Все значения в ДЮЙМАХ - не забывайте переводить!
---
Работает это примерно так:
Dim shp As Visio.Shape
Dim x As Double
Dim y As Double
Set shp = Application.ActivePage.Shapes(1)
shp.XYToPage 0, 0, x, y 'Передаете в третий и четвертый параметр переменные Double, функция передает в них значения, которые потом можно использовать в коде
Debug.Print x
Сегодня запустил проект - базу знаний по ShapeSheet! Разумеется в разделе видео буду размещать ссылки на видео с этого канала :) ==> shapesheet-kb.github.io/ru/index.htm
Спасибо! Только что-то ссылка не открывается
В конце к ссылке добавилась закрывающая скобка. Попробуйте - shapesheet-kb.github.io/ru/index.htm
Спасибо! Очень нужное дело, в сети информации очень мало...
Аналог IntelliSence в ShapeSheet появился в версии 2010 / пруф -download.microsoft.com/download/D/0/F/D0F921D5-F37A-4ECE-B79D-16CD6AA6E8CF/What's%20New%20for%20Developers%20in%20Visio%202010.docx