aggiornare spazio immagine

[marco_budinPartecipante marco_budin Karma: 2 pts]

Buongiorno,

ho creato 3 spazi "immagini (controllo activix)". Dove all'interno ci sono 3 codici:

Private Sub Image1_Click()
Dim strIMG As String
Dim NomeFile1 As String

NomeFile1 = Sheets("Scheda").Range("n11")
strIMG = ThisWorkbook.Path & "\File\" & NomeFile1
Me.Image1.Picture = LoadPicture(strIMG)
Application.ScreenUpdating = False

End Sub

Private Sub Image2_Click()
Dim strIMG As String
Dim NomeFile1 As String

NomeFile1 = Sheets("Scheda").Range("n15")
strIMG = ThisWorkbook.Path & "\File\" & NomeFile1
Me.Image2.Picture = LoadPicture(strIMG)
End Sub

Private Sub Image3_Click()
Dim strIMG As String
Dim NomeFile1 As String

NomeFile1 = Sheets("Scheda").Range("n19")
strIMG = ThisWorkbook.Path & "\File\" & NomeFile1
Me.Image3.Picture = LoadPicture(strIMG)
End Sub

Il problema che non si aggiorna in automatico. Al cambiare della cella "d7" dovrebbe aggiornarsi l'immagine contenuta nello spazio "immagine (controllo activex)". Se clicco sullo spazio "immagine (controllo activex)" allora si aggiorna.

Esempio se scrivo nello spazio d7: A-56320-15, appaiono i dati e dovrebbe automaticamente apparire l'immagine. se lo cancello... dovrebbe sparire l'immagine di prima e aggiornarsi quella nuova.

ho provato a creare una macro "call Image1_Click" ma non funziona.

Il codice non è salvato in un modulo, ma nel foglio (si è creato così).

spero che qualcuno possa darmi una mano, ho allegato il file in zip, con le immagini in cartella.

saluti e a presto

Marco

Allegati:

You must be logged in to view attached files.

[alfrimpaPartecipante alfrimpa Karma: 33 pts]

La lettura di questo link ti sarà sicuramente utile

http://mikevba.altervista.org/macro/mikevba102.php

[marco_budinPartecipante marco_budin Karma: 2 pts]

Grazie mille Alfrimpa!

ti ringrazio per il tuo prezioso aiuto. ci tengo a pubblicare la soluzione che sono riuscito a trovare e funziona 🙂 :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strIMG1 As String
Dim strIMG2 As String
Dim strIMG3 As String
Dim NomeFile1 As String
Dim NomeFile2 As String
Dim NomeFile3 As String

NomeFile1 = Sheets("Scheda").Range("b12")
strIMG1 = ThisWorkbook.Path & "\File\" & NomeFile1
Worksheets("Scheda").Image1.Picture = LoadPicture(strIMG1)

NomeFile2 = Sheets("Scheda").Range("b16")
strIMG2 = ThisWorkbook.Path & "\File\" & NomeFile2
Worksheets("Scheda").Image2.Picture = LoadPicture(strIMG2)
Application.ScreenUpdating = False

NomeFile3 = Sheets("Scheda").Range("b20")
strIMG3 = ThisWorkbook.Path & "\File\" & NomeFile3
Worksheets("Scheda").Image3.Picture = LoadPicture(strIMG3)

Application.ScreenUpdating = True

End Sub

 

saluti e a alla prossima!

marco

[alfrimpaPartecipante alfrimpa Karma: 33 pts]

Complimenti 

[Autore]

Articoli