Cabeça foi feita para se pensar!!!


Dicas programação em Excel (VBA)



Como salvar uma planilha de excel como figura.

O Vba do Excel, ao contrario do VB.net não aceita a função clipboard.getdata() Portanto criei um chart para receber a figura do clipboard e depois exportar como gif.. POG (Programação Orientada a Gambiarra) - Mas funciona. rsrssrsrs


Sub exportaplanilhacomofigura()
Dim imagem As ChartObject
Set imagem = Plan3.ChartObjects.Add(200, 200, 400, 400)
Plan1.Range("A1:C13").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
imagem.Activate
ActiveChart.Paste
ActiveChart.Export "c:\dados\abc.gif", "gif"
End Sub


<-- Voltar