VBNet - Форум - VB под Visio

Вопрос: VB под Visio Добавлено: 18.11.03 18:32

Автор вопроса: saxy

Добрый день!
У меня возникла следующая проблема:
в Visio есть две страницы с различным содержимым, при двойном щелчке на объекте с первой страницы необходимо перейти на вторую и сфокусироваться на другом определенном объекте. Я подключил реакцию на двойной щелчок в виде запуска макроса, написал необходимый код, НО! имя объекта на который необходимо перейти записано в свойствах объекта по которому щелкаем а вот добраться до его свойств из макроса не могу - подскажите как это сделать...
Тип объектов - Shape
Код макроса следующий:
Sub GoToElement()
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim shp As Shape

ActiveWindow.GetViewRect 0, 0, c, d
ActiveDocument.Pages(2).OpenDrawWindow

Set shp = ActivePage.Shapes.Item("TestShape")
ActiveWindow.Select shp, 2

shp.BoundingBox visBBoxUprightWH, a, 0, 0, b
a = a - c / 20
b = b + d / 20

ActiveWindow.SetViewRect a, b, c, d

End Sub
Прописанный жестко "TestShape" должен читаться из объекта на котором щелкаем дважды.
С уважением и надеждой на помощь, Евгений

Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #1	Добавлено: 14.02.07 18:21
	GDK Добраться до свойств не так уж и сложно. Тут другая поблема: надо перебрать все фигуры (Shape) будь они в составе группы или нет и узнать их ID. Если фигура не в группе то её ID узнать легко, а вот если в группе то ..... не знаю. Ответить

Номер ответа: 2 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #2	Добавлено: 22.03.07 18:54
	Получилось! Если это кого-то ещё интересует могу напечатаь здесь код. Ответить

Номер ответа: 3 Автор ответа: Wadim Вопросов: 0 Ответов: 1	Профиль \| \| #3	Добавлено: 25.11.10 19:23
	А как узнать ID отдельной фигуры? Как это сделать программно? Ответить

Номер ответа: 4 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #4	Добавлено: 27.11.10 18:22
	создать новую тему. Ответить

Номер ответа: 5 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #5	Добавлено: 27.11.10 18:22
	и не заниматься археологией Ответить

Страница: 1 |