Hur infogar jag bilden i textrutan?
Som standard kan vi infoga en bild eller bild i ett kalkylblad så snabbt genom att använda funktionen Infoga, men den här funktionen används inte för att infoga en bild i en textruta. Med den här artikeln kan jag hjälpa dig att infoga en bild i en textruta efter behov.
Infoga en bild eller bild i en textruta med VBA-kod
Infoga en bild eller bild i en textruta med VBA-kod
För att infoga en bild i en textruta kan följande VBA-kod hjälpa dig, gör så här:
1. Infoga en textruta genom att klicka Insert > text~~POS=TRUNCoch rita sedan en textruta, se skärmdump:
2. Håll sedan ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
3. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Infoga en bild i textrutan:
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
Anmärkningar: I ovanstående kod, Sheet4 är arknamnet som innehåller textrutan du vill infoga bilden och C: \ Användare \ DT168 \ Skrivbord \ bilder \ Apple.JPG är bildvägen för bilden du vill infoga, bör du ändra dem efter dina behov.
4. Och tryck sedan på F5 för att köra den här koden, kommer den specifika bilden att infogas i textrutan på en gång, och du kan redigera textrutan efter behov, se skärmdump:
Relaterade artiklar:
Hur ställer jag in ett standardvärde i en textruta?
Hur tillåter jag att endast siffror matas in i textrutan?
Hur använder jag stavningskontroll i textrutan?
Hur ändrar jag textrutans färg baserat på värde i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!