EXPORTANDO IMAGENS DE OBJETOS IMAGES

PABLOMOREIRAGV 17/04/2014 08:58:39
#437395

Olá pessoal,

Estou com um problema que não consigo resolver. Tenho 64 objetos IMAGES inseridos em uma planilha, onde eu queria exportar todas as imagens

contidas neles. Ao executar o código eu queria que fosse criada um pasta de nome EXPORTAÇÃO (dentro do caminho do arquivo original), e dentro dela contivesse

uma pasta de nome ANTES (nesta pasta salvaria as imagens contidas nos images de números: 1, 2, 3, 4, 9, 10, 11, 12, 17, 18, 19, 20, 25, 26, 27, 28, 33, 34,

35, 36, 41, 42, 43, 44,49, 50, 51, 52, 57, 58, 59, 60 ) e outra pasta de nome DEPOIS (nesta página salvaria as imagens contidas nos images de número: 5, 6, 7,

8, 13, 14, 15, 16, 21, 22, 23, 24, 29, 30, 31, 32, 37, 38, 39, 40, 45, 46, 47, 48, 53, 54, 55, 56, 61, 62, 63, 64). Esta ação não apagaria as imagens contidas nos objetos

após a execução do código.

O código que estou utilizando para exportar a imagem de um IMAGE, é este abaixo:

Dim picImage As IPictureDisp
Dim strCaminho

Set picImage = Plan1.Image61.Picture
If picImage Is Nothing Then
Else
strCaminho = Application.GetSaveAsFilename(InitialFileName:=[Ô][Ô], fileFilter:=[Ô]Arquivo de imagem (*.jpg), *.jpeg[Ô])
If strCaminho = False Then
Else
SavePicture picImage, strCaminho
End If
End If
Set picImage = Nothing

End Sub



OBS: Os images estão nomeados. EX: Image1, Image2, Image3...............Image64.

Alguém pode me ajudar?

Desde já agradeço.