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

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

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

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

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


iMac, LibreOffice и Apache OpenOffice


« Ответ #35699: 31 Май 2016, 22:42 »

Что бы быть до конца честным, все таки проблема была не в кодировках и концах строк, а в пропущенной функции, вот она:
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
Она используется при заполнении массива, вот на её отсутствие программа и ругалась... Подмигивающий

А кто-то весь день искал способ переноса макросов с помощью двух кнопок и напильника Смеющийся

В макросе есть ссылка на две функции: CreatePoint() и createDrawPage(), а вы их не скопировали в модуль, ругается на их отсутствие.
Да, эти функции, я тоже скопировал, но программа ругается именно на эту строку:
 oCoords.Coordinates = Array(_
Записан

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

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