PEGANDO IMAGEM

USUARIO.EXCLUIDOS 22/07/2005 08:05:21
#95493
galera em uma rotina eu tenho o seguinte codigo

ActiveSheet.Pictures.Insert("c:\pastalocal\LogoLinear.jpg").Select
' pega uma imagem. ..........

eu gostaria de saber como eu faço para deixar apenas o nome do arquivo ???sem o caminho,


pois por padronizaçao essa imagem esta sempre no diretorio do executavel, entao como eu faço selecionar a partir do diretorio atual?(ou se alguem tiver alguma outra ideia mais facil, Estou usando vba exel, crio q nao mude muita coiza
LREZANI 22/07/2005 08:10:22
#95495
Resposta escolhida
Se a imagem estiver no mesmo diretório do projeto e do executável use:
ActiveSheet.Pictures.Insert App.Path & "\\LogoLinear.jpg".Select
Onde a função App.Path retorna o diretório onde está o seu projeto\executável.
Tópico encerrado , respostas não são mais permitidas