Como Salvar Imagem do Excel para Jpg Vba

Para salvar uma imagem do Excel como JPG usando VBA, siga os seguintes passos:

1. Selecione a imagem que deseja salvar como JPG.

2. Abra o editor de VBA pressionando ALT + F11.

3. Insira o seguinte código VBA:

Sub SaveImageAsJPG()

Dim FileName As String Dim Path As String Dim Ext As String

Path = "C:\Imagens\" 'caminho onde deseja salvar a imagem Ext = ".jpg" 'extensão do arquivo

FileName = "MinhaImagem" 'nome do arquivo

ActiveSheet.Shapes.Range(Array("Picture 1")).Copy

With New ADODB.Stream.Type = adTypeBinary.Open.Write ActiveSheet.Shapes.Range(Array("Picture 1")).CopyPicture(Format:=xlBitmap).EnhMetaFileBits.SaveToFile Path & FileName & Ext, adSaveCreateOverWrite.Close End With End Sub

4. Personalize o código de acordo com o nome do arquivo e o caminho onde deseja salvar a imagem.

5. Execute o código pressionando F5 ou clicando em Executar na barra de ferramentas do editor do VBA.

6. A imagem será salva no caminho especificado com o nome e extensão escolhidos.