| 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 |
|
|
|
All Forums
height