Макросы для Draw/Impress

Материал из Forumooo wiki

Перейти к: навигация, поиск


Доступ к графическому объекту по имени

Перебор всех графических объектов по индексу и сопоставление его имени. Например,

Sub Main
With ThisComponent
        For i=0 to .DrawPages.Count-1
                For j=0 to .DrawPages(i).Count-1
                        If .DrawPages(i).getByIndex(j).Name="Рисунок1" then msgbox ("Есть рисунок!") else msgbox ("Нету!")
                Next
        Next
End With
End Sub
Личные инструменты
Пространства имён
Варианты
Действия
Компоненты
Общие вопросы
Совместимость
Навигация
Инструменты