Автоматизация производства
Май 5, 2008
Находка-кандидат номер один на забывание, почему-то столь полезные вещи мой мозг забывает моментально. Итак, микрософт визио довольно удобная программка, обладающая уникальным функционалом, а, главное, великолепно автоматизируемая.
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
Этот милый кусочек кода добавляет коннекторы вверху и внизу посередине у шестигранника, почему-то лишенного столь полезных элементов.
