Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Excel képek: Több kép vagy kép beszúrása, módosítása, törlése az Excel programban

Ebben az oktatóanyagban arról fogunk beszélni, hogyan lehet több képet beilleszteni a cellákba és átméretezni őket a cellaméretnek megfelelően, hogyan lehet képet beilleszteni a megjegyzésbe, a fejlécbe vagy a láblécbe, hogyan lehet képeket beszúrni az URL-ekből és így tovább. Azt is elmagyarázza, hogyan menthet, átnevezhet és törölhet több képet, amire szüksége van az Excel programban.

Tartalomjegyzék:

1. Helyezzen képeket vagy képeket a munkalapba a számítógépről, az internetről vagy a OneDrive-ból

2. Zárja be a képeket vagy képeket az Excel cellába

3. Helyezzen be több képet vagy képet az Excelbe

4. Helyezzen több képet vagy a nevüknek megfelelő képet a cellákba

5. Helyezzen be vagy jelenítsen meg képeket vagy képeket URL-ekből

6. Helyezzen be vagy jelenítsen meg képeket vagy képeket fájlútvonalakról

7. Helyezzen képet vagy képet egy megjegyzésbe

8. Helyezzen képet vagy képet a fejlécbe vagy a láblécbe

9. Helyezzen ugyanazt a képet vagy képet több munkalapba

10. Helyezzen képet vagy képet a cellatartalom mögé

11. Helyezzen be egy cellatartományt kép vagy kép formátumban az Excel programba

12. Helyezzen be képet vagy képet a cellaérték alapján dinamikusan

13. Exportálja vagy mentse az összes képet vagy képet egy Excel fájlból

14. Nevezze át a mappában lévő képneveket az Excel cellalistája alapján

15. Kattintson rá a kép nagyítására vagy kicsinyítésére

16. A munkalap görgetésekor mindig lebegjen egy kép

17. Töröljön képeket vagy képeket az aktív lapról / cellatartományról


Helyezzen képeket vagy képeket a munkalapba a számítógépről, az internetről vagy a OneDrive-ból

Az összes Excel verzió támogatja a képek vagy képek számítógépről történő beillesztését, de ha be akarja illeszteni a képeket a webről vagy a OneDrive-ból, akkor rendelkeznie kell az Excel 2013 és újabb verzióival.

Helyezzen be képeket vagy képeket a számítógépről

A legtöbbünk számára könnyen beilleszthető a számítógépen tárolt képek a munkalapba. Kérjük, tegye a következőket:

1. A munkalapon kattintson arra a helyre, ahová képeket szeretne beszúrni.

2. Ezután kattints a gombra betétlap > képek > Ez az eszköz, lásd a képernyőképet:

3. A kiugrott Kép beszúrása ablakban nyissa meg a képeket tartalmazó mappát, majd tartsa lenyomva Ctrl gombot a beilleszteni kívánt képek kiválasztásához, lásd a képernyőképet:

4. Ezután kattints a gombra betétlap gombra, a kiválasztott képeket beillesztette a lapba. Mostantól beállíthatja vagy átméretezheti a képeket a szükséges cellákra, lásd a képernyőképet:


Helyezzen be képeket vagy képeket az internetről vagy a OneDrive-ról

Ha rendelkezik Excel 2013 vagy újabb verzióval, beillesztheti a képeket az internetről vagy a One Drive-ról, kérjük, tegye a következőket:

1. A munkalapon kattintson arra a helyre, ahová képeket szeretne beszúrni.

2. Ezután kattints a gombra betétlap > képek > Online Képek, lásd a képernyőképet:

3. A következő ablak jelenik meg. Ban,-ben Online Képek részben írja be a keresett szöveget a szövegmezőbe, majd nyomja meg az gombot belép kulcs. Az összes megfelelő képet egyszerre keresi, lásd a képernyőképet:

4. Ezután válassza ki a kívánt képeket, majd kattintson a gombra betétlap gomb. A képek behelyezése után méretezze át, vagy állítsa be a képeket a kívánt helyzetbe.

Tipp:

1. Bizonyos képek kereséséhez szűrheti a megtalált képeket méret, típus, elrendezés vagy szín szerint szükség szerint.

2. A képek Bing-keresésből történő beszúrása mellett a OneDrive-on tárolt képeket is beillesztheti. Az alábbi ablakban kattintson a gombra OneDrive az ablak bal alsó részén, majd válassza ki a beilleszteni kívánt képeket.


Képek vagy képek zárolása az Excel cellába

Normális esetben, miután a képeket cellákba illesztette, amikor átméretezi, szűri vagy elrejti a képet tartalmazó cellákat, a kép nem kerül átméretezésre vagy szűrésre a cellával együtt, ahogy az alábbiakban bemutatjuk.

Ebben az esetben zárja be a képet a cellába, hogy átméretezhető, szűrhető vagy elrejthető legyen a cellával, kérjük, tegye a következőket:

1. Kattintson egy kép kiválasztásához, majd nyomja meg a gombot Ctrl + A hogy kijelölje az összes képet a munkalapon.

2. Ezután kattintson a jobb gombbal egy képre, és válassza a lehetőséget Méret és tulajdonságok a helyi menüből lásd a képernyőképet:

3. A kibővített Kép formázása panel alatt a ingatlanok válasszon Mozgás és méret a cellákkal opció, lásd a képernyőképet:

4. Ezután zárja be a Kép formázása ablaktábla. A cellák átméretezésénél, szűrésénél vagy elrejtésénél a képek szintén áthelyezésre, szűrésre vagy elrejtésre kerülnek.


Helyezzen be több képet vagy képet az Excelbe

Előfordulhat, hogy több képet kell beillesztenie a cellákba, és át kell méreteznie azokat a cellaméretnek megfelelően, a képek átméretezése és húzása nélkül. Itt két módot mutatok be ennek a feladatnak az Excelben történő megoldására.

Helyezzen be több képet vagy képet, és méretezze át úgy, hogy a cellákba illeszkedjen a VBA kód

A következő VBA-kód segíthet abban, hogy a cellaméret alapján több képet illesszen be a cellákba. Kérjük, tegye a következőket:

1. Állítsa be a cellaméretet, ahová a képet el szeretné helyezni, majd válassza ki a cellákat.

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ő makrót a Modulok ablak.

VBA kód: Helyezzen be több képet a cellaméret alapján

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Ezután nyomja meg a gombot F5 gombot a kód futtatásához. Ban,-ben Nyisd ki ablakban válassza ki a képeket tartalmazó mappát, majd válassza ki a beilleszteni kívánt képeket, majd kattintson a gombra Nyisd ki gombot, és az összes kijelölt kép be lett helyezve a kiválasztásba a cellaméret alapján. Lásd a képernyőképet:


Helyezzen be több képet vagy képet, és méretezze át őket olyan cellákba, amelyek hatékony funkcióval rendelkeznek

Ha még nem ismeri a VBA kódot, itt használhatja az energiaellátás funkciót - Képek importálása of Kutools az Excel számára. Ezzel a hasznos funkcióval több képet is gyorsan és egyszerűen importálhat a cellákba.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Import Export > Képek importálása, lásd a képernyőképet:

2. A kiugrott Képek importálása párbeszédpanelen tegye a következőket:

  • A kiválasztható Import rendelés legördülő listából adja meg a kép sorrendjét Töltsön függőlegesen cellát cella után or Töltse vízszintesen a cellát cellák után;
  • Ezután kattintson a gombra hozzáad gombbal válassza ki a képfájlokat vagy a mappát, amelyhez a képeket hozzá szeretné adni Képlista;
  • Kattintson az Import méret gombra, a Képméret importálása párbeszédpanelen válassza a ikont Megfelelő cellaméret opciót.

3. A beállítások elvégzése után kattintson a gombra import gombra, és most egy másikra Képek importálása kiugrik, adja meg a cél cellákat, ahová importálja a képet, lásd a képernyőképet:

4. Ezután kattints a gombra OK gombra, az összes kiválasztott kép be lett illesztve, hogy megfeleljen az egyes cellák méretének, az alábbi képernyőképen:


Helyezzen több képet vagy a nevüknek megfelelő képet a cellákba

Ha egy oszlopban van egy terméknév-lista, most be kell illesztenie a megfelelő képeket egy másik oszlopba, az alábbi képernyőkép szerint. A képek beszúrása, majd egyesével az egyes pozíciókba húzása sok időt pazarol, ez a szakasz néhány gyors módszerről fogok beszélni.

Helyezzen be több képet vagy képet, amelyek a nevüknek megfelelnek a VBA kóddal

A következő VBA-kód segíthet több, a nevüknek megfelelő kép gyors beszúrásában, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints Insert> Modulok, és illessze be a következő makrót a Modulok ablak.

VBA kód: Helyezzen be több képet, amely megfelel a nevüknek

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

Megjegyzések: A fenti kódban megváltoztathatja a kép magasságát és szélességét a szkriptekben..ShapeRange.Hight = 60",".ShapeRange.Width = 60”Az Ön igényeinek.

3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és a megnyílt ablakban válassza ki a mappát, amely tartalmazza a beilleszteni kívánt képeket, lásd a képernyőképet:

4. Ezután kattintson OK gombra, megjelenik egy prompt doboz, válassza ki a képneveket tartalmazó cellákat, lásd a képernyőképet:

5. Kattintson a gombra OK gombra, és egy másik prompt doboz jelenik meg, válassza ki azokat a cellákat, amelyekkel a képeket ki szeretné adni, lásd a képernyőképet:

6. Végül kattintson OK, és a képeket a nevük alapján azonnal beillesztették a cellákba, lásd a képernyőképet:


Helyezzen be több, a nevüknek megfelelő képet vagy képet egy hasznos funkcióval

Ha van Kutools az Excel számára, Annak Match Import Képek funkcióval gyorsan és egyszerűen beillesztheti a képeket a képnevek alapján.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Import Export > Match Import Képek, lásd a képernyőképet:

2. A kiugrott Kép importálása kép párbeszédpanelen tegye a következőket:

  • A kiválasztható Import rendelés legördülő listából adja meg a kép sorrendjét Töltsön függőlegesen cellát cella után or Töltse vízszintesen a cellát cellák után;
  • Aztán a Mérkőzési tartomány szövegmezőben válassza ki azokat a képneveket, amelyek alapján képeket szeretne beszúrni;
  • Ezután kattintson hozzáad gombbal válassza ki a képfájlokat vagy a mappát, amelyhez a képeket hozzá szeretné adni Képlista;
  • Ezután meg kell adnia a kép méretét. kérem kattintson Import méret gombra, a Képméret importálása párbeszédpanelen válassza ki a kívánt képméretet.

3. A beállítások elvégzése után kattintson a gombra import gombra, válasszon egy cellát vagy egy cellák listáját a képek megjelenítéséhez a kiugrott helyről Match Import Képek párbeszédpanel, lásd a képernyőképet:

4. Ezután kattints a gombra OK, és az összes olyan képet beillesztette, amelynek a nevei megfeleltek a cellaértékeknek, lásd a képernyőképet:


Helyezzen be vagy jelenítsen meg képeket vagy képeket URL-ekből

Megpróbálta már megjeleníteni vagy beilleszteni a képeket az URL-ek listájába? Lehet, hogy nincs más jó módszer a képek közvetlen beillesztésére az Excelbe, de használhat egy kódot vagy egy harmadik fél eszközét a kezelésére.

Helyezzen be vagy jelenítsen meg képeket vagy képeket URL-ekből VBA kóddal

Kérjük, alkalmazza a következő VBA kódot a képek beszúrásához az URL-ek listája alapján.

1. Először állítsa be a szomszédos cellaméretet, amelyhez keresse a képeket.

2. 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ő makrót a Modulok ablak.

VBA kód: Helyezzen be képeket az URL-ek listájából

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Megjegyzések: A fenti kódban A2: A5 az a cellatartomány, amely tartalmazza azokat az URL-címeket, amelyekkel kibontani szeretné a képeket, a cellahivatkozásokat az igényeinek megfelelően módosítsa.

4. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, a megfelelő képeket kivonják az URL-ekből a szomszédos oszlopba, és a cellák közepére helyezik, lásd a képernyőképet:


Helyezzen be vagy jelenítsen meg képeket vagy képeket URL-ekből egy csodálatos funkcióval

Kutools az Excel számára csodálatos funkcióval rendelkezik - Képek beszúrása az útvonalról (URL). Ezzel a segédprogrammal a megfelelő képeket gyorsan és egyszerűen kinyerik az URL-ekből.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > betétlap > Képek beszúrása az útvonalról (URL), lásd a képernyőképet:

2. A kiugrott Képek beszúrása az útvonalról (URL) párbeszédpanelen állítsa be a következő műveleteket:

  • Válassza ki az URL-cellák listáját és egy cellatartományt, ahová a képeket el szeretné helyezni;
  • Adja meg a képek méretét, amire szüksége van a Képméret szakasz.

3. Ezután kattintson Ok gombra, és az összes képet kivonták az URL-ekből, lásd a képernyőképet:


Helyezzen be vagy jelenítsen meg képeket vagy képeket fájlútvonalakról

Ha be kell illesztenie a képeket a fájl elérési útjából, itt találja meg a megoldásokat is.

Helyezzen be vagy jelenítsen meg képeket vagy képeket fájlútvonalakról VBA kóddal

Az alábbi VBA kódot alkalmazhatja a képek beszúrására a képfájl útvonalai alapján.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

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

VBA kód: Képek beillesztése a fájlok elérési útvonala közül

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. A fenti kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, majd megjelenik egy prompt doboz, válassza ki a fájl elérési útjának celláit, lásd a képernyőképet:

4. Ezután kattintson OK gombra kattintva a fájl útvonalain alapuló összes kép a következő oszlopban jelenik meg, a következő képernyőkép szerint:


Helyezzen be vagy jelenítsen meg képeket vagy fájlokat a fájlútvonalakról egy csodálatos funkcióval

Kutools az Excel számára'S Képek beszúrása az útvonalról (URL) funkció szintén segítséget nyújthat a fájl elérési útjából származó relatív képek megjelenítéséhez.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > betétlap > Képek beszúrása az útvonalról (URL), a felbukkanó párbeszédpanelen adja meg a fájl elérési útját, a képek kiadásának tartományát, a kép méretét szükség szerint, lásd a képernyőképeket:

2. Az opciók beállítása után kattintson a gombra Ok gombra, a képek egyszerre kerülnek be a kiválasztott cellákba, lásd a képernyőképet:


Kép vagy kép beszúrása egy megjegyzésbe

Könnyen lehet képet beilleszteni egy cellába, de néha érdemes képet beillesztenie egy megjegyzés mezőbe, hogyan kezeli ezt a feladatot?

1. Jelölje ki és kattintson jobb egérgombbal arra a cellára, ahová be szeretné illeszteni a megjegyzést, majd válassza a lehetőséget Megjegyzés beillesztése, lásd a képernyőképet:

tippek: Ha beírt egy megjegyzést, kérjük, hagyja figyelmen kívül ezt a lépést.

2. Ezután mozgassa a kurzort a megjegyzésmező szélén, amíg meg nem látja, hogy a kurzor négy nyíl ikonná válik. Ezután kattintson a jobb gombbal, és válassza ki Megjegyzés formázása opció, lásd a képernyőképet:

3. A kiugrott Megjegyzés formázása párbeszédpanelen kattintson a gombra Színek és vonalak Lapot, majd válassza ki Kitöltési effektusok tól színek legördülő lista, lásd a képernyőképet:

4. Ezután a következőkben Kitöltési effektusok párbeszédpanelen kattintson a gombra Kép lapot, és kattintson a gombra Válassza a Kép lehetőséget gomb a beilleszteni kívánt kép kiválasztásához, lásd a képernyőképet:

5. Ezután kattintson OK > OK, a képet beillesztették a megjegyzés mezőbe, lásd a képernyőképet:


Helyezzen képet vagy képet a fejlécbe vagy a láblécbe

Ha képet szeretne beszúrni az Excel munkalap fejlécébe vagy láblécébe, az ebben a szakaszban szereplő lépések segíthetnek, kérjük, tegye a következőket:

1. Aktiválja azt a munkalapot, ahová be szeretné illeszteni a képet a fejlécbe vagy a láblécbe.

2. Ezután kattints a gombra betétlap > Fejléc lábléc, és elmész a Fejléc és lábléc eszközök fülre. Lásd a képernyőképet:

3. Kép beillesztéséhez a fejlécbe vagy a láblécbe kattintson a bal, jobb vagy középső fejlécre vagy láblécre, ha szükséges, majd kattintson a Kép alatt a Design fül, lásd a képernyőképet:

4. Aztán egy Képek beszúrása ablak jelenik meg, válassza ki a hozzáadni kívánt képet, és kattintson a Beszúrás gombra. Most, a &[Kép] helyőrző megjelenik a fejlécben vagy a lábléc mezőben. Kattintson bárhová a fejlécen vagy a láblécen kívül, a beillesztett kép az alábbi képernyőképen jelenik meg:

tippek: Előfordulhat, hogy a kép átfedésben van a munkalap adatterületével, ahogy az alábbi képernyőképen látható. Ez azért történik, mert a kép túl nagy, és nem lesz átméretezve, hogy automatikusan illeszkedjen a fejléc vagy a lábléc szakasz mezőjébe.

A probléma megoldásához csak át kell méreteznie a fejlécben vagy a láblécben lévő képet, kérjük, tegye a következőket:

1. Kattintson a fejléc vagy a lábléc részre, ahol a kép található, majd kattintson a gombra Kép formázása alatt a Design fül, lásd a képernyőképet:

2. Az Kép formázása párbeszédpanel alatt Méret lapon, kérjük, állítsa be a kép méretét, hogy illeszkedjen a fejléc vagy a lábléc szakasz mezőjéhez, lásd a képernyőképet:

3. Ezután kattintson OK, akkor megkapja az eredményt, amire szüksége van.


Helyezzen ugyanazt a képet vagy képet több munkalapba

Előfordulhat, hogy logó képet szeretne beszúrni a munkafüzet összes munkalapjába. Normál esetben a Beszúrás funkciót használhatja a kép egyik lapról a másikra történő beszúrására. Ezt az időigényes funkciót leszámítva a következő VBA-kód segíthet abban, hogy ugyanazt a képet egyszerre illessze be az összes lap adott cellájába. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

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

VBA kód: Helyezze ugyanazt a képet az összes munkalapra:

Sub InsertImagetoallsheets()
'Updateby Extendoffice
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\AddinTestWin10\Desktop\my images\logo.png"
    If Dir(xPath) = "" Then
        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    For I = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(I).Range("A1")
        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next
End Sub

Megjegyzések: A fenti kódban C: \ Users \ AddinTestWin10 \ Desktop \ my images \ logo.png a kép útvonala és neve, és A1 in Tartomány ("A1") az a cella, ahová be akarja illeszteni a képet, kérjük, változtassa meg az igényeinek megfelelően.

3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és a konkrét képet azonnal beillesztették az egyes munkalapok A1 cellájába. Lásd az alábbi bemutatót:


Helyezzen képet vagy képet a cellatartalom mögé

A munkalap adatainak szebbé és vonzóbbá tételéhez használhat képet háttérként. Kép beillesztéséhez a cellatartalom mögé íme néhány módszer, amellyel szívességet tehet.

Helyezzen képet vagy képet a cellatartalom mögé a Háttér funkcióval

1. Nyissa meg azt a munkalapot, ahová háttérképet szeretne beszúrni.

2. Ezután kattints a gombra Page Layout > Háttér, lásd a képernyőképet:

3. A kiugrott Képek beszúrása ablakban, kérjük, válasszon ki egy képet a számítógépéről, a webhelyről vagy a OneDrive-ból, amire szüksége van, lásd a képernyőképet:

4. Most a képet háttérként illesztették be a munkalapba, az alábbi képernyőkép szerint:

tippek: A háttérkép törléséhez kattintson a gombra Page Layout > Háttér törlése. Lásd a képernyőképet:


Helyezzen átlátszó képet vagy képet a cellatartalom mögé

A fenti módszerrel nem lehet megváltoztatni a beillesztett háttérkép átlátszóságát, így ha a háttérkép színe nehéz, nem lesz kényelmes elolvasnia a munkalap adatait. Ebben a részben arról fogok beszélni, hogyan lehet átlátszó képet beilleszteni a cellák mögé.

1. Kattints betétlap > Alakzatok, és válasszon egy téglalap alakot, lásd a képernyőképet:

2. Ezután rajzoljon egy akkora alakzatot, amennyire szüksége van az aktív munkalapon.

3. Az alakzat megrajzolása után a rajzeszközök fül jelenik meg a szalagon, majd kattintson a gombra kialakított > Kép alakzat > Nincs vázlat, lásd a képernyőképet:

4. Ezután kattintson a jobb gombbal az alakzatra, és válassza a lehetőséget Formátum alakja a helyi menüből lásd a képernyőképet:

5. A kibővített Formátum alakja panel alatt a Fill & Line lapon hajtsa végre a következő műveleteket:

  • Alatt Tölt válasszon Kép vagy textúra kitöltése választási lehetőség;
  • Kattints betétlap gombot a Képforrás, és válasszon ki egy képet, amelyet be szeretne illeszteni;
  • Ezután állítsa be a kép átlátszóságát az Ön igényeinek megfelelően Átlátszóy szakasz.

6. Ezután meglátja, hogy a képekkel töltött forma háttérképként néz ki, mint a fenti képernyőképen látható.

Megjegyzések: Az ilyen típusú háttérkép beillesztése után semmilyen szöveget nem írhat be a képtartományba.


Helyezzen átlátszó képet vagy képet a cellatartalom mögé vízjelként

Mindkét fenti módszernek megvannak a maga korlátai, az első módszer nem változtathatja meg a kép átlátszóságát, a második módszer nem teszi lehetővé a szöveg bevitelét a képterületen belüli cellákba. E problémák megoldása érdekében Kutools az Excel számára'S Vízjel beszúrása funkció tehet egy szívességet.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > betétlap > Vízjel beszúrása, lásd a képernyőképet:

2. A kiugrott Vízjel beszúrása párbeszédpanelen válassza ki Kép vízjel, Majd kattintson a Válassza a Kép lehetőséget gombra, hogy kiválasszon egy képet, amelyet be szeretne illeszteni, majd adja meg a kép méretét, és jelölje be az Elmosás opciót, lásd a képernyőképet:

3. Ezután kattints a gombra Ok gombra, a képet háttérképként illesztették be a munkalapba.


Helyezzen be egy cellatartományt kép vagy kép formátumban az Excel programba

Próbált már másolni egy cellatartományt, és beilleszteni képként az Excelbe? Ebben a részben bemutatok néhány gyors módszert a feladat kezelésére az Excel programban.

Helyezzen be egy cellatartományt kép vagy kép formátumban a Másolás képként funkcióval

Az Excelben a Másolás képként funkció egy cellatartomány képmásolásához és beszúrásához.

1. Válassza ki a másolni és képként beilleszteni kívánt cellatartományt.

2. Ezután kattints a gombra Kezdőlap > másolat > Másolás képként, lásd a képernyőképet:

3. A kiugrott Kép másolása párbeszédablakban válassza ki Kép tól kialakított szakasz, lásd a képernyőképet:

4. Ezután kattints a gombra OK gombot, most csak meg kell nyomnia Ctrl + V hogy a képet a munkafüzet bárhová illessze.


Helyezzen be egy cellatartományt kép vagy kép formátumban a Kamera eszközzel

Az Excelben van egy Háló eszköz, amellyel fényképet készíthet a kiválasztott adatokról, majd beillesztheti képként. Amikor az eredeti adat megváltozik, a másolt kép dinamikusan megváltozik.

Először meg kell jelenítenie a Háló a szalagon, majd alkalmazza.

1. Kattints A Gyorselérés eszköztár testreszabása ikonra, majd kattintson a gombra További parancsok opció, lásd a képernyőképet:

2. A nyitottban Excel beállítások párbeszédpanelen tegye a következőket:

  • választ Minden parancs tól Válaszd ki a parancsokat ledob;
  • Ezután görgessen a kiválasztáshoz Háló a listából;
  • Ezután kattintson hozzáad gombra kattintva hozzáadhatja ezt az eszközt a A Gyorselérés eszköztár testreszabása;
  • Végül kattintson OK a párbeszédpanel bezárásához.

3. És a Háló eszköz megjelent a szalagon, lásd a képernyőképet:

4. Ezután válassza ki a kívánt cellatartományt.

5. Ezután kattintson a gombra Háló eszközt, majd lépjen a munkalapra, és kattintson bárhová, az adattartomány képként kerül beillesztésre, az alábbi bemutató szerint:


Helyezzen be egy cellatartományt kép- vagy képformátumban egy hasznos funkcióval

Ha van Kutools az Excel számára, Annak Erőforrás-könyvtár funkcióval mentheti a kijelölt adatokat a Erőforrás-könyvtár, majd a későbbiekben tetszés szerint használja képként vagy szövegként.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Válassza ki azt az adattartományt, amelyet képként szeretne beszúrni.

2. Ezután kattints a gombra Kutools > Navigáció, lásd a képernyőképet:

3. A kibővített Navigáció tetején kattintson a gombra Erőforrás-könyvtár ikonra, majd kattintson a gombra A kiválasztott tartalom hozzáadása az Erőforrás könyvtárhoz ikon, lásd a képernyőképet:

4. Az Új erőforráskönyvtár bejegyzés párbeszédpanelen adja meg az elem nevét, majd válassza ki a hozzáadni kívánt csoportot. Lásd a képernyőképet:

5. Ezután kattints a gombra hozzáad gombot hozzáadásához Erőforrás-könyvtár ablaktábla. Ha ezt a tartományt képként kívánja beszúrni, akkor csak egy cellára kell kattintania a kép megkereséséhez, majd megtalálja a mentett elemet a Erőforrás-könyvtár és kattintson a gombra Helyezze be > Kép (EMF) az elem legördülő listájából. És az adattartomány képként kerül beillesztésre a lapba, lásd a képernyőképeket:


Kép vagy kép dinamikus beillesztése a cellaérték alapján

Ebben a részben bemutatom, hogyan jelenítsen meg egy adott képet egy cellaérték alapján. Például meg akarom mutatni a megfelelő képet, amikor kiválasztok egy elemet egy legördülő menüből, és amikor egy másikat választok, a kép dinamikusan változik, az alábbi bemutató szerint:

Kép vagy kép beillesztése a cellaérték alapján dinamikusan a Named range szolgáltatással

Normál esetben az Excel programban létrehozhat egy dinamikus nevű tartományt, majd a csatolt képet felhasználhatja a feladat megoldására az Excelben.

1. Először két oszlopot kell létrehoznia, amelyek tartalmazzák a termékneveket és a relatív képeket, lásd a képernyőképet:

2. Ezután kérjük, hozzon létre egy legördülő listát a cellaértékekhez. Kattintson egy cellára a legördülő lista megjelenítéséhez, majd kattintson a gombra dátum > adatok ellenőrzése > adatok ellenőrzése, lásd a képernyőképet:

3. A kiugrott adatok ellenőrzése párbeszédpanel alatt beállítások lapot választani Lista tól Hagyjuk legördülő menüből, majd válassza ki a létrehozandó cellákat a legördülő listából a forrás szövegdoboz, lásd a képernyőképet:

4. Kattints OK, és a cellaértékekkel rendelkező legördülő lista létrejött, válasszon ki egy elemet a legördülő listából, lásd a képernyőképet:

5. Ezután kattints a gombra képletek > Definiálja a nevet, lásd a képernyőképet:

6. Az Új név párbeszédpanelen tegye a következőket:

  • Írja be a myimage nevű nevet a Név szövegdoboz;
  • Ezután másolja és illessze be ezt a képletet: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) a Hivatkozások szövegmezőbe.

Megjegyzések: A fenti képletben:

  • 11. lap! $ A $ 2: $ B $ 6: az a munkalap és tartomány, amely tartalmazza a használni kívánt értékeket és képeket;
  • 11. lap! $ E $ 2: a munkalap azon cellája, ahol létrehozta a legördülő listát;
  • 11. lap! $ A $ 2: $ A $ 6: a létrehozott cellák listája a legördülő lista alapján;
  • A változó szám 2 a képeket tartalmazó oszlopszám. Ha képei a C oszlopban vannak, írja be a 3 értéket.

7. Ezután kattintson OK gombra, majd másolja és illessze be a megfelelő képet az E2 cellaértéke alapján az eredeti tartományból az F2 cellába, lásd a képernyőképet:

8. Ezután válassza ki a képet az F2 cellában, majd írja be ezt a képletet = myimage (az én képem az a tartománynév, amelyet a 6. lépésben hoztál létre a képletsávba, lásd a képernyőképet:

9. A képlet beírása után nyomja meg a gombot belép gombot, és most, ha kiválaszt egy elemet a legördülő listából, annak relatív képe azonnal megjelenik. Lásd a képernyőképet:


Kép vagy kép beillesztése a cellaérték alapján dinamikusan, praktikus funkcióval

A fenti módszer a legtöbbünk számára nehéz lehet, itt bemutatok egy hasznos funkciót - Kép legördülő lista of Kutools az Excel számára, ezzel a hasznos eszközzel több kattintással hozhat létre több legördülő listát a hozzájuk tartozó képekkel.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Először két oszlopot kell létrehoznia, amelyek a termékneveket és a relatív képeket tartalmazzák a munkalapon.

2. Ezután kattintson Kutools > Legördülő lista > Kép legördülő lista, lásd a képernyőképet:

3. Az Kép legördülő lista párbeszédpanel, ha létrehozta a cellaértékek és képek oszlopait, kérjük, hagyja figyelmen kívül az 1. lépést, majd válassza ki az eredeti adat- és képtartományt, valamint a kimeneti tartományt, lásd a képernyőképet:

4. Ezután kattintson Ok gombra, a képekkel ellátott legördülő listák létrejöttek a kiválasztott cellákba, és amikor egy elemet kiválasztunk a legördülő cellából, annak megfelelő képe egyszerre jelenik meg, lásd alább a bemutatót:


Exportálja vagy mentse az összes képet vagy képet egy Excel fájlból

Ha több kép van a munkafüzetben, és most szeretné kinyerni és menteni az összes képet az Excel fájlból egy mappába. Hogyan oldhatná meg ezt a feladatot Excelben?

Exportálja vagy mentse az összes képet vagy képet az Excelből a Mentés másként funkcióval

Normál esetben használhatja a Mentés másként a munkafüzet összes képének mentéséhez, kérjük, tegye a következőket:

1. Kattints filé > Mentés másként, A Mentés másként ablakban adjon meg egy mappát az exportált fájlok elhelyezéséhez, majd válassza a lehetőséget Weboldal (*. Htm; *. Html) tól Mentés type legördülő lista, lásd a képernyőképet:

2. Kattintson a gombra Megtakarítás gombra, lépjen az adott mappába, és két fájlt fog látni, az egyik a HTML formátumú fájl, a másik pedig egy mappa, amely a munkafüzet képeit, diagramjait vagy más objektumait tartalmazza. Lásd a képernyőképet:

3. Ezután csak a képeket húzhatja át egy másik mappába, amire szüksége van.

Megjegyzések: Ennek használatával Mentés másként funkcióval, minden képet kétszer kap, az egyik kisebb, a másik nagyobb, így szükség esetén elmentheti a nagyobb felbontású képeket.


Exportálja vagy mentse az összes képet vagy képet az Excel programból a fájlkiterjesztés módosításával

Az összes kép Excel fájlból történő mentéséhez a fájlkiterjesztést RAR-ra is módosíthatja. Kérjük, tegye a következőket:

1. Módosítsa a fájlkiterjesztést xlsx nak nek rar az alábbi képernyőképen:

2. Ezután csomagolja ki a fájlt, és 3 mappát és 1 fájlt fog látni a mappában, lásd a képernyőképet:

3. Ezután kattintson a gombra a xl mappát, majd nyissa meg a média mappát, látni fogja, hogy az összes képet itt tárolják másolatok nélkül, lásd a képernyőképet:


Exportálja vagy mentse az összes képet vagy képet az Excel programból egy hatékony funkcióval

Ha van Kutools az Excel számára, Annak Exportálja a grafikát funkcióval gyorsan exportálhat néhány konkrét objektumot, például képeket, diagramokat, alakzatokat képformátumba, amire szüksége van.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Import Export > Exportálja a grafikát, lásd a képernyőképet:

2. Az Exportálja a grafikát párbeszédpanelen hajtsa végre a következő műveleteket:

  • A pop-art design, négy időzóna kijelzése egyszerre és méretének arányai azok az érvek, amelyek a NeXtime Time Zones-t kiváló választássá teszik. Válassza a képek lehetőség a Típusai legördülő lista;
  • Adjon meg egy mappát az exportáló képek mentéséhez;
  • Ezután kattintson a legördülő listára a Export formátum hogy egy formátumot válasszon a képei számára.

3. Végül kattintson Ok gombra, az aktuális munkafüzet összes képét elmentette a megadott mappába, lásd a képernyőképet:


Nevezze át a mappában lévő képneveket az Excel cellalistája alapján

Ha sok kép van egy mappában, és most át akarja nevezni ezeket a képeket, hogyan oldhatná meg ezt a feladatot az Excel egyszerű módjával?

Az Excel programban először fel kell sorolnia az összes régi képnevet egy oszlopba, majd be kell írnia az új neveket, végül VBA-kódot kell alkalmaznia a régi nevek egyszerre történő cseréjére. Kérjük, tegye a következőket:

1. Kérjük, sorolja fel az összes képnevet a cellák listájába, vagy alkalmazhatja az alábbi kódot az összes képnév felsorolásához egy adott mappában anélkül, hogy egyesével manuálisan beírná őket.

2. Lefog ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications Ablak.

3. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok ablak.

VBA-kód: felsorolja az összes képnevet egy mappából

Sub MainList()
'Updateby Extendoffice
On Error Resume Next
Set xRg = Application.InputBox("Please select a cell to put the filenames:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1)
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xRg, xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xRg As Range, ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = 1
For Each xFile In xFolder.Files
xRg.Formula = xFile.Name
Set xRg = xRg.Offset(rowIndex)
rowIndex = 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xRg, xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

4. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, kérjük, kattintson egy cellára, ahová a képneveket ki szeretné adni, lásd a képernyőképet:

5. Ezután kattints a gombra OK, Egy másik Tallózás párbeszédpanel jelenik meg, kérjük, válassza ki a mappát, amely tartalmazza az összes képnevet felsorolni kívánt képeket, lásd a képernyőképet:

6. Kattints OK, az adott mappában található összes képnév fel lett sorolva a cellákban, lásd a képernyőképet:

7. Ezután írja be a szükséges új neveket egy másik oszlopba, az alábbi képernyőkép szerint:

8. Ezután alkalmazhatja az alábbi kódot a képek átnevezéséhez, nyomja meg a gombot ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications Ablak.

9. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok ablak.

VBA kód: Több fájl átnevezése egy mappában

Sub RenameFiles()
'Updateby Extendoffice
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

Megjegyzések: A fenti kódban A: A az átnevezni kívánt régi képnevek listáját jelöli, és B tartalmazza a használni kívánt új képneveket, ezeket igény szerint módosíthatja.

10. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és beugrott Tallózás ablakban válassza ki az átnevezni kívánt képet tartalmazó mappát, lásd a képernyőképet:

11. Ezután kattintson OK gombra, az összes képnév lecserélődött az új nevekre, az alábbi képernyőképen:


A képre kattintva kattintson a kép nagyítására vagy kicsinyítésére

Tegyük fel, hogy beillesztett egy kis képet a munkalapba, most meg szeretné nagyítani a képet, amikor rákattint rá, és ha ismét rákattint, akkor az alábbiakban bemutatott demó szerint csökkenteni kell. Hogyan oldhatná meg ezt a feladatot Excelben?

A kép méretének nagyításához vagy kicsinyítéséhez, amikor rákattint, a következő kód tehet egy szívességet. Kérjük, tegye a következőket:

1. Kattintson a jobb gombbal a képre, és válassza a lehetőséget Hozzárendelje a Makrót, lásd a képernyőképet:

2. Aztán beugrott Hozzárendelje a Makrót párbeszédpanelen kattintson a Új gomb, lásd a képernyőképet:

3. Az Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be az alábbi kódot a alatt és End Sub kódok. Lásd a képernyőképet:

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3  
    small = 1
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
     
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

4. Ezután nyomja meg a gombot Alt + Q gombok a Microsoft Visual Basic for Applications ablak. Most, amikor rákattint a képre, a kép az Ön által megadott méretűre lesz kinagyítva, majd ismét rákattintva az eredeti méretre zsugorodik, ahogy az alábbiakban bemutatjuk:


A munkalap görgetésekor mindig lebegjen egy kép

Előfordulhat, hogy érdemes lebegtetnie egy képet a munkalap képernyőn, még akkor is, ha felfelé vagy lefelé görget a munkalapon, hogy folyamatosan láthassa a képet. Ebben a részben bemutatok egy gyors trükköt, amellyel kezelheti ezt a munkát az Excel programban. Kérjük, tegye a következőket:

1. Először helyezzen be egy képet, amelyet használni szeretne.

2. Ezután kattintson a jobb gombbal a lapfülre, amely mindig azt a képet tartalmazza, amelyet mindig láthatóan szeretne tartani, majd válassza a lehetőséget Kód megtekintése a helyi menüből. A nyitottban Microsoft Visual Basic alkalmazásokhoz ablakba másolja és illessze be az alábbi kódot az üres modulba:

VBA kód: Mindig lebegtet egy képet egy munkalapon

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Megjegyzések: Ebben a kódban az Kép 1 az a képnév, amelyet beillesztett, kérjük, változtassa meg igénye szerint.

3. Ezután mentse el és zárja be a kódablakot. Most, amikor a munkalapot görgeti, és egy cellára kattint, a kép mindig a munkalap jobb felső sarkában lesz. Lásd a képernyőképet:


Képek vagy képek törlése az aktív lapról / cellatartományról

Van-e gyors módja az összes kép törlésére egy munkalapról, egy cellatartományból vagy az aktuális munkafüzetből? Ebben a részben bemutatok néhány módszert ennek a feladatnak az Excelben történő megoldására.

Képek vagy képek törlése az aktív lapról VBA kóddal

A képek törléséhez az aktuális munkalapról az alábbi VBA-kód segíthet, kérjük, tegye a következőket:

1. Aktiválja a törölni kívánt képeket tartalmazó munkalapot.

2. 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ő makrót a Modulok Ablak.

VBA kód: Az összes kép törlése az aktuális munkalapról

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és az aktív munkalap összes képe egyszerre törlődik.


Képek vagy képek törlése VBA kóddal ellátott cellatartományból

Ha csak egy cellatartományból kell törölnie a képeket, itt egy másik egyszerű kód segíthet.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.

VBA kód: Törölje a képeket egy cellatartományból

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Megjegyzések: A fenti kódban B4: C6 az a tartomány, ahonnan törölni szeretné a képeket.

3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és a kiválasztott tartományban lévő képek azonnal törlődnek, lásd a képernyőképeket:


Képek vagy képek törlése az aktív lapról, a kiválasztott lapokról, az összes praktikus funkcióval ellátott lapról

Ha van Kutools az Excel számára, Annak Illusztrációk és objektumok törlése funkcióval gyorsan törölheti a képeket egy munkalapról, néhány kiválasztott munkalapról vagy az egész munkafüzetről.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > töröl > Illusztrációk és objektumok törlése, lásd a képernyőképet:

2. A nyitottban Illusztrációk és objektumok törlése párbeszédpanelen ellenőrizze képek tól töröl szakaszban, majd adja meg azt a kört, amelyből törölni szeretné a képeket a benéz szakasz, lásd a képernyőképet:

3. Ezután kattintson Ok gombra, és az összes kép törlődik a munkalapról, a kiválasztott munkalapokról vagy az egész munkafüzetről, ahogyan Ön megadta.



  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...
kte lap 201905
  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
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.
    janick1980. · 1 months ago
    Good afternoon,

    Very nice page.

    Only I tried the VBA of "Insert Multiple Images Or Images That Match Their Names With VBA Code" but unfortunately it doesn't work.

    I can finish everything but unfortunately I can't get with pictures in the excel.

    Any idea what the problem could be here?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 months ago
      Hello, janick,
      The code works well in my workbook, do you select the correct folder contains the images? Please check it?

      Thank you!
  • To post as a guest, your comment is unpublished.
    DikshMishra · 1 months ago
    Hey, it was an amazing article thanks for sharing.
    Keep up the good work.

    source: https://tractorguru.in/tractor/new-holland-9010
  • To post as a guest, your comment is unpublished.
    saundersmarshall · 2 months ago
    This is a great article! I really like how you presented it so easy to understand