| Author |
 Topic  |
|
|
ctapik
3 Posts |
 Posted - 07/07/2011 : 05:01:15
|
| Как у фигуры в организационной диаграмме программно показать разделительную линию? Т.е. когда нажимаешь правой кнопкой мыши и выбираешь пункт меню "Show divider line"? И как программно загрузить картинку Shape.Picture? |
|
|
Tumanov
Russia
1198 Posts |
Posted - 07/07/2011 : 17:12:56
|
Sub ttt()
Set sh = ActivePage.Shapes(1)
sh.Cells("User.ShowDivider") = 1
End Sub
А картинка грузится через импорт
sh.Import picx
где picx - путь к картинке.
Но, боюсь, в стандартных шейпах Вам это не поможет. По импорту создается новый шейп с картинкой. Значит нужно будет не только создать такой шейп, но и встроить его в чужой шейп, да еще и так, чтобы его не сломать. |
 |
|
|
ctapik
3 Posts |
Posted - 07/07/2011 : 19:46:14
|
| Спасибо большое. |
|
|
|
ctapik
3 Posts |
Posted - 07/07/2011 : 19:55:23
|
| А как программно импортировать структуру из Excell или csv файла. Перерыл всю объектную модель, ничего похожего не нашел :( |
|
|
|
Tumanov
Russia
1198 Posts |
Posted - 07/08/2011 : 16:53:22
|
Есть такая утилитка - ORGWIZ.EXE
Если ее вызвать из программы с соответствующими ключами (а их там море), то скорее всего получите нужный результат.
Сам я таким способом не пользуюсь. Предпочитаю делать это своей программой. Свободы больше, можно сделать и то, на что утилитка не способна.
Читаются строки из файла, выбираются атрибуты, переносятся соответствующие шейпы из трафарета на страницу и соединяются их. Вот примерно как здесь написано http://visio.artberg.ru/biblio/st005.htm
|
|
|
| |
Topic |
|
All Forums
Организационная диаграмма