Hvordan indsættes billede i tekstfeltet?
Som standard kan vi indsætte et billede eller et billede i et regneark så hurtigt ved hjælp af funktionen Indsæt, men denne funktion anvendes ikke til at indsætte et billede i en tekstboks. Med denne artikel kan jeg hjælpe dig med at indsætte et billede i en tekstboks, som du har brug for.
Indsæt et billede eller et billede i en tekstboks med VBA-kode
Indsæt et billede eller et billede i en tekstboks med VBA-kode
For at indsætte et billede i en tekstboks kan følgende VBA-kode hjælpe dig, gør venligst som denne:
1. Indsæt en tekstboks ved at klikke på indsatte > tekst Box, og tegn derefter en tekstboks, se skærmbillede:
2. Hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Indsæt et billede i tekstfeltet:
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
Bemærk: I ovenstående kode, Sheet4 er arknavnet, der indeholder det tekstfelt, du vil indsætte billede, og C: \ Brugere \ DT168 \ Desktop \ billeder \ Apple.JPG er billedstien til det billede, du vil indsætte, skal du ændre dem til dit behov.
4. Og tryk derefter på F5 nøgle til at køre denne kode, det specifikke billede indsættes i tekstboksen på én gang, og du kan redigere tekstboksen, som du har brug for, se skærmbillede:
Relaterede artikler:
Hvordan indstilles en standardværdi i en tekstboks?
Hvordan tillader man kun at indtaste tal i tekstfeltet?
Hvordan anvender stavekontrol i tekstfelt?
Hvordan ændres tekstboksfarve baseret på værdi i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!