Hogyan lehet képet beilleszteni a szövegmezőbe?

Alapértelmezés szerint képet vagy képet a Beszúrás funkció segítségével a lehető leggyorsabban beilleszthetünk egy munkalapba, de ezt a funkciót nem alkalmazzuk egy kép szövegmezőbe történő beszúrására. Ezzel a cikkel segíthetek abban, hogy szükség szerint képet illesszen be egy szövegmezőbe.

Helyezzen be egy képet vagy képet egy VBA kóddal ellátott szövegmezőbe

Helyezzen be egy képet vagy képet egy VBA kóddal ellátott szövegmezőbe

Kép beszúrásához a szövegmezőbe a következő VBA-kód segíthet, kérjük, tegye a következőket:

1. Helyezzen be egy szövegdobozt a kattintással betétlap > szöveg doboz, majd rajzoljon egy szövegdobozt, lásd a képernyőképet:

2. Ezután tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Kép beszúrása a szövegmezőbe:

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

Megjegyzések: A fenti kódban Sheet4 a lap neve, amely tartalmazza a képet beilleszteni kívánt szövegdobozt, és C: \ Users \ DT168 \ Desktop \ pictures \ Apple.JPG a beilleszteni kívánt kép elérési útja, akkor változtassa meg az igényeinek megfelelően.

4. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, az adott kép egyszerre kerül be a szövegmezőbe, és szükség szerint szerkesztheti a szövegdobozt, lásd a képernyőképet:

Kapcsolódó cikkek:

Hogyan állítsunk be alapértelmezett értéket a szövegmezőben?

Hogyan lehet csak számokat bevinni a szövegmezőbe?

Hogyan kell alkalmazni a helyesírás-ellenőrzést a szövegmezőben?

Hogyan lehet megváltoztatni a szövegdoboz színét az Excel értéke alapján?