1

O código abaixo copia uma faixa de células de uma planilha que é colada como imagem em outra planilha, mas não encontrei uma forma de salvá-la como um arquivo de imagem em uma pasta, ou mesmo selecioná-la para trabalhar com esta imagem pelo VBA.

Range("D19:H25").Select

Application.CutCopyMode = False

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

Sheets("Imagem").Activate

Range("A1").Select

ActiveSheet.Paste

'a instrução     Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
'coloca a imagem na área de transferência (imagem originada de uma faixa de células selecionadas)

'... como salvar esta imagem em uma pasta a partir da área de transferência?

'... ou como salvá-la se já estiver colada na planilha?

'... como colocar esta imagem em um objeto image, tem como?

Se esta imagem colada (que está na área de transferência) pudesse ser salva em uma pasta, mais tarde ela poderia ser lida para um objeto image do VBA.

Caso haja como pegar esta imagem da área de transferência e colocar direto em um objeto image, também resolveria, mas de qualquer forma é importante poder salvar esta imagem.

Tem como fazer isso?

2
  • Editei a sua pergunta pra retirar o complemento... porque ele é desnecessário (você abriu a sua outra pergunta por causa disso). 2/02/2016 às 2:21
  • Ok, estou aprendendo interagir aqui... veja o último comentário que postei.
    – Leo
    2/02/2016 às 2:26

1 Resposta 1

2

Uma possível solução é a seguinte:

1 - Use o objeto Shape para acessar diretamente o objeto da imagem. O nome da imagem (no meu exemplo "Imagem 1") é o nome que você pode dar diretamente no Excel, no campo existente próximo à barra de ferramentas:

inserir a descrição da imagem aqui

BTW, a imagem minimalista de exemplo que eu usei foi tirada daqui. :)

2 - Então, copie o objeto para a área de transferência. Você pode fazer da forma como já fez, mas usando o objeto pelo nome é mais fácil porque independe do posicionamento dele na planilha.

3 - Finalmente, adicione um objeto de gráfico temporário no Excel, e cole a imagem nele. Esse "truque" é necessário para você utilizar o recurso de salvar como imagem dos objetos gráficos. (Very clever, Watson!). A fonte original dessa parte é essa resposta do SOen.

Pronto! A sua imagem foi gravada no disco no arquivo solicitado. Eis um exemplo de código:

Dim oImage As Shape
Dim oSheet As Worksheet
Dim oTemp As ChartObject
Dim oChartArea As Chart

Set oSheet = ActiveSheet
Set oImage = oSheet.Shapes.Item("Imagem 1")

oImage.CopyPicture

Set oTemp = oSheet.ChartObjects.Add(0, 0, oImage.Width, oImage.Height)
Set oChartArea = oTemp.Chart
oTemp.Activate
With oChartArea
    .ChartArea.Select
    .Paste
    .Export ("C:\Temp\Teste.jpg")
End With
oTemp.Delete
14
  • Luiz, excelente, testei manualmente primeiro e funcionou, mas no código falta a declaração das variáveis oTemp e oChartArea, pois uso o Option Explicit e elas são exigidas. Por favor, Como devo declará-las?
    – Leo
    2/02/2016 às 1:05
  • Oi. Editei a resposta para incluir no código as definições que eu havia esquecido. Se a resposta te ajudou, por favor considere aceitá-la. 2/02/2016 às 1:47
  • Ok, mas a imagem gerada no arquivo foi a do próprio Shape e não a da imagem que foi colada sobre ele. Creio que as linhas que adicionei no código acima para copiar a imagem sobre o Shape devem estar erradas ou faltando algo. Por favor, verifique o meu segundo código.
    – Leo
    2/02/2016 às 2:09
  • A imagem que foi salva no arquivo é a imagem que está no objeto Shape. Como VOCÊ MESMO ARGUMENTOU NA SUA OUTRA PERGUNTA (que eu inicialmente julguei duplicada), essa pergunta é só sobre como salvar uma imagem em um arquivo. Lá você deseja saber como atualizar uma imagem com o conteúdo de um range selecionado. Certo? 2/02/2016 às 2:12
  • 1
    Ok. Agora entendi, funcionou!!! Muito obrigado, resolveu um problemão!
    – Leo
    2/02/2016 às 13:03

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .