Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Por IvailPeixoto
#29486
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.
Por babdallas
#29490
Anexe sua planilha e tente colocar uma demonstração do resultado esperado.
Por osvaldomp
#29491
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.
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]
Por IvailPeixoto
#29506
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
Por osvaldomp
#29512
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.
Por osvaldomp
#29530
Abaixo da última postagem do seu tópico clique em + Resposta / Adicionar um anexo / Selecione o arquivo
Editado pela última vez por osvaldomp em 19 Jan 2018 às 17:16, em um total de 1 vez.
Por IvailPeixoto
#29652
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
Avatar do usuário
Por Basole
Posts Avatar
#29654
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]?
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord