Author |
Topic |
|
amaterasu
6 Posts |
Posted - 12/25/2003 : 10:05:49
|
Добрый день!! у меня один вопрос: у меня есть шаблончик, я уже набросала, то, что необходимо.... теперь хотелось бы из VBA екселевского изменить размеры этих шейпов... по данным того же екселя я что то не понимаю в иерархии объектов Visio, потому что ни как не могу найти к чему относиться свойство height, отвечющее за высоту шейпа.... вот: pagsObj.Item(1).Shapes.Item("Vertical text 3-D bar blue.1")....height=3 что поставить вместо точек? |
|
Digitall
Russia
389 Posts |
Posted - 12/25/2003 : 11:22:40
|
quote: Originally posted by amaterasu
Добрый день!! у меня один вопрос: у меня есть шаблончик, я уже набросала, то, что необходимо.... теперь хотелось бы из VBA екселевского изменить размеры этих шейпов... по данным того же екселя я что то не понимаю в иерархии объектов Visio, потому что ни как не могу найти к чему относиться свойство height, отвечющее за высоту шейпа.... вот: pagsObj.Item(1).Shapes.Item("Vertical text 3-D bar blue.1")....height=3 что поставить вместо точек?
Можно например так: pagsObj.Item(1).Shapes.Item(1).Cells("height").Formula = 3 Здесь height, как ячейка. |
|
|
amaterasu
6 Posts |
Posted - 12/25/2003 : 11:50:47
|
quote: Originally posted by Digitall
quote: Originally posted by amaterasu
Добрый день!! у меня один вопрос: у меня есть шаблончик, я уже набросала, то, что необходимо.... теперь хотелось бы из VBA екселевского изменить размеры этих шейпов... по данным того же екселя я что то не понимаю в иерархии объектов Visio, потому что ни как не могу найти к чему относиться свойство height, отвечющее за высоту шейпа.... вот: pagsObj.Item(1).Shapes.Item("Vertical text 3-D bar blue.1")....height=3 что поставить вместо точек?
Можно например так: pagsObj.Item(1).Shapes.Item(1).Cells("height").Formula = 3 Здесь height, как ячейка.
э-э-э.... прикольно, но получилось... спасиба..... |
|
|
|
Topic |
|
|
|