Pentru cei mai mulți dintre noi este ușor să introducem imagini stocate pe computer în foaia de lucru. Vă rugăm să faceți acest lucru:

1. În foaia de lucru, faceți clic pe locul în care doriți să inserați imagini.

2. Apoi apasa Insera > poze > Acest aparat, vezi captura de ecran:

3. În pop-out Introduceți imaginea fereastra, deschideți folderul care conține imaginile, apoi țineți apăsat Ctrl tasta pentru a selecta imaginile pe care doriți să le inserați, consultați captura de ecran:

4. Apoi apasa Insera butonul, imaginile selectate au fost inserate în foaie. Acum, puteți ajusta sau redimensiona imaginile la celulele de care aveți nevoie, consultați captura de ecran:

Dacă aveți Excel 2013 sau versiuni ulterioare, puteți insera imaginile de pe web sau One Drive, vă rugăm să procedați astfel:

1. În foaia de lucru, faceți clic pe locul în care doriți să inserați imagini.

2. Apoi apasa Insera > poze > Imagini online, vezi captura de ecran:

3. Va fi afișată o fereastră următoare. În Imagini online , introduceți ceea ce căutați în caseta de text, apoi apăsați Intrați cheie. Toate imaginile corespunzătoare sunt căutate simultan, vezi captura de ecran:

4. Apoi, selectați imaginile dorite, apoi faceți clic pe Insera buton. După introducerea imaginilor, vă rugăm să redimensionați sau să ajustați imaginile la poziția de care aveți nevoie.

Următorul cod VBA vă poate ajuta să inserați mai multe imagini în celule în funcție de dimensiunea celulei. Vă rugăm să faceți acest lucru:

1. Ajustați dimensiunea celulei pe care doriți să o puneți, apoi selectați celulele.

2. Apoi, țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module fereastră.

Cod VBA: introduceți mai multe imagini pe baza dimensiunii celulei

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. Apoi apăsați pe F5 tasta pentru a rula acest cod. În Operatii Deschise fereastra, alegeți folderul care conține imaginile, apoi selectați imaginile pe care doriți să le inserați, apoi faceți clic pe Operatii Deschise și toate imaginile selectate au fost inserate în selecția dvs. pe baza dimensiunii celulei. Vedeți captura de ecran:

Dacă nu sunteți familiarizați cu codul VBA, aici puteți utiliza o funcție de alimentare - Importați imagini of Kutools pentru Excel. Cu această caracteristică utilă, puteți importa mai multe imagini în celule rapid și ușor.

După instalare Kutools pentru Excel, vă rugăm să parcurgeți pașii următori:

1. Clic Kutools Plus > Import Export > Importați imagini, vezi captura de ecran:

2. În pop-out Importați imagini dialog, vă rugăm să efectuați următoarele operații:

• Specificați ordinea imaginii din lista derulantă Comandă import, pe care o puteți alege Umpleți vertical celulă după celulă or Umpleți orizontal celulă după celulă;
• Apoi apasa Adăuga butonul pentru a selecta fișierele de imagine sau folderul pentru a adăuga imaginile în Lista de imagini;
• Apasă pe Dimensiunea importului , în butonul Importați dimensiunea imaginii caseta de dialog, selectați Dimensiunea celulei potrivită opțiune.
• 

3. După terminarea setărilor, faceți clic pe Import buton, iar acum, altul Importați imagini este afișat, specificați celulele de destinație în care veți importa imaginea, vedeți captura de ecran:

4. Apoi apasa OK butonul, toate imaginile selectate au fost inserate pentru a se potrivi cu dimensiunea anumitor celule, după cum se arată în imaginea de mai jos:

Următorul cod VBA vă poate ajuta să inserați mai multe imagini care se potrivesc rapid cu numele lor, vă rugăm să faceți acest lucru:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insereazăt> Moduleși lipiți următoarea macro în fișierul Module fereastră.

Cod VBA: introduceți mai multe imagini care se potrivesc cu numele lor

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

notițe: În codul de mai sus, puteți schimba înălțimea și lățimea imaginii în scripturi „.ShapeRange.Înălțime = 60",".ShapeRange.Width = 60”La nevoia ta.

3. Apoi, apăsați F5 pentru a rula acest cod și, în fereastra deschisă, selectați folderul care conține imaginile pe care doriți să le inserați, vedeți captura de ecran:

4. Apoi, faceți clic OK , apare o casetă de prompt, selectați celulele care conțin numele imaginilor, vedeți captura de ecran:

5. Continuați să faceți clic OK buton și este urmată o altă casetă de solicitare, vă rugăm să selectați celulele pe care doriți să le afișați imaginile, vedeți captura de ecran:

6. În cele din urmă, faceți clic pe OK, iar imaginile au fost inserate în celule pe baza numelor lor simultan, vezi captura de ecran:

Dacă aveţi Kutools pentru Excel, Cu său Potriviți imagini de import caracteristică, puteți insera imaginile bazate pe numele imaginilor rapid și ușor.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Clic Kutools Plus > Import Export > Potriviți imagini de import, vezi captura de ecran:

2. În pop-out Potriviți imaginea de import caseta de dialog, vă rugăm să efectuați următoarele operații:

• Specificați ordinea imaginii din lista derulantă Comandă import, pe care o puteți alege Umpleți vertical celulă după celulă or Umpleți orizontal celulă după celulă;
• Apoi, din Interval de potrivire caseta text, selectați numele imaginilor pe care doriți să inserați imagini;
• Apoi, faceți clic Adăuga butonul pentru a selecta fișierele de imagine sau folderul pentru a adăuga imaginile în Lista de imagini;
• Apoi, ar trebui să specificați dimensiunea imaginii. Vă rugăm să faceți clic pe Dimensiunea importului , în butonul Importați dimensiunea imaginii caseta de dialog, selectați o dimensiune a imaginii după cum aveți nevoie.
• 

3. După terminarea setărilor, faceți clic pe Import , alegeți o celulă sau o listă de celule pentru a localiza imaginile din fereastra pop-out Potriviți imagini de import dialog, vezi captura de ecran:

4. Apoi apasa OKși toate imaginile pentru care au fost inserate numele potrivite cu valorile celulei, consultați captura de ecran:

Vă rugăm să aplicați următorul cod VBA pentru a insera imaginile pe baza unei liste de adrese URL.

1. Mai întâi, ajustați dimensiunea celulei adiacente pe care doriți să localizați imaginile.

2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module fereastră.

Cod VBA: introduceți imagini dintr-o listă de adrese URL

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

notițe: În codul de mai sus, A2: A5 este gama de celule care conține adresele URL pe care doriți să extrageți imaginile, ar trebui să modificați referințele celulei la nevoia dvs.

4. Apoi apăsați F5 tasta pentru a rula acest cod, imaginile potrivite vor fi extrase din adresele URL către coloana alăturată și plasate în centrul celulelor, vezi captura de ecran:

Kutools pentru Excel are o caracteristică uimitoare - Inserați imagini din cale (URL). Cu acest utilitar, imaginile corespunzătoare vor fi extrase rapid și ușor din adresele URL.

După instalare Kutools pentru Excel, vă rugăm să parcurgeți pașii următori:

1. Clic Kutools > Insera > Inserați imagini din cale (URL), vezi captura de ecran:

2. În pop-out Inserați imagini din cale (URL) caseta de dialog, setați următoarele operații:

• Selectați lista de celule URL și o gamă de celule în care doriți să puneți imaginile;
• Specificați dimensiunea imaginilor după cum aveți nevoie din Dimensiunea imaginii secţiune.
• 

3. Apoi, faceți clic Ok și toate imaginile au fost extrase din adresele URL, consultați captura de ecran:

Puteți aplica următorul cod VBA pentru inserarea imaginilor pe baza căilor fișierului imagine.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, apoi lipiți următorul cod în Module Fereastră.

Cod VBA: introduceți imagini dintr-o gamă de căi de fișiere

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. După introducerea codului de mai sus, apăsați F5 tasta pentru a rula acest cod, apoi apare o casetă de prompt, selectați celulele căii fișierului, vedeți captura de ecran:

4. Apoi apasa OK butonul, toate imaginile bazate pe căile de fișiere au fost afișate în coloana următoare, după cum se arată în următoarea captură de ecran:

Kutools pentru Excel'S Inserați imagini din cale (URL) funcția vă poate ajuta, de asemenea, să afișați imaginile relative din calea fișierului.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Clic Kutools > Insera > Inserați imagini din cale (URL), în caseta de dialog pop-out, vă rugăm să specificați intervalul de cale a fișierului, intervalul pentru ieșirea imaginilor, dimensiunea imaginii după cum aveți nevoie, vedeți capturi de ecran:

2. După setarea opțiunilor, faceți clic pe Ok butonul, imaginile vor fi inserate simultan în celulele selectate, vezi captura de ecran:

sfaturi: Uneori, puteți constata că imaginea se suprapune cu zona de date a foii de lucru, așa cum se arată în imaginea de mai jos. Acest lucru se întâmplă deoarece imaginea este prea mare și nu va fi redimensionată pentru a se potrivi automat cu secțiunea antet sau subsol.

Pentru a rezolva această problemă, trebuie doar să redimensionați imaginea din antet sau subsol, urmați pașii următori:

1. Faceți clic în secțiunea antet sau subsol în care se află imaginea, apoi faceți clic pe Formatați imaginea în temeiul Amenajări fila, vezi captura de ecran:

2. În Formatați imaginea caseta de dialog, sub Mărimea filă, vă rugăm să ajustați dimensiunea imaginii pentru a se potrivi cu caseta de antet sau subsol, consultați captura de ecran:

3. Apoi, faceți clic OK, veți obține rezultatul după cum aveți nevoie.

1. Deschideți foaia de lucru unde doriți să inserați o imagine de fundal.

2. Apoi apasa Pagina Aspect > Context, vezi captura de ecran:

3. În pop-out Inserați imagini fereastra, vă rugăm să alegeți o imagine de pe computer, site sau OneDrive după cum aveți nevoie, vedeți captura de ecran:

4. Acum, imaginea a fost inserată în foaia de lucru ca fundal, după cum se arată în imaginea de mai jos:

Cu metoda de mai sus, nu puteți schimba transparenta imaginii de fundal inserate, deci, dacă culoarea imaginii de fundal este grea, nu vă va conveni să citiți datele foii de lucru. În această secțiune, voi vorbi despre cum să introduceți o imagine transparentă în spatele celulelor.

1. Clic Insera > Formeși selectați o formă de dreptunghi, vedeți captura de ecran:

2. Apoi, desenați o formă cât de mare aveți nevoie în foaia de lucru activă.

3. După desenarea formei, a Instrumente de desen fila este afișată în panglică, apoi faceți clic pe Format > Shape Outline > Nu schiță, vezi captura de ecran:

4. Și apoi, faceți clic dreapta pe formă și alegeți Format Formă din meniul contextual, vezi captura de ecran:

5. În extins Format Formă sub panoul Fill & Line , faceți următoarele operații:

• Sub Umple secțiune, selectați Imagine sau textură de umplere opțiune;
• Clic Insera butonul din Sursa de imagine, și alegeți o imagine pe care doriți să o inserați;
• Apoi, ajustați transparența imaginii la nevoile dvs. din Transparencsecțiunea y.
• 

6. Și apoi, veți vedea că forma plină cu imagini arată ca o imagine de fundal, așa cum este prezentată mai sus.

notițe: După introducerea acestui tip de imagine de fundal, nu vi se va permite să introduceți niciun text în intervalul de imagini.

Ambele metode de mai sus au propriile lor limitări, prima metodă nu poate modifica transparența imaginii, a doua metodă nu permite introducerea textului în celulele din zona imaginii. Pentru a rezolva aceste probleme, Kutools pentru Excel'S Introduceți filigran caracteristica vă poate face o favoare.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Clic Kutools > Insera > Introduceți filigran, vezi captura de ecran:

2. În pop-out Introduceți filigran fereastră de dialog, selectați Imagine filigran, apoi faceți clic pe Selectați Imagine pentru a alege o imagine pe care doriți să o inserați, apoi specificați scala imaginii și bifați opțiunea Washout, vedeți captura de ecran:

3. Apoi apasa Ok butonul, imaginea a fost inserată în foaia de lucru ca imagine de fundal.

În Excel, puteți utiliza fișierul Copiați ca imagine funcție de copiere și inserare a unei game de celule ca imagine.

1. Selectați gama de celule pe care doriți să le copiați și să le inserați ca imagine.

2. Apoi apasa Acasă > Copiați > Copiați ca imagine, vezi captura de ecran:

3. În pop-out Copiați imaginea , selectați Imagine de la Format secțiune, vezi captura de ecran:

4. Apoi apasa OK butonul, acum, trebuie doar să apăsați Ctrl + V pentru a lipi imaginea oriunde în registrul de lucru.

În Excel, există un Camera instrument care vă poate ajuta să faceți o fotografie pentru datele selectate și apoi să o lipiți ca imagine. Când datele originale se modifică, imaginea copiată va fi modificată dinamic.

În primul rând, ar trebui să afișați Camera pe panglică, apoi aplicați-o.

1. Clic Personalizați bara de instrumente cu acces rapid pictogramă, apoi faceți clic pe Mai multe comenzi opțiune, vezi captura de ecran:

2. În deschise Opțiuni Excel caseta de dialog, vă rugăm să efectuați următoarele operații:

• Selectați Toate comenzile de la Alegeți comenzi de la scapă jos;
• Apoi, derulați pentru a selecta Camera din caseta listă;
• Apoi, faceți clic Adăuga pentru a adăuga acest instrument la Personalizați bara de instrumente cu acces rapid;
• În cele din urmă, faceți clic pe OK pentru a închide această casetă de dialog.
• 

3. Si Camera instrumentul a fost afișat pe panglică, consultați captura de ecran:

4. Apoi, selectați gama de celule pe care doriți o imagine.

5. Apoi, faceți clic pe Camera instrument, apoi accesați foaia de lucru și faceți clic oriunde, intervalul de date va fi inserat ca imagine așa cum este prezentat mai jos:

Dacă aveţi Kutools pentru Excel, Cu său Biblioteca de resurse caracteristică, puteți salva datele selectate în Biblioteca de resurse, apoi folosiți-l ca imagine sau text pentru viitor după cum doriți.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Selectați intervalul de date pe care doriți să îl inserați ca imagine.

2. Apoi apasa Kutools > Navigare, vezi captura de ecran:

3. În extins Navigare fereastră, faceți clic pe Biblioteca de resurse pictogramă, apoi faceți clic pe Adăugați conținutul selectat în Biblioteca de resurse pictogramă, vezi captura de ecran:

4. În Intrare nouă bibliotecă de resurse caseta de dialog, specificați un nume pentru acest element, apoi selectați un grup la care doriți să adăugați. Vedeți captura de ecran:

5. Apoi apasa Adăuga pentru a-l adăuga Biblioteca de resurse panou. Dacă doriți să inserați acest interval ca imagine, trebuie doar să faceți clic pe o celulă pentru a localiza imaginea, apoi să găsiți elementul salvat din Biblioteca de resurse și faceți clic pe Introduceți ca > Imagine (EMF) din lista derulantă a elementului. Și intervalul de date va fi inserat în foaie ca imagine, consultați capturi de ecran:

În mod normal, în Excel, puteți crea un interval denumit dinamic și apoi puteți utiliza imaginea legată pentru rezolvarea acestei sarcini în Excel.

1. În primul rând, ar trebui să creați două coloane care să conțină numele produselor și imaginile relative, a se vedea captura de ecran:

2. Apoi, vă rugăm să creați o listă derulantă pentru valorile celulei. Faceți clic pe o celulă pentru a afișa lista derulantă, apoi faceți clic pe Date > Data validarii > Data validarii, vezi captura de ecran:

3. În pop-out Data validarii caseta de dialog, sub setări cont fila, alegeți Listă de la Permite derulant, apoi selectați celulele pe care doriți să le creați lista derulantă din Sursă casetă text, vezi captura de ecran:

4. Clic OKși a fost creată lista derulantă cu valorile celulei, selectați un element din lista derulantă, vedeți captura de ecran:

5. Apoi apasa Formule > Definiți numele, vezi captura de ecran:

6. În Nume nou caseta de dialog, vă rugăm să efectuați următoarele operații:

• Introduceți un nume numit myimage în Nume si Prenume casetă de text;
• Apoi copiați și lipiți această formulă: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) în caseta Se referă la text.

notițe: În formula de mai sus:

• Foaie 11! $ A $ 2: $ B $ 6: este foaia de lucru și intervalul care conține valorile și imaginile pe care doriți să le utilizați;
• Foaie11! $ E $ 2: este celula din foaia de lucru în care ați creat lista derulantă;
• Foaie11! $ A $ 2: $ A $ 6: este lista de celule pe care ați creat lista derulantă bazată pe;
• Numărul variabil 2 este numărul coloanei care conține imaginile. Dacă imaginile dvs. se află în coloana C, ar trebui să introduceți 3.

7. Apoi, faceți clic OK buton, apoi vă rugăm să copiați și să lipiți imaginea corespunzătoare pe baza valorii celulei din E2 din intervalul original în celula F2, a se vedea captura de ecran:

8. Apoi, selectați imaginea din celula F2, apoi introduceți această formulă = imaginea mea (imaginea mea este numele intervalului pe care l-ați creat la pasul 6) în bara de formule, consultați captura de ecran:

9. După introducerea formulei, apăsați Intrați , iar acum, când alegeți un element din lista derulantă, imaginea relativă a acestuia va fi afișată imediat. Vedeți captura de ecran:

Metoda de mai sus poate fi dificilă pentru majoritatea dintre noi, aici, voi introduce o caracteristică utilă - Listă derulantă imagine of Kutools pentru Excel, cu acest instrument util, puteți crea mai multe liste derulante cu imaginile lor relative cu doar câteva clicuri.

După instalare Kutools pentru Excel, vă rugăm să parcurgeți pașii următori:

1. În primul rând, ar trebui să creați două coloane care să conțină numele produselor și imaginile relative din foaia dvs. de lucru.

2. Apoi, faceți clic Kutools > Lista verticală > Listă derulantă imagine, vezi captura de ecran:

3. În Listă derulantă imagine casetă de dialog, dacă ați creat coloanele valorilor și imaginilor celulei, ignorați pasul 1, apoi selectați datele originale și intervalul de imagine și intervalul de ieșire, consultați captura de ecran:

4. Apoi, faceți clic Ok butonul, listele derulante cu imagini au fost create în celulele selectate, iar la selectarea unui element din celula derulantă, imaginea corespunzătoare a acestuia va fi afișată simultan, a se vedea mai jos demo:

În mod normal, puteți utiliza Salvare ca pentru a salva toate imaginile din registrul de lucru, procedați astfel:

1. Clic Fișier > Salvare ca, În Salvare ca fereastra, specificați un folder pentru a pune fișierele exportate, apoi alegeți Pagina web (*. Htm; *. Html) de la Salvează ca tastați lista derulantă, vedeți captura de ecran:

2. Apoi faceți clic pe Economisiți buton, accesați folderul specific, veți vedea două fișiere, unul este fișierul în format HTML și altul este un folder care conține imagini, diagrame sau alte obiecte din registrul de lucru. Vedeți captura de ecran:

3. Apoi, puteți trage doar imaginile într-un alt folder, după cum aveți nevoie.

notițe: Folosind acest lucru Salvare ca caracteristică, veți obține fiecare imagine de două ori, una este mai mică, alta este mai mare, astfel încât să puteți salva imaginile cu rezoluție mai mare după cum aveți nevoie.

Pentru a salva toate imaginile din fișierul Excel, puteți schimba și extensia de fișier în RAR. Vă rugăm să faceți acest lucru:

1. Schimbați extensia de fișier XLSX la rar după cum se arată în imaginea de mai jos:

2. Apoi, dezarhivați fișierul și veți vedea 3 dosare și 1 fișier în dosar, consultați captura de ecran:

3. Apoi, faceți clic pentru a deschide xl , apoi deschideți fișierul mass-media folder, veți vedea că toate imaginile sunt stocate aici fără duplicate, vedeți captura de ecran:

Dacă aveţi Kutools pentru Excel, Cu său Exportați grafică caracteristică, puteți exporta rapid anumite obiecte specifice, cum ar fi imagini, diagrame, forme în format de imagine după cum aveți nevoie.

După instalare Kutools pentru Excel, vă rugăm să parcurgeți pașii următori:

1. Clic Kutools Plus > Import Export > Exportați grafică, vezi captura de ecran:

2. În Exportați grafică caseta de dialog, efectuați următoarele operații:

• Alege poze opțiune de la Tipuri de lista verticală;
• Specificați un folder pentru a salva imaginile exportatoare;
• Apoi faceți clic pe lista derulantă din Exportați formatul pentru a alege un format pentru fotografiile dvs.
• 

3. În cele din urmă, faceți clic pe Ok buton, toate imaginile din registrul de lucru curent au fost salvate în folderul pe care l-ați specificat, consultați captura de ecran:

Pentru a șterge imaginile din foaia de lucru curentă, codul VBA de mai jos vă poate ajuta, vă rugăm să faceți acest lucru:

1. Activați foaia de lucru care conține imaginile pe care doriți să le ștergeți.

2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module Fereastră.

Cod VBA: Ștergeți toate imaginile din foaia de lucru curentă

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

4. Apoi, apăsați F5 pentru a rula acest cod și toate imaginile din foaia de lucru activă sunt șterse simultan.

Dacă trebuie să ștergeți imaginile doar dintr-o gamă de celule, iată un alt cod simplu care vă poate ajuta.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module Fereastră.

Cod VBA: ștergeți imaginile dintr-o gamă de celule

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

notițe: În codul de mai sus, B4: C6 este intervalul din care doriți să ștergeți imaginile.

3. Apoi, apăsați F5 tasta pentru a rula acest cod, iar imaginile din intervalul selectat vor fi șterse simultan, consultați capturi de ecran:

Dacă aveţi Kutools pentru Excel, Cu său Ștergeți ilustrații și obiecte caracteristică, puteți șterge rapid imaginile dintr-o foaie de lucru, unele foi selectate sau întregul registru de lucru.

După instalare Kutools pentru Excel, vă rugăm să parcurgeți pașii următori:

1. Clic Kutools > Șterge > Ștergeți ilustrații și obiecte, vezi captura de ecran:

2. În deschise Ștergeți ilustrații și obiecte casetă de dialog, bifați poze de la Șterge , apoi specificați scopul de pe care doriți să ștergeți imaginile din sub uită-te în secțiune, vezi captura de ecran:

3. Apoi apasa Ok butonul și toate imaginile vor fi șterse din foaia de lucru, foile de lucru selectate sau întregul registru de lucru așa cum ați specificat.