Автоматизация производства

Находка-кандидат номер один на забывание, почему-то столь полезные вещи мой мозг забывает моментально. Итак, микрософт визио довольно удобная программка, обладающая уникальным функционалом, а, главное, великолепно автоматизируемая.

Public Sub Add_Connector()

Set vsoShape = Application.ActiveWindow.Selection.Item(1)
vsoShape.AddRow visSectionConnectionPts, 7, visCnnctX
vsoShape.CellsSRC(visSectionConnectionPts, 7, visCnnctY).FormulaU = «Height*0»
vsoShape.CellsSRC(visSectionConnectionPts, 7, visCnnctX).FormulaU = «Width*0.5»

vsoShape.AddRow visSectionConnectionPts, 8, visCnnctX
vsoShape.CellsSRC(visSectionConnectionPts, 8, visCnnctY).FormulaU = «Height*1»
vsoShape.CellsSRC(visSectionConnectionPts, 8, visCnnctX).FormulaU = «Width*0.5»

End Sub

Этот милый кусочек кода добавляет коннекторы вверху и внизу посередине у шестигранника, почему-то лишенного столь полезных элементов.

Bookmark the permalink. Follow any comments here with the RSS feed for this post. Post a comment or leave a trackback: Trackback URL.

Post a Comment

Your email is never published nor shared. Required fields are marked *

*
*