Visual Basic Importar arquivo de imagens

[valbeezerra]

Bom dia a todos,

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 você 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.

 

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

 

[Basole]

Veja se é isso que deseja:

 

Option Explicit
Sub GetFileNames()
Dim rowB As Long: rowB = 2
Dim rowC As Long: rowC = 3
Dim xDirect, xFname, InitialFoldr

InitialFoldr = "C:\"
With Excel.Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Excel.Application.DefaultFilePath & "\"
.Title = " Selecione o Aquivo "
.InitialFileName = InitialFoldr
.Show
   
If .SelectedItems.Count <> 0 Then
xDirect = .SelectedItems(1) & "\"
xFname = VBA.Dir(xDirect, 7)
Do While xFname <> ""
Range("B" & rowB) = xFname
Range("C" & rowC) = xDirect
rowB = rowB + 1
rowC = rowC + 1
xFname = VBA.Dir
Loop
End If
End With
End Sub

 

[valbeezerra]

 Opa Basole,

 

Obrigado pela por responder. Era exatamente isso que estava a procura.

Só uma questão que não estou conseguindo resolver. Seguinte: Meu sistema quando carrega uma imagem no formulário, O nome da imagem aparece na barra do mesmo. Esses códigos, pega o nome da imagem com o nome da extensão, o que não fica bem.

Saberia me dizer se tem como tirar a extensão?

abç.

[Basole]

Pode fazer desta forma: 

VBA.Left(SuaImagem.png, VBA.InStr(SuaImagem.png, ".") - 1)

 

[valbeezerra]

Obrigado irmão,

Ficou perfeito!