Olá! Bom dia, sou novo aqui!
Estou com um problema na seguinte função:
tenho umas 400 molduras que coloquei na planilha, preciso que quando selecionar um nome na plan2.imagem ela busque no nome e endereço da imagem e coloque na plan.palnilhafinal "que tem as molduras coluna c tem 33 linhas e pode ter imagem ou não, dependendo do que foi estabelecido na plan2.imagem
a variavel é:
parei em Plan2.Image1.Picture = LoadPicture(locaLimg)
PRECISO QUE MUDE PARA image2, image3,image4, etc... mas quando concateno, com variavel é numimg, que define dentro do while numimg=numimg+1
entao: trocaimg = "Plan2.Image" & numimg & ".Picture" ou "Plan2.Image" & numimg & ".Picture" os dois me retornam "Plan2.Image2.Picture" como texto
e não sei mais o que fazer para deixar comando Plan2.Image2.Picture sem aspas. AGRADEÇO MUITO SE PUDER ME AJUDAR...
'Trocar image1 por image2 e etc...
trocaimg = "Plan2.Image" & numimg & ".Picture"
trocaimgsize = "Plan2.Image" & numimg & ".PictureSizeMode"
Plan1.Activate
Plan1.Range("c29").Select
While ActiveCell <> "1" 'enquanto nao achar coluna c em brnaco
Plan5.Activate
Plan5.Range("B1").Select ' nome 1 regitro coluna 2
While ActiveCell <> "" 'enquanto nome <> "1"
If ActiveCell = Plan1.Range(celcproc & numc) Then
celproc = "Image" & numimg
locaLimg = ActiveCell.Offset(0, 1).Value 'LOCALIZA ATE A ULTIMA LINHA
Plan2.Image1.Picture = LoadPicture(locaLimg) 'nessa linha deve ser colocada a variável JA TENTEI A VARIAVEL ACIMA QUE CONTA +1
Plan2.Image1.PictureSizeMode = fmPictureSizeModeStretch 'nessa linha deve ser colocada a varial JA TENTEI A VARIAVEL ACIMA QUE CONTA +1
End If
ActiveCell.Offset(1, 0).Activate
Wend
numimg = numimg + 1
trocaimg = "Plan2.Image" & numimg & ".Picture"
trocaimgsize = "Plan2.Image" & numimg & ".PictureSizeMode"
numc = numc + 1 'numero para celula eassim por diante
numc = numc
Plan1.Activate
ActiveCell.Offset(1, 0).Activate
Wend
End Sub
Postado : 30/06/2014 10:39 am