| Вопрос: Построение рисунка в Visio с исрользованием VBA | Добавлено: 31.07.06 12:32 |
Автор вопроса:  Oleg
|
|
Господа! Прошу Вас подсказать как определить идентификационный номер элемента (???) самой программой.
Application.ActiveWindow.Page.DrawLine kX1, kY1, kX2, kY2 Dim textHarCharacters3 As Visio.Characters Set textHarCharacters3 = Application.ActiveWindow.Page.Shapes.ItemFromID(???) .Characters textHarCharacters3.Begin = 0 textHarCharacters3.End = 0 textHarCharacters3.Text = arrayRRL(n).charErth textHarCharacters3.CharProps(visCharacterStyle) = 0# textHarCharacters3.CharProps(8) = 0# textHarCharacters3.CharProps(visCharacterSize) = 10# Application.EndUndoScope TextHarScope(n), True |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  GDK Вопросов: 13 Ответов: 348 |
Профиль | | #1 | Добавлено: 22.03.07 18:49 |
|
Работа нижеприведённого примера основано на том, что новая линия появляется выделенной.
Sub ид() Dim a As String Dim aID As Long Application.ActiveWindow.Page.DrawLine 4.88189, 5.590551, 6.259843, 5.433071 Rem рисуется новая линия после появления на свет выделена только она a = Application.ActiveWindow.Selection.PrimaryItem 'записываем в переменную имя этой линии aID = Application.ActivePage.Shapes  .ID 'Ну вот вам и ID новенькой линии
MsgBox(aID) 'в других ситуациях может не сработать 'напр. если линия будет добавляться в какую нибудь группу? 'и др. ? Rem испытано в VISIO 2003 End Sub |
||
|
Номер ответа: 2 Автор ответа: GDKВопросов: 13 Ответов: 348 |
Профиль | | #2 | Добавлено: 22.03.07 18:50 |
| Жаль что так мало сообщений по VISIO VBA | ||
Страница: 1 |