Pergunte aqui
1

Orientação da página via macro Calc

perguntadas 2019-03-28 12:35:39 +0200

imagem do gravatar de Júnio Vieira

updated 2019-04-04 13:35:27 +0200

Bom dia, Preciso de uma macro que altere a orientação da página no calc de retrato para paisagem e vice-versa. Desde já obrigado!

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Ola @Júnio Vieira, uma luz no fim do túnel, esta é para Writer, então deve ser possível para Calc.

https://ask.libreoffice.org/en/questi...

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-03-28 13:30:07 +0200 )editar

1 Resposta

1

respondidas 2019-03-28 13:38:32 +0200

imagem do gravatar de mrkalvin

updated 2019-03-28 16:06:42 +0200

Vc realmente precisa alterar a orientação da página via macro?

Talvez não seja melhor usar um estilo de pagina para retrato e um para paisagem no mesmo documento.

https://ask.libreoffice.org/pt-br/que...

Complemento: Aquivo de exemplo com a macro: C:\fakepath\retrato-paisagem-macro.ods

Descrição da imagem

editar assinalar como ofensivo Excluir Link mais

Comentários

Bem lembrado, @mrkalvin, Criando o estilo, se ainda quiser mudar é possível fazer a macro com o próprio gravador de macros.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-03-28 14:04:16 +0200 )editar
1

Mas se precisar realmente usar macro pode usar essa aqui também, onde a altura e comprimento setados são referente a um papel A4 e vai alterar o estilo de página Default (Padrão)

----Complemento corrigido, a altura e comprimento se alternam entre os estilos.

sub Paisagem
    dim Doc as Object
    oDoc = ThisComponent

    StyleFamilies = oDoc.StyleFamilies 
    PageStyles = StyleFamilies.getByName("PageStyles") 
    DefPage = PageStyles.getByName("Default")

    DefPage.IsLandscape = True
    DefPage.Width = 29700
    DefPage.Height = 21000
end sub

sub Retrato
    dim Doc as Object
    oDoc = ThisComponent

    StyleFamilies = oDoc.StyleFamilies 
    PageStyles = StyleFamilies.getByName("PageStyles") 
    DefPage = PageStyles.getByName("Default")

    DefPage.IsLandscape = False
    DefPage.Width = 21000
    DefPage.Height = 29700
end sub
imagem do gravatar de mrkalvinmrkalvin ( 2019-03-28 14:18:43 +0200 )editar

Muito bom @mrkalvin, macros arquivadas com créditos em meu banco de submacros.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-03-28 15:31:04 +0200 )editar

Muito obrigado a todos, excelente observação quanto a precisar realmente de macro, pois o libreoffice tem muita ferramenta nativa e as vezes nos fechamos a usar sempre macros, de qualquer forma a sua resposta dupla ficou excelente, hoje a ferramenta estilos atende muito bem minha necessidade, mas guardarei as macros para outras situações.

imagem do gravatar de Júnio VieiraJúnio Vieira ( 2019-03-29 12:16:21 +0200 )editar

Seria interessante incluir as palavras: retrato, paisagem nas tags do tópico pra facilitar as buscas.

imagem do gravatar de mrkalvinmrkalvin ( 2019-03-29 13:38:47 +0200 )editar

Ok, incluídas.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-03-29 14:36:18 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-03-28 12:35:39 +0200

Lidas: 20 vezes

Última atualização: Mar 28