Para abrir direto em um determinado diretório utilize da seguinte forma :

ChDrive "c:"
ChDir "c:empresafotosexemplos"
 
local_imagem = Application.GetOpenFilename(filefilter:="Picture Files,*.ico;*.bmp", Title:="Selecione o Arquivo")

If local_imagem = False Then
     ' Clicou em Cancelar
     
    MsgBox "Você não selecionou um arquivo, saindo da rotina !!!"
     
    Exit Sub
     
Else
     
    Workbooks.Open Filename:=local_imagem
     
End If

Opa funcinou certinho.

Porém gostaria de abrir tb uma pasta na rede...e não esta dando certo. será que tenho que utilizar algum outro comando?

ChDrive "\"
ChDir "\empresafotosexemplos"

No caso de Rede você tem de saber o caminho certo e tambem saber se ela não está protegida, não utilizo rede, mas se pesquisar no forum por caminho de rede encontrara varios tópicos a respeito.

veja :
https://cse.google.com.br/cse?cx=partne ... gsc.page=1

A Solução é Mapear o Local da Rede.

Bom Dia,

estou reabrindo este tópico para tirar uma duvida q complementa este assunto.

Segue abaixo o Código que estou utilizando.

Duvida é o seguinte. Em "ChDir caminho_img_bruto", eu declarei "caminho_img_bruto" como string para memorizar o caminho e este caminho ser configurado.
O problema é que não funciona. Não acontece nada. Só funciona se eu escrever manualmente no código o caminho desejado. Podem me dar uma ideia?

Imagens Prontas
Dim local_imagem As String
Dim caminho_img_bruto As String
Dim cod As Long

caminho_img_bruto = Sheets("Conf_Globais").Range("g10")

ChDrive "c:"
ChDir caminho_img_bruto

If Me.txtId = "" Then
Exit Sub
End If
cod = Me.txtId


On Error Resume Next
local_imagem = Application.GetOpenFilename(filefilter:="Picture Files,*.ico;*.bmp;*.jpg", Title:="Selecione o Arquivo")


    txtLocalImagem2 = local_imagem
    Me.Image2.Picture = LoadPicture(local_imagem)
    Image2.PictureSizeMode = fmPictureSizeModeStretch