Guru do Excel e Power BI

Boa noite a todos,

Pessoal, sou novo aqui, primeiramente queria agradecer ao fórum a oportunidade de fazer parte dele.

Preciso de uma ajuda, tenho uma planilha com vários produtos e preciso que puxe automaticamente as fotos dos produtos nos comentários, as fotos estão em varias pastas em um único diretório que é o I:

Tenho um pouco de conhecimento em VBA.

desde já agradeço a todos.

Anexe sua planilha e tente colocar uma demonstração do resultado esperado.

IvailPeixoto escreveu:Tenho um pouco de conhecimento em VBA.

Tente adaptar.
O código abaixo insere uma figura no comentário da célula ativa e redimensiona o shape do comentário. O endereço do arquivo da figura deve estar na própria célula.
[/code]

Bom dia Osvaldo,

desde já agradeço sua ajuda, não consegui adaptar, teria a possibilidade de me enviar um arquivo com esse código para eu ver como ele funciona.

Aguardo,

Obrigado

Sugestão - disponibilize uma amostra do seu arquivo Excel com o resultado desejado feito manualmente, com o que você conseguiu até agora e quais as tentativas que você fez para adaptar e que não funcionaram.

Osvaldo,

Como eu anexo o arquivo?, não localizei a opção

Abaixo da última postagem do seu tópico clique em + Resposta / Adicionar um anexo / Selecione o arquivo

Segue anexo, lembrando que as fotos estão no diretório I: em varias subpastas.

Obrigado.

bom dia,

Pessoal, consegui o código, porem, preciso que procure as fotos em varias pastas dentro do diretório I: pode me ajudar, segue o código

Sub InserirComentários()


Dim rngList As Range
Dim rng As Range
Dim cmt As Comment
Dim sb As Comment
Dim strPic As String

On Error Resume Next

Set rngList = Range("c3:c1000")
strPic = "I:\Site\GERAL\"


For Each sb In ActiveSheet.Comments
sb.Shape.Height = 150
sb.Shape.Width = 150
Next sb
For Each rng In rngList
Set cmt = rng.Comment

If cmt Is Nothing Then
Set cmt = rng.AddComment


End If
With cmt
.Text Text:=""
.Shape.Fill.UserPicture strPic & rng
.Visible = False
End With
Next rng
End Sub

Pra tentar lhe ajudar a automatizar esta tarefa, é necessário obter mais informações, do tipo quando insere uma imagem manualmente, o usuário já conhece o produto e procura a imagem correspondente nas pastas e subpastas, ou se orienta por uma lista que contem os códigos dos produtos associados a respectiva imagem.
Resumindo qual o critério para inserir determinada imagem a um determinado código da [coluna B]?