Carica Immagine

Ciao,

Volevo caricare un immagine prelevandola da una cartella con una variabile ma non riesco.
Questa è la Macro.

Public Sub Carica()

Dim sh1 As Worksheet
Dim sh5 As Worksheet
Dim lRiga As Long
Dim lng As Long
Dim val As String

val = UCase(Application.InputBox("Inserire Codice"))
If val = "" Then Exit Sub

Set sh1 = Worksheets("Foglio1")
Set sh5 = Worksheets("Foglio5")

With sh5
lRiga = .Range("A" & .Rows.Count).End(xlUp).Row
For lng = 1 To lRiga
On Error Resume Next
If .Cells(lng, 1).Value = val Then
sh1.Cells(11, 7).Value = .Cells(lng, 3).Value
sh1.Cells(14, 7).Value = .Cells(lng, 7).Value
ActiveSheet.Pictures.Insert("C:\Foto\val.PNG").Select
End If
Next
End With

Set sh1 = Nothing
Set sh5 = Nothing

End Sub

Ciao
Roccia

Se ti può consolare ho provato la tua macro e fatto il suo dovere senza intoppi.
La macro l'ho messa in un modulo, uso Excel 2010 64bit.

Ciao rollis13,

Grazie per la risposta,
Io ho excel 2003
a me la macro funziona ma non mi carica l'immagine
vorra dire che cerchero un altra strada per raggiungere il mio obbiettivo, pensavo che la riga evidenziata fosse sbagliata.

Grazie
Roccia53

Non hai specificato il risultato che volevi ottenere ma così com'è mette l'immagine nel foglio che è attivo (che ha il focus) ma mette i dati sempre nel Foglio1 prelevandoli dal Foglio5.

Ciao rollis13,

Si i dati me li carica perfettamente e solo l'immagine che non carica,
dovrebbe prelevarla in C:\Foto

Ciao

Ciao

funziona anche a me per il caricamento della foto.
Una domanda stupida
non è che la tua foto o icona non sia PNG ?

scusa ma la foto che nome ha ?
mi è venuto un dubbio

Ciao,

no è un'immagine,

ho provato a importarla con il registratore di macro e la importa correttamente

ciao

immagine si ma che estensione ha
e come si chiama?

è jpg ico png ?

Roccia53, 20/02/2016 20:00:

---

Ciao,
ho provato a importarla con il registratore di macro e la importa correttamente
ciao

---

allora qual'è il problema ? utilizza la macro registrata modificandola per ciò che ti serve

Ciao,

allora qual'è il problema ? utilizza la macro registrata modificandola per ciò che ti serve

Il problema è che val non è il nome del file che devo importare ma è una variabile e non me la prende come variabile.

il mio problema è la riga evidenziata del codice.

ciao
Roccia

Ciao a tutti e scusate l'intromissione

Non so se questa mia risposta è pertinente con il quesito ma il problema non si potrebbe risolvere con una macro di questo tipo dove il codice richiede all'utente di inserire il nome dell'immagine da caricare che viene memorizzata nella variabile val e poi l'immagine viene inserita nel foglio attivo?

Ciao alfrimpa,

Perfetto Va Benissimo
ho solo aggiunto " & val & " al mio codice

Ti ringrazio
Ciao Roccia53