[Resolvido]Escolher foto para um camo img

Olá,

Meu programa de cadastro parou de incluir foto de funcionários.

Inclui a ferramenta do Office library 16,
mas esta dando erro nessa linha:

.Filters.Add "Imagens dos Materiais", "*.jpg, *.jpeg, *.bmp, *.gif, *.png"

Não consegui passar desse ponto.

Código:


Private Sub Comando210_Click()
 
   
    Dim fd As Office.FileDialog
   
    If Not IsNull(Me.LocalFoto) Then
       
        If MsgBox("Desvincular Imagem cadastrada?", vbQuestion + vbYesNo, "Atenção!") = vbYes Then
        Me.LocalFoto = Null
       
        End If
    Exit Sub
    End If
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
    With fd
          .AllowMultiSelect = False
         
          .Title = "Selecione uma Imagem!"
          .Filters.Clear
         
          .Filters.Add "Imagens dos Materiais", "*.jpg, *.jpeg, *.bmp, *.gif, *.png"    <------------
       
        If .Show = True Then
            Me.LocalFoto = .SelectedItems(1)
            Else
            MsgBox "Nenhuma imagem selecionada!..", vbInformation, "Informação!"
        End If
       
    End With
   
    Set fd = Nothing
   
    End Sub


Podem me ajudar?

Antes funcionava bem com essas linhas no comando click.:

Código:


Private Sub Comando102_Click()
Dim strCaminho As String, strPastaInicial As String
    strPastaInicial = "C:\Meus Documentos"
    strCaminho = Buscar(Me.hWnd, "Inserir foto", strPastaInicial, _
    "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
    If Len(strCaminho) > 0 Then
        Me.LocalFoto = strCaminho
        Me.Foto.Picture = Me.LocalFoto
    End If
End Sub


Procurei o erro e não achei.
Procurei no Chat GPT e me retornaram esse código.

e funcionou.

Código:


Private Sub BtnSelecionarImagem_Click()
    Dim dlg As FileDialog
    Dim caminhoImagem As String

    ' Cria uma instância do objeto FileDialog
    Set dlg = Application.FileDialog(msoFileDialogFilePicker)

    ' Configura as opções do diálogo
    With dlg
        .Title = "Selecione uma imagem"
        .Filters.Clear
        .Filters.Add "Imagens", "*.jpg;*.jpeg;*.png;*.gif"
       
        ' Exibe o diálogo e verifica se o usuário clicou em "Abrir"
        If .Show = -1 Then
            ' Obtém o caminho do arquivo selecionado
            caminhoImagem = .SelectedItems(1)
           
            ' Atualiza o campo de texto no formulário com o caminho da imagem
            Me.CaminhoImagem = caminhoImagem
        Else
            ' O usuário cancelou a seleção
            MsgBox "Nenhuma imagem selecionada.", vbInformation
        End If
    End With

    ' Libera a memória do objeto FileDialog
    Set dlg = Nothing
End Sub