Удалить путь из имени файла изображения в VBA

Question

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

Мой Sub поэтому читает

Sub Image()
Dim Pict
Dim ImgFileFormat As String
ImgFileFormat = "Image Files (*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tif; *.tiff ), *.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tif; *.tiff"
Pict = Excel.Application.GetOpenFilename(ImgFileFormat)
If Pict = False Then End
End Sub

Однако я хочу извлечь имя файла из пути к файлу (переменная Pict).

Любая помощь будет оценена.

Answer 1

Pict = Dir(Pict)

должен дать вам только имя файла.

Answer 2

Может быть, это поможет вам:

Function FunctionGetFileName(FullPath As String)
Dim StrFind As String
    Do Until Left(StrFind, 1) = "\"
        iCount = iCount + 1
        StrFind = Right(FullPath, iCount)
            If iCount = Len(FullPath) Then Exit Do
    Loop
    FunctionGetFileName = Right(StrFind, Len(StrFind) - 1)
End Function