Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 VBA PARA BUSCAR LISTA DE FOTOS EM PASTA

Ir para baixo 
2 participantes
AutorMensagem
Cleyton_Vieira




Mensagens : 2
Data de inscrição : 24/05/2015

VBA PARA BUSCAR LISTA DE FOTOS EM PASTA Empty
MensagemAssunto: VBA PARA BUSCAR LISTA DE FOTOS EM PASTA   VBA PARA BUSCAR LISTA DE FOTOS EM PASTA EmptyDom maio 24, 2015 2:18 am

Boa noite pessoal.

Não sei muito de VBA e ainda vou fazer um curso mas vou tentando aprender de curioso. Tenho um script para busca as fotos de uma lista de produtos. Mas quando outra pessoa abre o arquivo, as fotos não aparecem. O arquivo fica na rede e a pasta das fotos também (não na mesma pasta). Pesquisando na internet achei uma pessoa falando que para incorporar as fotos ao arquivo precisa usar o comando AddPicture. Tentei alterar o meu script mas não consegui, segue o meu script:

Sub InsertPic()
Dim pic As String 'ENDEREÇO
Dim myPicture As Picture
Dim rng As Range 'RANGE PARA ITERAR


Set rng = Range("M5") '1A CELULA DA FOTA

Do While rng.Offset(0, -Cool <> ""

pic = "C:\FOTOS_INTERNET\" & rng.Offset(0, -Cool & "_productr_1.jpg"
If Dir(pic) = "" Then GoTo prox 'VERIFICA SE EXISTE
Set myPicture = ActiveSheet.Pictures.Insert(pic)
With myPicture
.ShapeRange.LockAspectRatio = msoFalse
.Width = rng.Width - 1
.Height = rng.Height - 1
.Top = Rows(rng.Row).Top
.Left = Columns(rng.Column).Left
End With
prox: Set rng = rng.Offset(1, 0)
Loop

End Sub


Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

VBA PARA BUSCAR LISTA DE FOTOS EM PASTA Empty
MensagemAssunto: Re: VBA PARA BUSCAR LISTA DE FOTOS EM PASTA   VBA PARA BUSCAR LISTA DE FOTOS EM PASTA EmptyTer maio 26, 2015 7:42 pm

Boa tarde!!!

Favor indicar as postagens cruzadas!
http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=15943&p=81966

Att
Ir para o topo Ir para baixo
Cleyton_Vieira




Mensagens : 2
Data de inscrição : 24/05/2015

VBA PARA BUSCAR LISTA DE FOTOS EM PASTA Empty
MensagemAssunto: Re: VBA PARA BUSCAR LISTA DE FOTOS EM PASTA   VBA PARA BUSCAR LISTA DE FOTOS EM PASTA EmptyQui maio 28, 2015 3:36 pm

Bom dia alexandrevba.

Esse link é uma postagem minha em outro forum, fiz alguma coisa errada? Desculpa, pensava que era um forum diferente.

Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

VBA PARA BUSCAR LISTA DE FOTOS EM PASTA Empty
MensagemAssunto: Re: VBA PARA BUSCAR LISTA DE FOTOS EM PASTA   VBA PARA BUSCAR LISTA DE FOTOS EM PASTA EmptyQui maio 28, 2015 5:35 pm

Bom dia!!

Apenas é recomendado, quando postar uma mesma dúvida em fóruns diferentes, indicar com um link do post onde foi postado as nos outros fóruns.

Att
Ir para o topo Ir para baixo
Conteúdo patrocinado





VBA PARA BUSCAR LISTA DE FOTOS EM PASTA Empty
MensagemAssunto: Re: VBA PARA BUSCAR LISTA DE FOTOS EM PASTA   VBA PARA BUSCAR LISTA DE FOTOS EM PASTA Empty

Ir para o topo Ir para baixo
 
VBA PARA BUSCAR LISTA DE FOTOS EM PASTA
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Copiar e Colar para outra pasta
» Origem de Dados em Pasta de Trabalho
» Formula para buscar minimo e maximo com criterio
» Do while BUSCAR E TRAANSFERIR
» Importar Dados de sub-pasta com diversas condições

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: