За повечето от нас е лесно да вмъкнем изображения, съхранени на компютъра, в работния лист. Моля, направете следното:

1. В работния лист щракнете върху мястото, където искате да вмъкнете изображения.

2, След това кликнете върху Поставете > Снимки > Това устройство, вижте екранна снимка:

3. В изскочилото Вмъкване на снимка прозорец, отворете папката, която съдържа снимките, и след това задръжте Ctrl клавиш, за да изберете изображенията, които искате да вмъкнете, вижте екранната снимка:

4, След това кликнете върху Поставете избраните снимки са вмъкнати в листа. Сега можете да коригирате или преоразмерите изображенията до клетките, от които се нуждаете, вижте екранната снимка:

Ако имате Excel 2013 или по-нови версии, можете да вмъкнете изображенията от уеб или One Drive, моля, направете следното:

1. В работния лист щракнете върху мястото, където искате да вмъкнете изображения.

2, След това кликнете върху Поставете > Снимки > Онлайн снимки, вижте екранна снимка:

3. Ще се покаже следният прозорец. В Онлайн снимки раздел, моля, въведете това, което търсите, в текстовото поле и след това натиснете Въведете ключ. Всички съответстващи снимки се търсят наведнъж, вижте екранната снимка:

4. След това изберете желаните снимки и след това щракнете Поставете бутон. След като поставите снимките, моля, преоразмерете или коригирайте снимките до желаната позиция.

Следният VBA код може да ви помогне да вмъкнете множество изображения в клетки въз основа на размера на клетката. Моля, направете следното:

1. Регулирайте размера на клетката, в която искате да поставите картината, и след това изберете клетките.

2. След това задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

3. Щракнете Поставете > Модулии поставете следния макрос в Модули прозорец.

VBA код: Вмъкване на множество картини въз основа на размера на клетката

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. След това натиснете F5 ключ за изпълнение на този код. В отворено прозорец, моля, изберете папката, която съдържа снимките, след това изберете изображенията, които искате да вмъкнете, и след това щракнете отворено и всички избрани картини са вмъкнати във вашия избор въз основа на размера на клетката. Вижте екранна снимка:

Ако не сте запознати с кода на VBA, тук можете да използвате функция за захранване – Импортиране на снимки of Kutools за Excel. С тази полезна функция можете бързо и лесно да импортирате няколко изображения в клетките.

След инсталиране Kutools за Excel, моля, изпълнете следните стъпки:

1. Щракнете Kutools плюс > Внос износ > Импортиране на снимки, вижте екранна снимка:

2. В изскочилото Импортиране на снимки диалогов прозорец, моля, направете следните операции:

• Посочете реда на снимките от падащия списък Ред на импортиране, можете да изберете Попълнете вертикално клетка след клетка or Попълнете хоризонтално клетка след клетка;
• След това кликнете върху Добави бутон, за да изберете файловете с изображения или папката, в които да добавите снимките Списък със снимки;
• Щракнете върху Импортиран размер бутон, в Импортиране на размера на картината диалогов прозорец, изберете Съответстващ размер на клетката опция.
• 

3. След като приключите с настройките, моля щракнете внос бутон, а сега още един Импортиране на снимки изскочи, посочете целевите клетки, в които ще импортирате картината, вижте екранната снимка:

4, След това кликнете върху OK всички избрани изображения са вмъкнати, за да съответстват на размера на конкретни клетки, както е показано на екранната снимка по-долу:

Следният VBA код може да ви помогне бързо да вмъкнете няколко изображения, съответстващи на техните имена, моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Insert> Модулии поставете следния макрос в Модули прозорец.

VBA код: Вмъкнете няколко снимки, съответстващи на техните имена

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

Забележка: В горния код можете да промените височината и ширината на изображението в рамките на скриптовете ".ShapeRange.Height = 60",".ShapeRange.Width = 60” за вашите нужди.

3. След това натиснете F5 за да стартирате този код и в отворения прозорец изберете папката, която съдържа изображенията, които искате да вмъкнете, вижте екранната снимка:

4. И след това щракнете OK бутон, изскача поле за подкана, моля, изберете клетките, които съдържат имената на изображенията, вижте екранната снимка:

5. Продължете да щракате OK и следва друго поле за подкана, моля, изберете клетките, които искате да изведете изображенията, вижте екранната снимка:

6. Най-накрая щракнете OKи снимките са вмъкнати в клетките въз основа на техните имена наведнъж, вижте екранната снимка:

Ако имате Kutools за Excel, Със своята Съвпадение на импортирани снимки можете бързо и лесно да вмъквате изображения въз основа на имената на изображенията.

След инсталиране Kutools за Excel, моля, направете следното:

1. Щракнете Kutools плюс > Внос износ > Съвпадение на импортирани снимки, вижте екранна снимка:

2. В изскочилото Съвпадение на импортирана снимка диалогов прозорец, моля, извършете следните операции:

• Посочете реда на снимките от падащия списък Ред на импортиране, можете да изберете Попълнете вертикално клетка след клетка or Попълнете хоризонтално клетка след клетка;
• След това от Диапазон на съвпадение текстово поле, изберете имената на картините, въз основа на които искате да вмъкнете изображения;
• И след това щракнете Добави бутон, за да изберете файловете с изображения или папката, в които да добавите снимките Списък със снимки;
• След това трябва да посочите размера на картината. Моля щракнете Импортиран размер бутон, в Импортиране на размера на картината в диалоговия прозорец изберете един размер на картината, който ви е необходим.
• 

3. След като приключите с настройките, моля щракнете внос изберете една клетка или списък с клетки, за да намерите изображенията от изскачащия прозорец Съвпадение на импортирани снимки диалогов прозорец, вижте екранна снимка:

4, След това кликнете върху OKи всички снимки, чиито имена съответстват на стойностите на клетката, са вмъкнати, вижте екранната снимка:

Моля, приложете следния VBA код, за да вмъкнете изображения въз основа на списък с URL адреси.

1. Първо коригирайте размера на съседната клетка, в която искате да намерите изображенията.

2. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

3. Щракнете Поставете > Модулии поставете следния макрос в Модули прозорец.

VBA код: Вмъкване на картини от списък с 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

бележки: В горния код, A2: A5 е диапазонът от клетки, който съдържа URL адресите, които искате да извлечете изображенията, трябва да промените препратките към клетки според вашите нужди.

4. След това натиснете F5 за стартиране на този код, съответстващите картини ще бъдат извлечени от URL адресите към съседната колона и поставени в центъра на клетките, вижте екранната снимка:

Kutools за Excel има невероятна функция - Вмъкване на снимки от пътя (URL). С тази помощна програма съответните снимки ще бъдат извлечени от URL адресите бързо и лесно.

След инсталиране Kutools за Excel, моля, изпълнете следните стъпки:

1. Щракнете Kutools > Поставете > Вмъкване на снимки от път (URL), вижте екранна снимка:

2. В изскочилото Вмъкване на снимки от път (URL) диалогов прозорец, моля, задайте следните операции:

• Изберете списъка с URL клетки и диапазон от клетки, където искате да поставите изображенията;
• Посочете размера на изображенията, както ви е необходим от Размер на снимката раздел.
• 

3. И след това щракнете Ok и всички снимки са извлечени от URL адресите, вижте екранна снимка:

Можете да приложите следния VBA код за вмъкване на изображения въз основа на пътищата на файла с изображения.

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии след това поставете следния код в Модули Window.

VBA код: Вмъкване на изображения от набор от файлови пътища

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. След като въведете горния код, натиснете F5 ключ, за да изпълните този код, след което се появява поле за подкана, моля, изберете клетките на пътя на файла, вижте екранната снимка:

4, След това кликнете OK бутон, всички изображения въз основа на файловите пътища са показани в следващата колона, както е показано на следната екранна снимка:

Kutools за ExcelЕ Вмъкване на снимки от път (URL) функцията също може да ви помогне да покажете относителните изображения от пътя на файла.

След инсталиране Kutools за Excel, моля, направете следното:

1. Щракнете Kutools > Поставете > Вмъкване на снимки от път (URL), в изскачащия диалогов прозорец, моля, посочете диапазона на пътя на файла, диапазона за извеждане на изображения, размера на изображението според нуждите ви, вижте екранните снимки:

2. След като зададете опциите, щракнете Ok изображенията ще бъдат вмъкнати в избраните клетки наведнъж, вижте екранната снимка:

Съвети: Понякога може да откриете, че изображението се припокрива с областта с данни на работния лист, както е показано на екранната снимка по-долу. Това се случва, защото изображението е твърде голямо и няма да бъде преоразмерено, за да се побере автоматично в полето на раздела за горен или долен колонтитул.

За да разрешите този проблем, просто трябва да преоразмерите изображението в горния или долния колонтитул, моля, изпълнете следните стъпки:

1. Щракнете в горния или долния колонтитул, където се намира изображението, и след това щракнете Форматиране на снимка под Дизайн раздел, вижте екранна снимка:

2. В Форматиране на снимка диалогов прозорец, под Размер раздел, моля, коригирайте размера на изображението, за да пасне на полето за раздел за горен или долен колонтитул, вижте екранната снимка:

3. И след това щракнете OK, ще получите желания резултат.

1. Отворете работния лист, където искате да вмъкнете фоново изображение.

2, След това кликнете върху Page Layout > История, вижте екранна снимка:

3. В изскочилото Вмъкване на снимки прозорец, моля, изберете една снимка от вашия компютър, уебсайт или OneDrive, както ви е необходимо, вижте екранната снимка:

4. Сега изображението е вмъкнато в работния лист като фон, както е показано на екранната снимка по-долу:

С горния метод не можете да промените прозрачността на вмъкнатото фоново изображение, така че ако цветът на фоновото изображение е тежък, няма да ви е удобно да четете данните от работния лист. В този раздел ще говоря за това как да вмъкнете прозрачна картина зад клетките.

1. Щракнете Поставете > Фигурии изберете правоъгълна форма, вижте екранната снимка:

2. След това нарисувайте фигура толкова голяма, колкото ви е необходима в активния работен лист.

3. След начертаване на формата, a Инструменти за рисуване се показва в лентата и след това щракнете върху формат > Начертайте формата > Без очертание, вижте екранна снимка:

4. След това щракнете с десния бутон върху формата и изберете Формат на формата от контекстното меню вижте екранната снимка:

5. В разширения Формат на формата панел, под Запълване и линия раздел, извършете следните операции:

• Под Напълнете раздел, изберете Запълване на картина или текстура опция;
• Кликнете Поставете бутон от Източник на картинатаи изберете една снимка, която искате да вмъкнете;
• След това регулирайте прозрачността на картината според вашите нужди от Transparency раздел.
• 

6. И тогава ще видите, че формата, пълна със снимки, изглежда като фоново изображение, както е показано на екранната снимка по-горе.

Забележка: След като вмъкнете този тип фоново изображение, няма да ви бъде позволено да въвеждате никакъв текст в диапазона на картината.

И двата метода по-горе имат свои собствени ограничения, първият метод не може да промени прозрачността на изображението, вторият метод не позволява въвеждане на текст в клетките в областта на картината. За да разрешите тези проблеми, Kutools за ExcelЕ Поставете воден знак функция може да ви направи услуга.

След инсталиране Kutools за Excel, моля, направете следното:

1. Щракнете Kutools > Поставете > Поставете воден знак, вижте екранна снимка:

2. В изскочилото Поставете воден знак изберете диалоговия прозорец Картина воден знак, А след това върху Изберете Картина за да изберете едно изображение, което искате да вмъкнете, след което задайте мащаба на изображението и проверете опцията Измиване, вижте екранната снимка:

3, След това кликнете върху Ok бутон, картината е вмъкната в работния лист като фоново изображение.

В Excel можете да използвате Копиране като картина функция за копиране и вмъкване на диапазон от клетки като изображение.

1. Изберете диапазона от клетки, които искате да копирате и вмъкнете като изображение.

2, След това кликнете върху Начало > Копирайте > Копиране като картина, вижте екранна снимка:

3. В изскочилото Копиране на снимка диалогов прозорец, изберете Снимка от формат раздел, вижте екранна снимка:

4, След това кликнете върху OK бутон, сега просто трябва да натиснете Ctrl + V за да поставите изображението където и да е в работната книга.

В Excel има a Камера инструмент, който може да ви помогне да направите снимка за избраните от вас данни и след това да я поставите като изображение. Когато оригиналните данни се променят, копираното изображение ще се променя динамично.

Първо, трябва да покажете Камера върху лентата и след това я приложете.

1. Щракнете Персонализирайте лентата с инструменти за бърз достъп икона и след това щракнете Още команди опция, вижте екранна снимка:

2. В отвореното Опции на Excel диалогов прозорец, моля, извършете следните операции:

• Изберете Всички команди от Изберете команди от падане надолу;
• След това превъртете, за да изберете Камера от списъчното поле;
• И след това щракнете Добави бутон, за да добавите този инструмент към Персонализирайте лентата с инструменти за бърз достъп;
• Най-накрая щракнете OK за да затворите този диалогов прозорец.
• 

3, И Камера инструментът е показан на лентата, вижте екранната снимка:

4. След това изберете диапазона от клетки, за които искате изображение.

5. И след това щракнете върху Камера инструмент, след това отидете на работния лист и щракнете където и да е, диапазонът от данни ще бъде вмъкнат като изображение, както е показано в демонстрацията по-долу:

Ако имате Kutools за Excel, Със своята Библиотека с ресурси можете да запишете избраните данни в Библиотека с ресурсии след това го използвайте като изображение или текст за в бъдеще, както желаете.

След инсталиране Kutools за Excel, моля, направете следното:

1. Изберете диапазона от данни, който искате да вмъкнете като изображение.

2, След това кликнете върху Kutools > навигация, вижте екранна снимка:

3. В разширения навигация панел, щракнете върху Библиотека с ресурси икона и след това щракнете Добавяне на избрано съдържание към библиотеката с ресурси икона, вижте екранна снимка:

4. В Нов запис в библиотеката с ресурси диалогов прозорец, задайте име за този елемент и след това изберете група, към която искате да добавите. Вижте екранна снимка:

5, След това кликнете върху Добави бутон, за да го добавите Библиотека с ресурси прозорец. Ако искате да вмъкнете този диапазон като картина, просто трябва да щракнете върху клетка, за да намерите картината, и след това да намерите запазения елемент от Библиотека с ресурси панел и щракнете върху Вмъкнете като > Картина (EMF) от падащия списък на елемента. И диапазонът от данни ще бъде вмъкнат в листа като изображение, вижте екранните снимки:

Обикновено в Excel можете да създадете динамичен наименуван диапазон и след това да използвате свързаната картина за решаване на тази задача в Excel.

1. Първо, трябва да създадете две колони, които съдържат имената на продуктите и относителните изображения, вижте екранната снимка:

2. След това, моля, създайте падащ списък за стойностите на клетките. Щракнете върху клетка, за да изведете падащия списък, след което щракнете Дата > Потвърждаване на данните > Потвърждаване на данните, вижте екранна снимка:

3. В изскочилото Потвърждаване на данните диалогов прозорец, под Настройки раздела, изберете списък от Позволете падащо меню и след това изберете клетките, които искате да създадете падащия списък от източник текстово поле, вижте екранна снимка:

4. Щракнете OKи падащият списък със стойностите на клетките е създаден, изберете един елемент от падащия списък, вижте екранната снимка:

5, След това кликнете върху формули > Определете име, вижте екранна снимка:

6. В Ново име диалогов прозорец, моля, извършете следните операции:

• Въведете име, наречено myimage в Име текстово поле;
• След това копирайте и поставете тази формула: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) в текстовото поле Отнася се за.

Забележка: В горната формула:

• Лист11!$A$2:$B$6: е работният лист и диапазонът, който съдържа стойностите и картините, които искате да използвате;
• Лист11!$E$2: е клетката в работния лист, където сте създали падащия списък;
• Лист11!$A$2:$A$6: е списъкът с клетки, въз основа на който сте създаден падащият списък;
• Променливото число 2 е номерът на колоната, съдържащ изображенията. Ако вашите изображения са в колона C, трябва да въведете 3.

7. И след това щракнете OK след това, моля, копирайте и поставете съответната картина въз основа на стойността на клетката в E2 от оригиналния диапазон в клетка F2, вижте екранната снимка:

8. След това изберете картината в клетка F2 и след това въведете тази формула = моето изображение (моето изображение е името на диапазона, който сте създали в стъпка 6) в лентата с формули, вижте екранната снимка:

9. След като въведете формулата, натиснете Въведете и сега, когато изберете един елемент от падащия списък, неговата относителна картина ще се покаже веднага. Вижте екранна снимка:

Горният метод може да е труден за повечето от нас, тук ще представя една удобна функция – Падащ списък със снимки of Kutools за Excel, с този полезен инструмент можете да създадете множество падащи списъци с техните относителни изображения само с няколко кликвания.

След инсталиране Kutools за Excel, моля, изпълнете следните стъпки:

1. Първо, трябва да създадете две колони, които съдържат имената на продуктите и съответните изображения във вашия работен лист.

2. И след това щракнете Kutools > Падащ списък > Падащ списък със снимки, вижте екранна снимка:

3. В Падащ списък със снимки диалоговия прозорец, ако сте създали колоните със стойности на клетки и изображения, моля, игнорирайте стъпка 1, след това изберете оригиналните данни и диапазон на изображението и диапазона на изхода, вижте екранната снимка:

4. И след това щракнете Ok падащите списъци с изображения са създадени в избраните клетки и когато изберете елемент от падащата клетка, съответната му снимка ще се покаже веднага, вижте демонстрацията по-долу:

Обикновено можете да използвате Save As функция за запазване на всички изображения от работната книга, моля, направете следното:

1. Щракнете досие > Save As, В Save As прозорец, посочете папка за поставяне на експортираните файлове и след това изберете Уеб страница (*.htm;*.html) от Запази като въведете падащ списък, вижте екранната снимка:

2, И после щракнете върху Save бутон, отидете до конкретната папка, ще видите два файла, единият е файл във формат HTML, а другият е папка, която съдържа снимките, диаграмите или други обекти от работната книга. Вижте екранна снимка:

3. След това можете да плъзнете само изображенията в друга папка, както ви е необходимо.

Забележка: Използвайки това Save As функция, ще получите всяка снимка два пъти, едната е по-малка, другата е по-голяма, така че можете да запазите изображенията с по-висока разделителна способност, колкото ви е необходимо.

За да запазите всички изображения от Excel файл, можете също да промените файловото разширение на RAR. Моля, направете следното:

1. Променете разширението на файла XLSX да се RAR както е показано на екранната снимка по-долу:

2. След това разархивирайте файла и ще видите 3 папки и 1 файл в папката, вижте екранната снимка:

3. След това щракнете, за да отворите xl и след това отворете среден папка, ще видите, че всички изображения се съхраняват тук без дубликати, вижте екранната снимка:

Ако имате Kutools за Excel, Със своята Експортиране на графики функция, можете бързо да експортирате някои специфични обекти, като картини, диаграми, фигури във формат на изображението, както ви е необходимо.

След инсталиране Kutools за Excel, моля, изпълнете следните стъпки:

1. Щракнете Kutools плюс > Внос износ > Експортиране на графики, вижте екранна снимка:

2. В Експортиране на графики диалогов прозорец, направете следните операции:

• Изберете Снимки опция от Видове падащ списък;
• Посочете папка за запазване на вашите експортирани снимки;
• След това щракнете върху падащия списък от Формат за експортиране за да изберете един формат за вашите снимки.
• 

3. Най-накрая щракнете Ok всички изображения в текущата работна книга са записани в указаната от вас папка, вижте екранна снимка:

За да изтриете снимките от текущия работен лист, кодът VBA по-долу може да ви помогне, моля, направете следното:

1. Активирайте работния лист, който съдържа изображенията, които искате да изтриете.

2. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

3. Щракнете Поставете > Модулии поставете следния макрос в Модули Window.

VBA код: Изтрийте всички снимки от текущия работен лист

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

4. След това натиснете F5 за да стартирате този код и всички снимки в активния работен лист се изтриват наведнъж.

Ако трябва да изтриете изображения само от диапазон от клетки, ето друг прост код, който може да ви помогне.

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния макрос в Модули Window.

VBA код: Изтрийте картините от диапазон от клетки

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

Забележка: В горния код, B4: C6 е диапазонът, от който искате да изтриете снимките.

3. След това натиснете F5 за стартиране на този код и снимките в избрания диапазон ще бъдат изтрити наведнъж, вижте екранните снимки:

Ако имате Kutools за Excel, Със своята Изтриване на илюстрации и обекти можете бързо да изтриете изображенията от работен лист, някои избрани листове или цяла работна книга.

След инсталиране Kutools за Excel, моля, изпълнете следните стъпки:

1. Щракнете Kutools > Изтрий > Изтриване на илюстрации и обекти, вижте екранна снимка:

2. В отвореното Изтриване на илюстрации и обекти диалогов прозорец, проверете Снимки от Изтрий и след това посочете обхвата, от който искате да изтриете снимките погледни вътре раздел, вижте екранна снимка:

3, След това кликнете Ok и всички снимки ще бъдат изтрити от работния лист, избраните работни листове или цялата работна книга, както сте посочили.