Deixar a opção "tipo" de formato da imagem já selecionada em JPEG

[Francisco95]

Exporto muitas imagens e sempre tenho que ficar tirando do GIF e colocando em JPG. Queria saber, se tem como deixar o tipo de formato já selecionado em JPEG.

Complemento:

(/upfiles/15670361162740901.png)

Boa Noite, agradeço pela ajuda. Assisti algumas aulas e conseguir adicionar a MACRO e criei o atalho, mas está dando esse erra ao exporta a imagem. poderia Ajudar ?

Complemento 2:

Boa Noite, Obrigado pela ajuda, espero que essa dúvida ajude outras pessoas. Conseguir fazer a exportação em JPG, mas surgiu outra dúvida. Eu trabalho usando varias imagens em uma página do Draw, e quando uso essa MACRO de exportação, ela está exportando todo conteúdo da página . queria saber se tem como só exporta a imagem selecionada?

quando exporto do método normal uso a opção “Seleção” para exporta só a imagem que selecionei na página.

A MACRO está exportando todas imagens contida na página.

Boa Noite, @Gilberto Schiavinatto, muito obrigado pela ajudar. A macro funciono. Só que ainda tenho dúvidas para melhorar o desempenho do meu trabalho no Draw. A Primeira seria se tem como a seleção que eu faço no Draw, reconhecer String. queria saber se a variável xNome, pode pegar esses dados de texto selecionado, assim ja colocando no campo que pede o nome da imagem selecionada, outra duvida seria se a variável xNome, poderia automaticamente na execução colocar numero, ou seja, se eu selecionar a primeira imagem, no campo de escrever aparacer automaticamente o numero 1, posteriormente a segunda imagem 2.

Nessa imagem, seria a primeira duvida, nessa seleção da imagem, tem uma caixa de texto, queria saber se a variável xnome, consegue pegar esses dados e automaticamente colocar no campo de escrita como mostra a imagem. Obrigado pela atenção.

Boa Noite, @Gilberto Schiavinatto , fiz uma Implementação na variável xNome, coloquei a função “Int((200 - 0 + 1) * Rnd + 1)”, assim está gerando um numero aleatório para o nome da imagem selecionada, porem existe a probabilidade desse numero repeti, assim substituindo uma imagem na pasta.
Queria saber se tem alguma função para os números não repeti? ex: tenho 200 imagens, queria exporta todas de 1 a 200.

[schiavinatto]

Diretório inexistente, selecione um arquivo qualquer do diretorio que quer usar, clique direito, em Propriedades veja Local.

---

ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

[schiavinatto]

@Francisco95, veja complemento em minha resposta.

---

ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use na pergunta ou abaixo, NÃO use Adicionar resposta, Grato.

[schiavinatto]

@Francisco95, sobre pegar o titulo, talvez até seja possível, desconfio que não, mas saiu do nível do meu conhecimento, fico devendo.

[schiavinatto]

Só para entender, esta fazendo o inverso, esta desmontando o arquivo em Draw ?

Qual a finalidade ?

[Francisco95]

Não quero mudar o tipo do Arquivo do Draw. O código que você montou está todo certo. É que na imagem exportada, tem uma caixa de texto contendo informação da imagem ( como mostro na imagem da última duvida ) e quando exporto tenho que digitar essa informação, ai queria saber se com algum código poderia pegar essas informações dessa caixa de texto e já colocar no campo que pergunta o nome que quero colocar para imagem ou colocar automaticamente um numero para cada imagem selecionada. Existe algum site que posso estudar sobre Macro ? pode executar Macro usando a linguagem de programação Java?

[schiavinatto]

Se agrupar a caixa de texto com a imagem, pode exportar junto, mas depois para alterar o texto só editor gráfico. Quanto a pegar o titulo, talvez seja possível, desconheço como.

Macro em Java, desconheço, o LibreOffice, aceita programação em Python.

Material para pesquisa, tem uma lista aqui: Documentação para Macros Basic - Calc - Referencia

E as minhas perguntas:

Só para entender, esta fazendo o inverso, esta desmontando o arquivo em Draw ?

Qual a finalidade ?

[Francisco95]

Obrigado por tirar minhas dúvidas e mandar o link. Acho que construir a pergunta errada :(, enfim, percebi que se apagar o InputBox(“Qual o nome para o arquivo?”) a imagem selecionada será salva com o nome 0 automaticamente na minha pasta. Será que tem algum código que salve cada imagem selecionada com um numero diferente ? ex: tenho 5 imagem na página do Draw, a primeira imagem selecionada foi salva como 0, posteriormente a 2 como 1… atualmente se eu salvar a imagem sem o inputBox, ela sempre será salva com o nome 0, assim só está substituindo a imagem. @Gilberto Schiavinatto

[schiavinatto]

@Francisco95, veja Complemento2 em minha resposta.

[Francisco95]

@Gilberto Schiavinatto, Obrigado pela ajuda <3, tudo funciono ^^. O senhor poderia olhar esse meu outro tópico > Tem como deixar 2 ou mais Páginas do DRAW com Altura e Largura diferente uma da outra? , por favor.

[schiavinatto]

Ola @Francisco95, seja bem vindo ao Grupo.

Creio que pode ser feito via Ferramentas / Opções / LibreOffice / Avançado / Configurações para especialistas, mas não tenho conhecimento suficiente para tal.

Então teste esta macro: Salve em Minhas macros

Sub ExportarJPEG
Dim document, dispatcher as Object
Dim xNome As String
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	xNome = InputBox("Qual o nome para o arquivo?")
	Var1 = xNome
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/GILBERTO/Desktop/" & xNome & ".jpg"
args1(1).Name = "FilterName"
args1(1).Value = "calc_jpg_Export"
args1(2).Name = "FilterData"
args1(2).Value = Array(Array("ColorMode",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Quality",0,90,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PixelWidth",0,794,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PixelHeight",0,1123,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("LogicalWidth",0,21005,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("LogicalHeight",0,29708,com.sun.star.beans.PropertyState.DIRECT_VALUE))
args1(3).Name = "SelectionOnly"
args1(3).Value = false
dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args1())
end sub

Se Ok crie um atalho de teclado, para aciona-la.

Fiz com o gravador de macros e acrescentei o InputBox

Complemento

Aproveitei limpar a macro…

Sub ExportarJPEG2
Dim document, dispatcher as Object
Dim xNome As String
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	xNome = InputBox("Qual o nome para o arquivo?")
	Var1 = xNome
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/GILBERTO/Desktop/" & xNome & ".jpg"
args1(1).Name = "FilterName"
args1(1).Value = "draw_jpg_Export"
args1(3).Name = "SelectionOnly"
args1(3).Value = true
dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args1())
end sub

Complemento2

REM  *****  BASIC  *****

Global xNome As Integer

Sub ExportarJPEG2
Dim document, dispatcher as Object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	If xNome = 0 Then
    xNome = InputBox("Qual o numero inicial para o arquivo?")
    End if
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/GILBERTO/Desktop/" & xNome & ".jpg"
args1(1).Name = "FilterName"
args1(1).Value = "draw_jpg_Export"
args1(3).Name = "SelectionOnly"
args1(3).Value = true
dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args1())    
    xNome = xNome + 1
    Var1 = xNome
end sub

---

ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.