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

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

3 Декабрь 2020, 03:56 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: [Решено] Кривые Безье в Draw  (Прочитано 4439 раз)
0 Пользователей и 1 Гость смотрят эту тему.
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 3 033


iMac, LibreOffice и Apache OpenOffice


« Ответ #35667: 31 Май 2016, 07:22 »

Выделил в свой модуль что бы поработать.
вот в этой строке: oCoords.Coordinates = Array(_
ругается на "Подпрограмма или функция не определена.", ведь тут объект который объявлен и правильно заполнен, в чём проблема подскажите
В макросе есть ссылка на две функции: CreatePoint() и createDrawPage(), а вы их не скопировали в модуль, ругается на их отсутствие.
Вот они:
Код:
Function CreatePoint(ByVal x As Long,ByVal y As Long) As com.sun.star.awt.Point
  Dim oPoint
  oPoint = createUnoStruct("com.sun.star.awt.Point")
  oPoint.X = x : oPoint.Y = y
  CreatePoint = oPoint
End Function

Function createDrawPage(oDoc, sName$, bForceNew As boolean) As Variant
  Dim oPages 'Все рисованные страницы
  Dim oPage  'Одна рисованная страница
  Dim i%     'Основная индексная переменная
  oPages = oDoc.getDrawPages()
If oPages.hasByName(sName) Then
REM Если нам требуется новая страница, удалим страницу
If bForceNew Then
      oPages.remove(oPages.getByName(sName))
    Else
REM Не требуется новая страница, поэтому возвращаем найденную страницу REM и затем выходим из функции.
createDrawPage = oPages.getByName(sName)
Exit Function
End If
End If
  REM Не нашли страницу или нашли и удалили ее.
  REM Создаем новую страницу, задаем имя и возвращаем страницу.
  oPages.insertNewByIndex(oPages.getCount())
  oPage = oPages.getByIndex(oPages.getCount()-1)
  oPage.setName(sName)
  createDrawPage = oPage
End Function
Записан

Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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