Come copiare un'immagine da un foglio di lavoro a un UserForm in Excel?

Questo articolo ti mostrerà i metodi per copiare un'immagine dal foglio di lavoro attivo a un UserForm in Excel.

Copia immagine da foglio di lavoro a UserForm con copia e incolla
Copia immagine da foglio di lavoro a UserForm con codice VBA

Copia immagine da foglio di lavoro a UserForm con copia e incolla

Per favore, segui le istruzioni seguenti per copiare un'immagine da un foglio di lavoro a un UserForm.

1. Passa al foglio di lavoro che contiene l'immagine che devi copiare nel UserForm, quindi premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > UserForm. Vedi screenshot:

3. Ora inserisci un controllo Immagine nel UserForm. Clicca sul pulsante Immagine nella finestra di dialogo Toolbox, quindi disegna manualmente un controllo Immagine nel UserForm. Vedi screenshot:

4. Fai clic con il tasto destro sul controllo Immagine inserito e seleziona Proprietà dal menu contestuale come mostrato nello screenshot seguente:

5. A questo punto vedrai un pannello Proprietà visualizzato sul lato sinistro della finestra Microsoft Visual Basic for Applications.

6. Torna al foglio di lavoro, seleziona l'immagine che desideri visualizzare nel UserForm e copiala premendo i tasti Ctrl + C.

7. Ritorna alla finestra Microsoft Visual Basic for Applications, scorri verso il basso fino al campo Immagine e incolla il nome dell'immagine copiata sotto la scheda Alfabetico.

Ora l'immagine del foglio di lavoro è stata copiata nel UserForm.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Copia immagine da foglio di lavoro a UserForm con codice VBA

Questa sezione ti mostrerà una soluzione alternativa per copiare più immagini da un foglio di lavoro a un UserForm e poi visualizzare l'immagine corrispondente nel UserForm selezionando il nome dell'immagine da una casella combinata. Segui le istruzioni seguenti.

1. Per favore, segui i passaggi 1 e 2 sopra per inserire un UserForm nel tuo foglio di lavoro.

2. Quindi inserisci un controllo Frame nel UserForm come mostrato nello screenshot seguente:

3. Fai clic con il tasto destro sul Frame inserito e seleziona Proprietà dal menu contestuale. Nel riquadro Proprietà a sinistra, seleziona No dal campo Visibile. Vedi screenshot:

4. Inserisci più controlli Immagine nel Frame come mostrato nello screenshot seguente.

5. Torna al foglio di lavoro, seleziona l'immagine che vuoi visualizzare nel UserForm e premi i tasti Ctrl + C per copiarla.

6. Entra nuovamente nella finestra Microsoft Visual Basic for Applications, fai clic con il tasto destro sul primo controllo Immagine e seleziona Proprietà dal menu contestuale. Vedi screenshot mostrato.

7. Nel riquadro Proprietà, clicca sul campo Immagine, quindi premi i tasti Ctrl + V per incollare l'immagine copiata nel passaggio 5, quindi seleziona 1 – fmPictureSizeModeStrtch dall'elenco a discesa PictureSizeMode come mostrato nello screenshot seguente.

8. Ripeti i passaggi 5-7 per incollare altre immagini dal foglio di lavoro nei controlli Immagine rimanenti nel UserForm. Il risultato sarà visualizzato come mostrato nello screenshot seguente.

9. Sposta il controllo Frame nell'angolo del UserForm, quindi inserisci un nuovo controllo Immagine e un controllo Casella Combinata nel UserForm. Vedi screenshot:

10. Fai clic con il tasto destro sul UserForm, quindi clicca su Visualizza Codice. Copia e incolla il seguente codice VBA per sostituire quello originale nella finestra del Codice.

Codice VBA1: Copia immagine da foglio di lavoro a UserForm

Private Sub ComboBox1_Change()
    UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
    Dim xImg As Control
    On Error Resume Next
    For Each xImg In UserForm1.Controls
        If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
            UserForm1.ComboBox1.AddItem xImg.Name
        End If
    Next
End Sub

Nota: Nel codice, UserForm1 è il nome del UserForm inserito, Image4 è il nome del controllo Immagine in cui verranno visualizzate le immagini. E Immagine rappresenta tutti i controlli Immagine che contengono le immagini copiate dal foglio di lavoro. ComboBox1 è il nome della casella combinata che hai inserito nel UserForm. Cambiali con i tuoi nomi.

11. Chiudi la finestra Microsoft Visual Basic for Applications.

12. Inserisci un pulsante di comando nel foglio di lavoro facendo clic su Sviluppatore > Inserisci > Pulsante di Comando (Controllo ActiveX).

13. Fai clic con il tasto destro sul pulsante di comando e seleziona Visualizza Codice dal menu contestuale. Quindi copia e incolla il seguente codice VBA nella finestra del Codice. Infine, chiudi la finestra.

Codice VBA2: Copia immagine da foglio di lavoro a UserForm

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. Clicca su Sviluppatore > Modalità Progettazione per disattivare la Modalità Progettazione.

Da ora in poi, quando si fa clic sul pulsante di comando, apparirà il UserForm. Puoi visualizzare l'immagine selezionando il nome dell'immagine dalla casella combinata. Vedi screenshot:

Selezionando nomi diversi dalla casella combinata verranno visualizzate immagini diverse nel UserForm.

Articoli correlati:

• Come centrare un'immagine in una cella di Excel?
• Come verificare se una cella contiene un'immagine in Excel?
• Come inserire dinamicamente un'immagine o una foto in una cella basandosi sul valore della cella in Excel?
• Come ingrandire un'immagine quando si fa clic su di essa in Excel?