Получить изображение из папки и подпапок - PullRequest
Новая
       10

Получить изображение из папки и подпапок

0 голосов
/ 09 октября 2018

У меня есть этот макрос, который я использую для открытия изображения в пользовательской форме в соответствии с выбранным значением ячейки на плане.Я отлично работаю, но теперь мне нужно, чтобы он смотрел в подпапках того же каталога, я провел некоторые исследования, но ничего не смог найти.У вас есть идеи о том, как? 

Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Target.Column = 2 Then

    InsertImage (Target.Value)

End If
End Sub

Sub InsertImage(Produto As String)
On Error Resume Next

Dim Image, path As String


Image = Dir("\\clfssrvfar\share\dve\coleções\33 - Melissa Family 18\" & Produto & "*", vbDirectory)

path = "\\clfssrvfar\share\dve\coleções\33 - Melissa Family 18\" & Imagem

FrmImagem.Produto.Picture = LoadPicture(CaminhoImagem)
FrmImagem.Show


End Sub
...