Condividi:        

excel macro caricare immagine in un foglio

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

excel macro caricare immagine in un foglio

Postdi accio1965 » 27/10/13 22:27

salve
in base al valore di una cella R1 vorrei caricare il file 1.jpg, 2.jpg ecc in base al contenuto (la cella R1 è il collegamento ad un casella combinata)
ho inserito sul foglio un controllo activeX immagine ma non riesco a riempirlo con il mio file jpg
non so se la scelta del controllo activeX è corretta
grazie
AMD Athlon 64x2 dual core P 4600+ 2,40 GHz
windows vista hd sp2
office 2007
accio1965
Utente Junior
 
Post: 52
Iscritto il: 21/08/07 08:39

Sponsor
 

Re: excel macro caricare immagine in un foglio

Postdi Anthony47 » 27/10/13 23:00

Userai l' evento Change del combobox per innescare il caricamento dell' immagine; tipo
Codice: Seleziona tutto
Private Sub ComboBox1_Change()
Sheets("Foglio3").Image1.Picture = LoadPicture("C:\Users\Anthony\Pictures\LifeFrame\" & Range("R1").Value & ".jpg")
End Sub


Ma se R1 e' la cella linkata al combobox tanto vale usare direttamente
Codice: Seleziona tutto
= LoadPicture("C:\Users\Anthony\Pictures\LifeFrame\" & ComboBox1.Text & ".jpg")

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: excel macro caricare immagine in un foglio

Postdi accio1965 » 05/11/13 09:37

ciao Anthoy47, la tua macro non riesco ad utilizzarla
ho rispolverato questa vecchia che associo al controllo activex immagine ma non l'immagine si aggiorna solo dopo che vado a klikkare dentro una cella altrimenti al solo cambio dell'elenco non viene caricata la nuova jpg
la tua macro invece mi sembrava molto piu semplice ma non riesco a farla funzionare

Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)

Dim sPath As String
Dim sExt As String
Dim sTotal As String
Dim rng As String

On Error GoTo ERR

sPath = "C:\Users\Accio\Documents\GIUL\basket\pic\"
rng = Range("Q1").Value
GoTo XIT

ERR:
rng = "Error"

XIT:
sExt = ".jpg"
sTotal = sPath & rng & sExt
If rng = "" Then rng = "Error"

Image1.Picture = LoadPicture(sTotal)


End Sub
AMD Athlon 64x2 dual core P 4600+ 2,40 GHz
windows vista hd sp2
office 2007
accio1965
Utente Junior
 
Post: 52
Iscritto il: 21/08/07 08:39

Re: excel macro caricare immagine in un foglio

Postdi Anthony47 » 06/11/13 01:10

Una modifica tramite linked cell non costituisce evento Change, ergo la macro di Worksheet_Change non scatta.
Se alleghi un file esemplificativo della tua situazione, compreso l' uso del codice suggerito, possiamo vedere dove e' l' inghippo. Per la procedura guarda qui: viewtopic.php?f=26&t=80395

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: excel macro caricare immagine in un foglio

Postdi accio1965 » 09/11/13 16:50

visto la vostra disponibilità allego il file con un ulteriore modifica
le celle (con i nomi delle giocatrici) non fanno piu riferimento ad un elenco ma ad un altra cella di un altro foglio
vorrei caricare le immagini in automatico nel punto indicato del foglio SCOUT
le immagini si chiamano come il numero di maglia quindi 4.jpg 5.jpg ecc ecc
poi potrei riciclare la macro anche negli latri fogli per mettere la foto anche nelle statistiche individuali
eccovi il link
http://accio.altervista.org/docs/stagione2014.zip
AMD Athlon 64x2 dual core P 4600+ 2,40 GHz
windows vista hd sp2
office 2007
accio1965
Utente Junior
 
Post: 52
Iscritto il: 21/08/07 08:39

Re: excel macro caricare immagine in un foglio

Postdi Anthony47 » 10/11/13 00:59

Perdona, ma personalmente non mi sono fatta un' idea di che cosa fa il file allegato e quindi di quale sia la domanda.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: excel macro caricare immagine in un foglio

Postdi accio1965 » 10/11/13 21:19

nel foglio scout vorrei carica le miniature delle foto delle giocatrici (che sono in una cartella e non nel file) in maniera automatica senza tutte le volte fare 12 inserimenti manuali, ossia collegare in base al valore del numero o del nome la relativa foto
AMD Athlon 64x2 dual core P 4600+ 2,40 GHz
windows vista hd sp2
office 2007
accio1965
Utente Junior
 
Post: 52
Iscritto il: 21/08/07 08:39

Re: excel macro caricare immagine in un foglio

Postdi Anthony47 » 11/11/13 03:42

Nell' ipotesi che il nome dell' immagine da inserire corrisponda a quanto scritto in G6, S6, G16, etc etc, scartando il numero iniziale:
-Inserisci nel tuo foglio 12 controlli Immagine; man mano che li inserisci rinominali come "Imm_G6", "Imm_S6", etc
-tasto dx sul tab col nome foglio Scout, scegli Visualizza codice
-copia questo codice nel frame di dx:
Codice: Seleziona tutto
Private Sub Worksheet_Activate()
myDir = "C:\Users\Utente\Documents\FotoPippo\"    '<<< Con "\" finale
Imm_G6.PictureSizeMode = fmPictureSizeModeZoom
Imm_G6.Picture = LoadPicture(myDir & Trim(Mid(Range("G6").Value, 3, 999)) & ".jpg")
Imm_G6.Width = 100
Imm_G6.Height = 60

Imm_S6.PictureSizeMode = fmPictureSizeModeZoom
Imm_S6.Picture = LoadPicture(myDir & Trim(Mid(Range("S6").Value, 3, 999)) & ".jpg")
Imm_S6.Width = 100
Imm_S6.Height = 60
'...RIPETI PER LE ALTRE IMMAGINI
End Sub
Personalizza l' istruzione marcata <<<
Le istruzioni .Width e . Height sono opzionali, ma potrebero servire se le immagini di partenza fossero non "miniature".
Tutte le volte che entri nel foglio Scout le immagini saranno aggiornate secondo il contenuto delle celle indicate.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: excel macro caricare immagine in un foglio

Postdi accio1965 » 25/11/13 00:30

Anthony
non riesco a caricarla
forse non ho capito se devo cambiare il contenuto della cella G6 ecc oppure non ho capito come devo rinominare il file di immagine
grazie
AMD Athlon 64x2 dual core P 4600+ 2,40 GHz
windows vista hd sp2
office 2007
accio1965
Utente Junior
 
Post: 52
Iscritto il: 21/08/07 08:39

Re: excel macro caricare immagine in un foglio

Postdi Anthony47 » 25/11/13 00:54

Io una idea di quale fosse la tua richiesta non me l' ero fatta, e quando te lo dissi non e' che tu ti sia prodigato a descrivere granche'. Cosi' avevo fatto una ipotesi:
Anthony ha scritto:Nell' ipotesi che il nome dell' immagine da inserire corrisponda a quanto scritto in G6, S6, G16, etc etc, scartando il numero iniziale, etc etc
Almeno questa ipotesi e giusta o sbagliata?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: excel macro caricare immagine in un foglio

Postdi accio1965 » 25/11/13 12:54

Ho provato a rinominare un immagine esattamente come quanto scritto nella cella G6 sia senza e con il numero ma non mi va. Quale è il modo migliore di nominare l l'immagine x il nostro scopo?
AMD Athlon 64x2 dual core P 4600+ 2,40 GHz
windows vista hd sp2
office 2007
accio1965
Utente Junior
 
Post: 52
Iscritto il: 21/08/07 08:39

Re: excel macro caricare immagine in un foglio

Postdi Anthony47 » 25/11/13 23:45

Ma se non dici se la mia ipotesi e' giusta o sbagliata, cioe' se la tua domanda l' ho capita o non l' ho capita, che risposte vuoi che ti dia?
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: excel macro caricare immagine in un foglio

Postdi accio1965 » 26/11/13 00:02

le immagini non hanno il nome del contenuto delle celle G6 S6 ecc ecc
AMD Athlon 64x2 dual core P 4600+ 2,40 GHz
windows vista hd sp2
office 2007
accio1965
Utente Junior
 
Post: 52
Iscritto il: 21/08/07 08:39

Re: excel macro caricare immagine in un foglio

Postdi Anthony47 » 26/11/13 00:08

Allora la mia ipotesi era errata, cioe' non ho capito la tua richiesta...
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "excel macro caricare immagine in un foglio":


Chi c’è in linea

Visitano il forum: Nessuno e 39 ospiti