Inserire immagini con una formula!!

Ciao ragazzi mi sono appena iscritto!!
ho gia visto che siete molto competenti e quindi con voi sono sicuro di risolvere il mio problema!!

vi spiego!!

a me serve un formula che mi permetta di inserire un immagini in una cella (sono più celle unite) quando in un altra cella compare un dato valore (es se nella cella A1 compare 1 nella cella A2 inserisco la foto1 e se nella cella A1 compare 2 nella cella A2 inserisco la foto2)ovviamente mi serve anche sapere come impostare le dimensioni della foto!!

io sono fermo al foglio excel non ho creato nient'altro!!

mi potete dare una mano?? =)

Ciao Alex.

Ti rimando a questa discussione dove troverai una macro (e la sua spiegazione) che fa quello che chiedi.


http://freeforumzone.leonardo.it/discussione.aspx?idd=10489554

luigibix, 21/01/2013 12:12:

---

Ciao Alex.

Ti rimando a questa discussione dove troverai una macro (e la sua spiegazione) che fa quello che chiedi.


http://freeforumzone.leonardo.it/discussione.aspx?idd=10489554

---

Si ma non mi spiega molto.... Non c'è nessun file anche solo come esempio!! Mi basta anche solo quello!!

Alex.Osnaghi, 21/01/2013 14:15:

---

Si ma non mi spiega molto.... Non c'è nessun file anche solo come esempio!! Mi basta anche solo quello!!

---

Ciao.
Fare un esempio specifico è improbabile, dato che le foto che devi caricare sono in una cartella del tuo computer..

La macro nella discussione che ho indicato fa esattamente quello che chiedi.
Devi copiarla ed incollarla nel foglio VBA (ALT+F11) corrispondente al tuo foglio di lavoro.
Quindi
apri excel
con il foglio1 aperto fai alt+f11
OPPURE
vai sulla linguetta del foglio1, clicchi col dx e selezioni "visualizza codice"
lì si apre un foglio bianco.
incolli la macro.
apporti le modifiche così come indicate nella discussione, in modo da "settare" la macro con le tue esigenze.
Ed direi che dovrebbe andare tutto bene

luigibix, 21/01/2013 17:13:

---

Ciao.
Fare un esempio specifico è improbabile, dato che le foto che devi caricare sono in una cartella del tuo computer..

La macro nella discussione che ho indicato fa esattamente quello che chiedi.
Devi copiarla ed incollarla nel foglio VBA (ALT+F11) corrispondente al tuo foglio di lavoro.
Quindi
apri excel
con il foglio1 aperto fai alt+f11
OPPURE
vai sulla linguetta del foglio1, clicchi col dx e selezioni "visualizza codice"
lì si apre un foglio bianco.
incolli la macro.
apporti le modifiche così come indicate nella discussione, in modo da "settare" la macro con le tue esigenze.
Ed direi che dovrebbe andare tutto bene

---

ok!! ma come faccio a inserire questo codice nella cella??

mi spiego meglio come faccio a fare la seguente operazione a una cella specifica??

il codice non lo devi inserire in una cella, si tratta di macro non di formule.

patel45, 22/01/2013 08:25:

---

il codice non lo devi inserire in una cella, si tratta di macro non di formule.

---

ok, quello lo ho capito!! ma a me quell'operazione deve essere fatta solo in quella cella capito??

Alex.Osnaghi, 22/01/2013 08:48:

---

ok, quello lo ho capito!! ma a me quell'operazione deve essere fatta solo in quella cella capito??

---

qual'è la cella?

luigibix, 22/01/2013 10:28:

---

qual'è la cella?

---

mettiamo che devo prendere il riferimento nella cella A1 e l'immagine va nella cella B1!!

Alex.Osnaghi, 22/01/2013 10:32:

---

mettiamo che devo prendere il riferimento nella cella A1 e l'immagine va nella cella B1!!

---

Ciao Alex.
Prova a fare così.

Dal tuo foglio di lavoro vai su inserisci----> immagine.
Scegli l'immagine che vuoi e piazzala su B1.

Nel riquadro in alto a sx, dove ora dovrebbe esserci scritto "immagine 1" (o altro numero), cancella e scrivi "foto1".
Fai la stessa cosa per la seconda immagine.
inserisci l'altra immagine e piazza anch'essa su b1.
Nel riquadro in alto a sx, dove ora dovrebbe esserci scritto "immagine 1" (o altro numero), cancella e scrivi "foto2".


Ora vai nel corrispondente foglio vba (ALT + F11).

Riporta questa macro:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("foglio1").Pictures("foto1").Visible = False
Sheets("foglio1").Pictures("foto2").Visible = False

If ActiveSheet.Range("a1") = 1 Then
Sheets("foglio1").Pictures("foto1").Visible = True
With Pictures("foto1")
.ShapeRange.LockAspectRatio = msoFalse
.Height = 100
.Width = 100

End With


End If
If ActiveSheet.Range("a1") = 2 Then
Sheets("foglio1").Pictures("foto2").Visible = True

With Pictures("foto2")
.ShapeRange.LockAspectRatio = msoFalse
.Height = 100
.Width = 100

End With

End If
End Sub



Ora,
nell'elenco a discesa che dovresti avere (rispetto al foglio vba aperto) a sinistra in alto, clicca due volte sul "thisworkbook".
Dovrebbe aprirsi un foglio bianco al posto del precedente foglio vba contenente la macro.
In questo foglio bianco incolla questo comando:


Private Sub Workbook_Open()
Sheets("foglio1").Pictures("foto1").Visible = False
Sheets("foglio1").Pictures("foto2").Visible = False

End Sub



E questo è quanto.

Spiegazione:
il comando nel foglio thisworkbook fa in modo che, all'apertura del file, le immagini vengano nascoste.

L'altra macro, invece, dovrebbe fare quello che chiedi.
Se in A1 viene scritto 1, allora appare l'immagine 1.
Se in A1 viene scritto 2, allora appare l'immagine 2.


Fai sapere

Rispolvero questo vecchio forum per chiedervi come potere "sdoppiare" la macro in questione, ovvero:
inserire la stessa immagine nel foglio1 e nel foglio2....

qualcuno sarebbe cosi gentile?

apri una discussione tua con titolo adeguato, questa rischia di non essere letta perché non è possibile inserire immagini con una formula, ma solo con macro