Este fórum está sendo desativado

[IvailPeixoto]

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.

[babdallas]

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

[osvaldomp]

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.

Código: Selecionar todos

[code]Sub FotoNoComentário()
  Dim rng As Range, shp As Comment
    Set rng = ActiveCell
      
      If Not rng.Comment Is Nothing Then
        rng.Comment.Delete
      End If
    
    If rng.Text <> "" Then
      Set shp = rng.AddComment("")
      shp.Shape.Fill.UserPicture rng.Text
        With ActiveCell.Comment.Shape
          .Width = 220
          .Height = 80
        End With
    End If
End Sub

[/code]

[IvailPeixoto]

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

[osvaldomp]

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.

[IvailPeixoto]

Osvaldo,

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

[osvaldomp]

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

[IvailPeixoto]

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

Obrigado.

[IvailPeixoto]

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

[Basole]

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]?