Excel VBA salvar como Imagem

[deejaywesley]

Boa Noite Galera!

alguem ai sabe um VBA que fique em um modulo

e pegue um intervalo, por ex: na Plan2 de B2:E20

e salve ele na pasta "D:\Meus Documentos\Minhas imagens\Arquivos"

no formato AlgumaCoisa.JEPG ou PNG GIF etc....

[Patropi]

Boa noite amigo deejaywesley.

Acho que este tutorial do Adilson vai te ajudar, leia até o fim, pois na segunda parte tem um macete para os dados se atualizarem na imagem, usando a ferramenta camera.

http://usuariosdoexcel.wordpress.com/2011/05/31/tirando-fotos-da-planilha/

Um abraço.

[deejaywesley]

Bom Dia Grande Amigo Patropi...

Mas no caso meu aqui, pelo que entendi a imagem fica na planilha na "câmera"

e eu preciso que ela seja salva em uma pasta em algum formato de imagem... JEPG PNG GIF

porque a planilha fica aberta e os VBAs a atualizam em intervalos... ai essa imagem seria

salva a cada 30 segundos.... substituindo a antiga...

e um pop up de um site atualiza também acada 30 segundos, carregando e mostrando a nova imagem...

[deejaywesley]

Bom Dia!

Achei o que queria!

é esse o codigo!

Sub teste()

''' Set Range you want to export to file

Dim rgExp As Range: Set rgExp = Sheets("Plan1").Range("B5:H14")

''' Copy range as picture onto Clipboard

rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

''' Create an empty chart with exact size of range copied

With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _

Width:=rgExp.Width, Height:=rgExp.Height)

.Name = "ChartVolumeMetricsDevEXPORT"

.Activate

End With

''' Paste into chart area, export to file, delete chart.

ActiveChart.Paste

ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export "D:\Adobe\testmeExportChart.jpg"

ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete

End Sub

a galera mais intendida em VBA pode me falar se tem algum lugar nesse codigo

para alterar o tamanho da imagem????