Ajuda: Exportando Imagem Do Excell Com Função Vba

[Matrox]

Amigos,

Essa é a minha primeira msg aqui nesse fórum. Começei a aprender a usar o VBA estou com dúvida no seguinte.

Tenho uma planilha excel com várias informações que eu exporto da célula, seu conteúdo, jogo numa variável e depois gravo no meu banco de dados.

Até aí, sem problemas, mas me informaram que, nessa planilha excel tem imagens tambem ,não vinculadas a uma célula e que precisam ser exportadas para um diretório c:\planilha\nome planiilha\<imagens_ dessa_planilha>.gif (ou jpg)

Como fazer isso aproveitando meu programa? Já que detecto a planilha desejada, exporto os dados e parei por ai, infelizmente...

Se puderem ajudar, agradeco antecipadamente.

Ivan

[Graymalkin]

Adicione o módulo PastePicture do Stephen Bullen ao seu projeto: http://www.bmsltd.co.uk/DLCount/DLCount.as...astePicture.zip

Depois você poderá usar o seguinte código para exportar todas as imagens:

    Dim img As Shape
    Dim imagem As IPictureDisp
    
    pasta = "c:\temp\"
    
    For Each img In Me.Shapes
        Debug.Print img.Name
        img.CopyPicture xlScreen, xlBitmap
        Set imagem = PastePicture(xlBitmap)
        SavePicture imagem, pasta & img.Name & ".jpg"
    Next img

Certo? ;)

Graymalkin

[Matrox]

Olá Graymalkin,

Vou verificar o que você mandou.

Eu tenho um código VBA pronto e vou ver o que fazer.

Muito obrigado por sua ajuda ,amigo.

Ivan

[Matrox]

Graymalkin,

Após fazer os testes, funcionou 100%.

Então só posso dizer MUITO OBRIGADO pela sua ajuda e esse fórum foi significante para meu aprendizado. :rolleyes:

Grande abraço

Ivan

[jr_helvecio]

Olá!

Tem o endereço, pois o link não está funcionando.

Em 11/01/2007 em 01:00, Graymalkin disse:

http://www.bmsltd.co.uk/DLCount/DLCount.as...astePicture.zip

Obrigado!