Pergunte aqui
0

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

perguntadas 2019-08-28 00:35:23 +0200

imagem do gravatar de Francisco95

updated 2019-09-12 04:08:32 +0200

Descrição da imagem

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:

Descrição da imagem

Descrição da imagem(/upfiles/15670361162740901.png)

Descrição da imagem

Descrição da imagem

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.

Descrição da imagem

A MACRO está exportando todas imagens contida na página. Descrição da imagem

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.

Descrição da imagem

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.

Descrição da imagem

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

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

Descrição da imagem

-----------------------------------------------------------------------------

ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-08-29 02:56:29 +0200 )editar

@Francisco95, veja complemento em minha resposta.

-----------------------------------------------------------------------------

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

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-08-30 04:38:01 +0200 )editar

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

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-08-31 01:01:35 +0200 )editar

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

Qual a finalidade ?

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-08-31 01:18:19 +0200 )editar

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?

imagem do gravatar de Francisco95Francisco95 ( 2019-08-31 01:31:08 +0200 )editar

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: https://ask.libreoffice.org/pt-br/que...

E as minhas perguntas:

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

Qual a finalidade ?

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-08-31 01:50:00 +0200 )editar

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

imagem do gravatar de Francisco95Francisco95 ( 2019-08-31 02:00:24 +0200 )editar

@Francisco95, veja Complemento2 em minha resposta.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-09-12 14:06:59 +0200 )editar

@Gilberto Schiavinatto, Obrigado pela ajuda <3, tudo funciono ^^. O senhor poderia olhar esse meu outro tópico > https://ask.libreoffice.org/pt-br/que... , por favor.

imagem do gravatar de Francisco95Francisco95 ( 2019-09-12 23:39:39 +0200 )editar

1 Resposta

0

respondidas 2019-08-28 14:11:56 +0200

updated 2019-09-12 14:03:04 +0200

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 Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

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

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-08-28 00:35:23 +0200

Lidas: 58 vezes

Última atualização: Sep 12