[Resolvido]Anexar foto office 2016/2019

Código:

Public Function Buscar(lngHwnd As Long, strTítulo As String, strPastaInicial As String, strFiltro As String) As String
   
   Dim filebox As OPENFILENAME
   Dim result As Long
   With filebox
       .lStructSize = Len(filebox)
       .hwndOwner = lngHwnd
       .hInstance = 0
       .lpstrFilter = strFiltro & vbNullChar & _
           "Todos os Arquivos (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
       .nMaxCustomFilter = 0
       .nFilterIndex = 1
       .lpstrFile = Space(256) & vbNullChar
       .nMaxFile = Len(.lpstrFile)
       .lpstrFileTitle = Space(256) & vbNullChar
       .nMaxFileTitle = Len(.lpstrFileTitle)
       .lpstrInitialDir = strPastaInicial & vbNullChar
       .lpstrTitle = strTítulo & vbNullChar
       .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
       .nFileOffset = 0
       .nFileExtension = 0
       .lCustData = 0
       .lpfnHook = 0
   End With

   result = GetOpenFileName(filebox)
   If result <> 0 Then
       Buscar = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
   Else
       Buscar = ""
   End If


-------------------------------------------------------------
erro para anexar as fotos

Código:

Public Function Buscar(lngHwnd As Long, strTítulo As String, strPastaInicial As String, strFiltro As String) As String
   
   Dim filebox As OPENFILENAME
   Dim result As Long
   With filebox
       .lStructSize = Len(filebox)
       .hwndOwner = lngHwnd
       .hInstance = 0
       .lpstrFilter = strFiltro & vbNullChar & _
           "Todos os Arquivos (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
       .nMaxCustomFilter = 0
       .nFilterIndex = 1
       .lpstrFile = Space(256) & vbNullChar
       .nMaxFile = Len(.lpstrFile)
       .lpstrFileTitle = Space(256) & vbNullChar
       .nMaxFileTitle = Len(.lpstrFileTitle)
       .lpstrInitialDir = strPastaInicial & vbNullChar
       .lpstrTitle = strTítulo & vbNullChar
       .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
       .nFileOffset = 0
       .nFileExtension = 0
       .lCustData = 0
       .lpfnHook = 0
   End With

   result = GetOpenFileName(filebox)
   If result <> 0 Then
       Buscar = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
   Else
       Buscar = ""
   End If

End Function

Olá Fabiano,

Deve ser mais claro na dúvida, dando mais detalhes.
Tentando adivinhar, desconfio que a versão que tem é 64, o melhor será adaptar esta tecnica ao seu projeto:
https://www.maximoaccess.com/t38582-buscar-diretorio-de-pasta-ou-arquivo-interativamente

Abraço

Olá!

Está ai o projeto.

Tenho ele na versão 32 mas o cliente tem a versão 64 e tem que adaptar pra 64/2016

formulário : foto_mapa

Olá,

Então confirma-se o problema, é só ajustar como referi.
Se pretende um exemplo mais simples para estudar e ajustar no seu projeto, veja este tópico por exemplo:
https://www.maximoaccess.com/t9595-resolvidoabrir-uma-pasta-diretorio-escolher-arquivo-a-carregar-para-importacao

Toca a por a mão na massa.

Abraço

Resolvido

Grato