Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

18 Апрель 2021, 16:58 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: доступ к графическому объекту по имени [РЕШЕНО]  (Прочитано 4121 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Helen
Администратор
**
Offline Offline

Пол: Женский
Расположение: Екатеринбург
Сообщений: 2 573


WWW
« Стартовое сообщение: 30 Апрель 2010, 14:02 »

из рассылки FAQ

Компонент: Basic
Версия OOo: 3.2

Сборка:  9483
ОС:  Windows XP SP3

Вопрос: Возможно-ли получить доступ к графическому объекту (текст, квадрат,
окружность и т.д.), на листе документа Draw,  по имени этого объекта
для дальнейшего изменения его свойств? Есть-ли возможность выбрать
конкретный графический объект среди однотипных, ведь доступ по индексу
обезличен?

E-mail: скрыт
Подпись:  Александр
« Последнее редактирование: 6 Июнь 2010, 10:12 от Syzygy » Записан
dr.Faust
Администратор
**
Offline Offline

Пол: Мужской
Расположение: Ростов-на-Дону
Сообщений: 1 340


« Ответ #1: 30 Апрель 2010, 14:24 »

Нет. Имя объекта в Draw не обязательно и не уникально, поэтому такого способа нет.
Только с помощью обходных путей самый простой из которых - перебрать все объекты и просмотрев их имена, выбрать желаемый. Тут же придётся решить что делать с неуникальными именами.
Записан

Свобода информации - свобода личности!
Рыбка Рио
Форумчанин
***
Offline Offline

Сообщений: 1 678


« Ответ #2: 30 Апрель 2010, 14:28 »

Конечно можно. По крайней мере, есть такой способ. Перебор всех графических объектов по индексу и сопоставление его имени. Например,
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
« Последнее редактирование: 30 Апрель 2010, 14:35 от Ф.Ива » Записан

ubuntu 12.04 + LibO3.6.0
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!