Inserimento immagini dinamiche in Excel 2007

Anonimo
2013-05-14T13:43:39+00:00

Ciao, vorrei sapere come fare per inserire un campo immagine il cui contenuto sia variabile al variare del contenuto di una determinata cella dello stesso foglio di lavoro. Ho provato con controllo immagine ActiveX ma non riesco, come posso fare?

Grazie mille

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

Risposta accettata dall'autore della domanda

Anonimo
2013-05-14T14:05:56+00:00

Ciao, vorrei sapere come fare per inserire un campo immagine il cui contenuto sia variabile al variare del contenuto di una determinata cella dello stesso foglio di lavoro. Ho provato con controllo immagine ActiveX ma non riesco, come posso fare?

Grazie mille

Se le immagini non sono molte, puoi partire da qui:

http://www.maurogsc.eu/esempiforum10/cambiaimmagini.zip

Se le immagini sono molte, meglio non tenerle nel foglio. Puoi partire da qui:

http://www.maurogsc.eu/esempiforum13/cambiaimmagini2.zip

La risposta è stata utile?

10+ persone hanno trovato utile questa risposta.
0 commenti Nessun commento

64 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2013-12-23T11:46:45+00:00

    Sto usando questo foglio di excel sia su mac che su windows;funziona molto bene e per questo ringrazio pubblicamente l'autore.Avrei però la necessita di visualizzare le immagini con una certa  dimensione(magari espressa in millimetri)

    questo è il codice attualmente in uso:

    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim picName As String, celImage As String

      picName = vbNullString

      On Error Resume Next

      If Target.Address = "$A$3" Then

        picName = Target.Value

        celImage = "C2"

        ActiveSheet.Shapes("Immagine" & celImage).Delete

      ElseIf Target.Address = "$A$6" Then

        picName = Target.Value

        celImage = "o2"

        ActiveSheet.Shapes("Immagine" & celImage).Delete

      End If

      On Error GoTo 0

      '---------- visualizza immagine

      If Len(picName) Then

        Sheets("pict").Shapes(picName).Copy

        Me.Range(celImage).Select

        Me.Paste

        Selection.ShapeRange(1).Name = "Immagine" & celImage

      End If

      Target.Select

    End Sub

    Grazie molte

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2013-11-14T07:33:30+00:00

    che besugo!!! dimenticaco che ho   excel 2011 mac.

    Per favore, per Office per il Mac, chiedi qui:

    Grazie.

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2013-11-13T23:24:35+00:00

    che besugo!!! dimenticaco che ho   excel 2011 mac.

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2013-11-13T23:15:46+00:00

    stavo cercando la stessa cosa ,ma visto l'elevato numero di immagini preferivo pescarle dal disco.

    Se mi potessi uppare il foglio excel così modificato mi faresti un enorme piacere.

    La risposta è stata utile?

    0 commenti Nessun commento