Criar Macro para executar determinada função automática.

Como faço para criar um botão personalizado que tenha um macro com a função " Ao clicar, aplicar boda de 1 px na figura selecionada ".

Ou seja, um botão automático para inserir borda em uma figura.

Outra solução para o caso, seria a possibilidade e selecionar várias imagens ao mesmo tempo, e aplicar em todas bordas de 1 px ( consigo selecionar várias figuras ao mesmo tempo ??? )

Estou usando o Writer, nova versão, windows 7.

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 Descrição da imagem na pergunta ou Descrição da imagem abaixo. Não use Adicionar resposta para comentário. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.