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

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

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

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2   Вниз
  Печать  
Автор Тема: Обрамление ячеек при помощи макроса [РЕШЕНО]  (Прочитано 10743 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Bigor
Мастер
*****
Offline Offline

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


« Ответ #47004: 11 Май 2018, 09:13 »

Вот и на "родном" SB

Код:
Sub Test_Borders
  Dim aBorder, oRange, oDoc, oSheets
  Dim TableBorder As New com.sun.star.table.TableBorder
  Dim aTopLine As New com.sun.star.table.BorderLine

  oDoc = ThisComponent
  oSheets = oDoc.Sheets(0)
  oRange  = oSheets.getCellRangeByPosition(0,0,5,5)
  aBorder = oRange.TableBorder
  aTopLine.OuterLineWidth = 20 ' это толщина внешней линии в случае двойной рамки
  aTopLine.InnerLineWidth = 0       ' это толщина внутренней линии в случае двойной рамки
  aTopLine.Color = 170000
 
   aBorder.TopLine = aTopLine
   aBorder.BottomLine = aTopLine
   aBorder.LeftLine = aTopLine
   aBorder.RightLine = aTopLine
   aBorder.HorizontalLine = aTopLine
   aBorder.VerticalLine = aTopLine
 
 for i =1 to 10
   oRange  = oSheets.getCellByPosition(i,i+1)
  oRange.Value = i
  oRange.TableBorder = aBorder
   'oRange.IsTextWrapped = true
 next

End Sub

ps исправил,  разкомментировал oRange  = oSheets.getCellRangeByPosition(0,0,5,5)
« Последнее редактирование: 11 Май 2018, 12:12 от Bigor » Записан

Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут
Страниц: « 1 2   Вверх
  Печать  
 
Перейти в:  

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