Notifications
Clear all

LoadPicture não está funcionando propriamente

3 Posts
2 Usuários
0 Reactions
794 Visualizações
(@joaotp)
Posts: 2
New Member
Topic starter
 

Olá à todos!

Estou com um problema, que está me atormentando.

Precisa mudar múltiplas Images (Image1, Image2,...,Image10) em múltiplas abas (Proposta1, Proposta2,...,Proposta10). Havia conseguido, porém não sei o porque não está funcionando devidamente.
Abaixo o código que estou usando:

For Each ws In Worksheets
    If Left(Trim(ws.Name), 8) = "Proposta" Then
        If Target.Row = 5 And Target.Column = 4 Then
            ws.Image1.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH5").Value)
        End If
        If Target.Row = 5 And Target.Column = 7 Then
            ws.Image2.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH7").Value)
        End If
        If Target.Row = 5 And Target.Column = 10 Then
            ws.Image3.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH9").Value)
        End If
        If Target.Row = 5 And Target.Column = 13 Then
            ws.Image4.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH11").Value)
        End If
        If Target.Row = 5 And Target.Column = 16 Then
            ws.Image5.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH13").Value)
        End If
        If Target.Row = 5 And Target.Column = 19 Then
            ws.Image6.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH17").Value)
        End If
        If Target.Row = 5 And Target.Column = 22 Then
            ws.Image7.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH19").Value)
        End If
        If Target.Row = 5 And Target.Column = 25 Then
            ws.Image8.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH21").Value)
        End If
        If Target.Row = 5 And Target.Column = 28 Then
            ws.Image9.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH23").Value)
        End If
        If Target.Row = 5 And Target.Column = 31 Then
            ws.Image10.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH25").Value)
        End If
    End If
Next

Detalhe: A primeira imagem (Image1) é alterada em todas as abas, porém as demais não.
Obs.: cada aba Proposta possui um número de imagens relacionado ao número da mesma (Proposta10 possui 10 imagems)

Poderiam me ajudar, por favor?

 
Postado : 25/10/2017 10:01 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Joaotp,

Boa tarde!

Anexe aqui no fórum seu arquivo compactado com .ZIP. Isso facilitará a rápida ajuda por parte de todos.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 25/10/2017 11:47 am
(@joaotp)
Posts: 2
New Member
Topic starter
 

Joaotp,

Boa tarde!

Anexe aqui no fórum seu arquivo compactado com .ZIP. Isso facilitará a rápida ajuda por parte de todos.

Feito.

 
Postado : 25/10/2017 12:00 pm