Ola @ederangelo, não consegui selecionar varias figuras.
A macro para bordas 1px ( feita com o gravador de macros )…
Sub UmPX
rem ----------------------------------------------------------------------
Sim args1(7) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BorderOuter.LeftBorder" : args1(0).Value = Array(0,0,35,0,0,35)
args1(1).Name = "BorderOuter.LeftDistance" : args1(1).Value = 49
args1(2).Name = "BorderOuter.RightBorder" : args1(2).Value = Array(0,0,35,0,0,35)
args1(3).Name = "BorderOuter.RightDistance" : args1(3).Value = 49
args1(4).Name = "BorderOuter.TopBorder" : args1(4).Value = Array(0,0,35,0,0,35)
args1(5).Name = "BorderOuter.TopDistance" : args1(5).Value = 49
args1(6).Name = "BorderOuter.BottomBorder" : args1(6).Value = Array(0,0,35,0,0,35)
args1(7).Name = "BorderOuter.BottomDistance" : args1(7).Value = 49
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:BorderOuter", "", 0, args1())
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:BorderInner", "", 0, Array())
End Sub
Se vai usar para desenvolvimento, o botão não precisa estar no arquivo, crie um Menu personalizado que servira para todos os arquivos.
Veja como aqui: https://www.schiavinatto.com/mundolibre/criando-menu-personalizado_lm20.html, artigo da Revista LibreOffice Magazine.
ATENÇÂO:: Para dar mais detalhes a sua pergunta, use
na pergunta ou
abaixo. Não use Adicionar resposta para comentário. Grato.
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha
a esquerda da resposta, para finalizar a pergunta.