Abrir arquivo .gif via VBA sem utilizar UserForm

[MMáximo]

Boa Tarde,

Estou precisando abrir um arquivo .gif via VBA ao executar uma macro sem a necessidade de um Userform.

Preciso que apenas a animação .gif apareça.

Agradeço desde já a atenção e ajuda.

[Patropi]

Boa tarde MMáximo

Para inserir uma imagem no Excel na célula A25, adapte para a célula que você quiser.

Sub Insere_Especifico()         Dim Pict         Dim Imagem As Object         Dim ImgFileFormat As String         Dim Celula As String 
        Celula = "A25" 
        ImgFileFormat = "Image Files JPG (*.jpg),*.jpg, Image Files GIF (*.gif),*.gif, Image Files BMP (*.bmp),*.bmp" 
        Pict = Application.GetOpenFilename(ImgFileFormat)         If Pict = False Then End 
        Set Imagem = ActiveSheet.Pictures.Insert(Pict) 
        Imagem.Top = Range(Celula).Top         Imagem.Left = Range(Celula).Left         Imagem.ShapeRange.LockAspectRatio = msoFalse 
        Imagem.Height = Range(Celula).Height * 12 '12 = Quantidade de linhas...         Imagem.Width = Range(Celula).Width * 3 '3 = Quantidade de colunas... End Sub

Um abraço.

[MMáximo]

Boa Tarde Patropi,

Primeiramente gostaria de agradecer a disposição a ajudar, muito obrigado.

A minha questão com a abertura do arquivo .gif é que eu possuo uma planilha em que existe uma macro que ao ser iniciada demora muito para finalizar o processo, então, o que eu programei foi que quando iniciada, a aplicação é "escondida"(função .hide) e é mostrada uma barra de carregamento do processo (barra de porcentagem). Só que agora desejo mudar essa barra de "loading" por um arquivo .gif de loading semelhante ao da apple.

O modo como consegui realizar isso é chamar o arquivo dentro de um userform (chamo o userform e o userform roda o .gif), não consigo chamar somente o .gif.

[zinhovba]

Boa noite!!

Quem sabe isso te ajuda...

Private Sub cmdUploadImage_Click()Dim arTemp() As VariantDim lRet
On Error GoTo Err_Clr
lRet = Application _.GetOpenFilename("Image Files (*.jpg;*.jpeg;*.bmp;*.gif;*.png;*.tif), *.jpg;*.jpeg;*.bmp;*.gif;*.png;*.tif", 2, "Open Image files", True)If lRet = False ThenMsgBox "Select a Image File Please!!!"ElseImage1.Picture = LoadPicture(lRet)End If
Err_Clr:If Err 0 ThenErr.ClearResume NextEnd If
End Sub

[MMáximo]

Obrigado ZinhoVBA pela ajuda. Mas não estou conseguindo chamar o .gif com essa programação.

[zinhovba]

Boa noite!!!

O que ocorre?

Verifique se a linha de código é compatível com o caminho e formato.

.GetOpenFilename("Image Files (*.jpg;*.jpeg;*.bmp;*.gif;*.png;*.tif), *.jpg;*.jpeg;*.bmp;*.gif;*.png;*.tif", 2, "Open Image files", True)