Tenho um sisteminha que carrega imagens da planilha com base no Nome e endereço completo da imagem para um userform. Até aqui tudo bem, funcionando tudo ok.
O problema é que tenho uma pasta que tem algumas centenas de imagens que preciso inserir no sistema. Como são muitas, Preciso criar uma macro que me permita baixar todas, em vez de uma a uma.
Esse código que Encontrei na Internet faz parte do que preciso, busca o Arquivo e baixa, só que tem dois problemas: Não pega o endereço completo, apenas o nome da imagem, e o outro é que vc precisa clicar na célula onde vai iniciar o primeiro nome. No meu caso seria: NOME DA IMAGEM Iniciar na célula (B2) e ENDEREÇO COMPLETO DA IMAGEM na (C3).
Gostaria de saber se é possível adapta esse código para realizar essa façanha.
Código: Selecionar todos
Option Explicit
Sub GetFileNames()
Dim xRow As Long
Dim xDirect, xFname, InitialFoldr
InitialFoldr = "C:\"
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = " Selecione o Aquivo "
.InitialFileName = InitialFoldr
.Show
If .SelectedItems.Count <> 0 Then
xDirect = .SelectedItems(1) & "\"
xFname = Dir(xDirect, 7)
Do While xFname <> ""
ActiveCell.Offset(xRow) = xFname
xRow = xRow + 1
xFname = Dir
Loop
End If
End With
End Sub