| Author |
 Topic  |
|
|
mormax
Russia
18 Posts |
 Posted - 12/13/2005 : 14:27:27
|
Как программно добавить еще одно колено в Dynamic connector?
Макрос я привязал к EventDblClick шейпа, сам макрос:
Sub Доп_колено()
Application.EventsEnabled = False
Set shpObj = ActiveWindow.Selection(1)
shpObj.AddRow visSectionFirstComponent, visRowVertex, visTagLineTo
Application.EventsEnabled = True
End Sub
но таким способом строка не добавляется. И не добавляется если в шейп листе строку добавить. |
|
|
brace
Russia
358 Posts |
Posted - 12/13/2005 : 15:41:32
|
в visio VB Help через поиск найди статью
DrawLine Method |
 |
|
|
mormax
Russia
18 Posts |
Posted - 12/14/2005 : 11:45:34
|
| При чем тут DrawLine Method? Мне ведь не просто линию надо нарисовать, а добавить в шейп-листе в секцию Geometry 1 строку LineTo. Если в ячейке ObjType стоит 2, то тем способом, что я написал выше не получается эту строку добавить. Вот я и спрашиваю, как это можно сделать по другому? |
|
|
|
brace
Russia
358 Posts |
Posted - 12/14/2005 : 15:47:10
|
в хелпе см статью
AddRow method |
|
|
|
mormax
Russia
18 Posts |
Posted - 12/15/2005 : 09:50:33
|
| brace, прочтите внимательно! 1ый и 3ий посты, там я написал, что с помощью AddRow, если в ячейке ObjType стоит 2, ничего не выходит!!!!!!!! |
|
|
|
brace
Russia
358 Posts |
Posted - 12/15/2005 : 10:36:50
|
а что мешает поменять цифру в ячейке ??? |
|
|
|
mormax
Russia
18 Posts |
Posted - 12/15/2005 : 11:01:58
|
я так пробывал, поменять ObjType на 0, добавить строку, потом снова на 2. Но колено добавляяется через раз. А в другой раз, при смене на 2, все изгибы складываются до прямого угла, где одна сторона равна высоте, а другая ширине шейпа. А шейп с ObjType=0 не тянется так как Dynamic connector.
В общем у меня задача: сделать так, чтоб при двойном клике на Dynamic connector, к данному шейпу пририсовавалась линия перпендикулярное последнемей линии. Шейп обязательно должен иметь своиство тянуться! |
|
|
|
mormax
Russia
18 Posts |
Posted - 12/15/2005 : 13:31:52
|
| Ха, надо было сначала мне почитать хелп на Dynamic connector, а не ломать голову себе и вам! Все что мне надо делается с помощью нажатой Shift и мышки :)) |
|
|
| |
Topic |
|
|
|
All Forums
Доп. колено в Dynamic connector