Note: The other languages of the website are Google-translated. Back to English
Login  \/ 
x
or
x
Registrati  \/ 
x

or

Come inserire un'immagine nella casella di testo?

Per impostazione predefinita, possiamo inserire un'immagine o un'immagine in un foglio di lavoro più rapidamente utilizzando la funzione Inserisci, ma questa funzione non viene applicata all'inserimento di un'immagine in una casella di testo. Con questo articolo, posso aiutarti a inserire un'immagine in una casella di testo di cui hai bisogno.

Inserisci un'immagine o un'immagine in una casella di testo con codice VBA


freccia blu freccia destra Inserisci un'immagine o un'immagine in una casella di testo con codice VBA

Per inserire un'immagine in una casella di testo, il seguente codice VBA può aiutarti, per favore fai come segue:

1. Inserisci una casella di testo facendo clic inserire > Casella di testo, quindi disegna una casella di testo, vedi screenshot:

doc inserisci immagine nella casella di testo 1

2. Quindi tieni premuto il pulsante ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

3. Clic inserire > Moduloe incolla il codice seguente nel file Modulo Finestra.

Codice VBA: inserisci un'immagine nella casella di testo:

Sub ShapePicture()
    Dim xSh As Shape
    Dim xPic As IPictureDisp
    Dim xFileName As String
    xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
    Set xPic = LoadPicture(xFileName)
    Set xSh = Sheets("Sheet4").Shapes(1)
    xSh.Height = xPic.Height / xPic.Width * xSh.Width
    Set xPic = LoadPicture("")
    Set xPic = Nothing
    xSh.Fill.UserPicture xFileName
End Sub

Osservazioni:: Nel codice sopra, Sheet4 è il nome del foglio che contiene la casella di testo in cui si desidera inserire l'immagine e C: \ Users \ DT168 \ Desktop \ pictures \ Apple.JPG è il percorso dell'immagine dell'immagine che vuoi inserire, dovresti cambiarli secondo le tue necessità.

4. E poi premere F5 chiave per eseguire questo codice, l'immagine specifica verrà inserita nella casella di testo in una volta e puoi modificare la casella di testo in base alle tue esigenze, vedi screenshot:

doc inserisci immagine nella casella di testo 2


Articoli correlati:

Come impostare un valore predefinito in una casella di testo?

Come consentire solo l'inserimento di numeri nella casella di testo?

Come applicare il controllo ortografico nella casella di testo?

Come cambiare il colore della casella di testo in base al valore in Excel?


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Harvey Hecker · 1 years ago
    Yes, I changed both. I did not get any errors when I ran the macro using the F5 key.

    I tried to place the macro in different folders of the workbook, worksheet, module,class module but the results were the same: no picture in the text box.


    Thanks for writing back. The last name is Hecker, BTW....typo
  • To post as a guest, your comment is unpublished.
    harvey heckef · 1 years ago
    Tried this macro on Excel 365. It did not work. Did not receive error message. Macro ran to completion. Picture is not shown in textbox.
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello,harvey,
      Do you change the sheet name and picture path to your own in the code? Please chek it, thank you!

      Note: In the above code, Sheet4 is the sheet name which contains the text box you want to insert picture, and C:\Users\DT168\Desktop\pictures\Apple.JPG is the picture path of the picture you want to insert, you should change them to your need.