julias,
Boa Noite!
Estou lhe enviando um arquivo compactado abaixo que contém 3 arquivos (Imagem na célula.xlsm, 1.jpg e Branco.bmp). Salve os 3 numa mesma pasta. Em seguida, altere a linha Image1.Picture = LoadPicture("C:UsersWagnerPicturessharpei.bmp") e a linha Image1.Picture = LoadPicture("C:UsersWagnerPicturesBranco.bmp") de maneira a que possa refletir a pasta onde você colocou os arquivos .jpg e . bmp.
O arquivo 1.jpg é a imagem de um carro que vai aparecer assim que você digitar o número 1 na célula A1. Quando você apagar o número 1, será carregado o arquivo Branco.bmp que faz "desaparecer a imagem do carro anteriormente carregada.
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 10/01/2014 3:25 pm