Boa Tarde,
Estou precisando de uma mãozinha.
Eu utilizo este código: local_imagem = Application.GetOpenFilename(filefilter:="Picture Files,*.ico;*.bmp")
Ele serve para abrir o local para eu localizar uma imagem no c:
Estou precisando que este local seja fixo, ou seja, ao invés de abrir para eu localizar em c: eu preciso que localize em c:empresafotosexemplos.
Gostaria de uma ajuda sobre como fazer ou pesquisar sobre.
Abraços
Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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"
Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
A Solução é Mapear o Local da Rede.
Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------
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
Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------