Більшості з нас легко вставити на робочий аркуш зображення, що зберігаються на комп’ютері. Будь ласка, зробіть так:

1. На аркуші клацніть, куди потрібно вставити зображення.

2. Потім натисніть кнопку Insert > фотографії > Цей пристрій, див. скріншот:

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

4. Потім натисніть кнопку Insert , вибрані фотографії були вставлені на аркуш. Тепер ви можете налаштувати або змінити розмір зображень до потрібних комірок, див. Знімок екрана:

Якщо у вас Excel 2013 або пізнішої версії, ви можете вставити зображення з Інтернету або з одного диска, зробіть так:

1. На аркуші клацніть, куди потрібно вставити зображення.

2. Потім натисніть кнопку Insert > фотографії > Інтернет-картинки, див. скріншот:

3. З'явиться наступне вікно. В Інтернет-картинки Введіть у текстове поле те, що шукаєте, а потім натисніть Що натомість? Створіть віртуальну версію себе у ключ. Всі відповідні картинки шукаються одночасно, див. Скріншот:

4. Потім виберіть потрібні фотографії та натисніть Insert кнопку. Після вставки зображень, будь-ласка, змініть розмір або відрегулюйте зображення до потрібного вам місця.

Наступний код VBA може допомогти вам вставити кілька зображень у комірки залежно від розміру комірки. Будь ласка, зробіть так:

1. Налаштуйте розмір комірки, в яку ви хочете нанести малюнок, а потім виділіть комірки.

2. Потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. Клацання Insert > Модуліта вставте наступний макрос у Модулі вікна.

Код 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 Plus > Імпорт-експорт > Імпорт зображень, див. скріншот:

2. В вискочив Імпорт зображень діалоговому вікні, виконайте такі операції:

• Вкажіть порядок зображення із випадаючого списку Імпорт замовлення, який ви можете вибрати Заповнюйте вертикально клітинку за коміркою or Заповнюйте горизонтально клітинку за коміркою;
• Потім натисніть кнопку додавати кнопку, щоб вибрати файли зображень або папку для додавання зображень до Список зображень;
• Натисніть Розмір імпорту кнопку в Імпортувати розмір зображення діалоговому вікні, виберіть Відповідний розмір комірки варіант.
• 

3. Закінчивши налаштування, натисніть Імпортувати кнопка, а тепер ще одна Імпорт зображень вискакує, вкажіть цільові комірки, до яких ви імпортуєте зображення, див.

4. Потім натисніть кнопку OK кнопку, усі вибрані зображення були вставлені відповідно до розміру певних комірок, як показано на знімку екрана нижче:

Наступний код VBA може допомогти вам швидко вставити кілька зображень, що відповідають їхнім іменам. Будь ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання реалізуватиt> Модуліта вставте наступний макрос у Модулі вікна.

Код 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 Plus > Імпорт-експорт > Імпорт зображень відповідності, див. скріншот:

2. В вискочив Зображення імпорту відповідності діалоговому вікні, виконайте такі дії:

• Вкажіть порядок зображення із випадаючого списку Імпорт замовлення, який ви можете вибрати Заповнюйте вертикально клітинку за коміркою or Заповнюйте горизонтально клітинку за коміркою;
• Потім з Діапазон відповідності текстове поле, виберіть назви зображень, на основі яких ви хочете вставити зображення;
• А потім натисніть додавати кнопку, щоб вибрати файли зображень або папку для додавання зображень до Список зображень;
• Далі слід вказати розмір картинки. Клацніть Розмір імпорту кнопку в Імпортувати розмір зображення діалоговому вікні, виберіть потрібний розмір одного зображення.
• 

3. Закінчивши налаштування, натисніть Імпортувати Кнопка, виберіть одну комірку або список комірок, щоб знайти зображення зі спливаючого вікна Імпорт зображень відповідності діалогове вікно, див. знімок екрана:

4. Потім натисніть кнопку OK, а всі картинки, до яких були вставлені імена, що відповідають значенням комірок, див. скріншот:

Будь ласка, застосуйте наступний код VBA, щоб вставити зображення на основі списку URL-адрес.

1. Спочатку відрегулюйте розмір сусідньої комірки, на якому ви хочете знайти зображення.

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. Клацання Insert > Модуліта вставте наступний макрос у Модулі вікна.

Код 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. Клацання Кутулс > Insert > Вставити зображення із шляху (URL), див. скріншот:

2. В вискочив Вставити зображення із шляху (URL) у діалоговому вікні встановіть такі операції:

• Виберіть список комірок URL-адреси та діапазон комірок, куди ви хочете помістити зображення;
• Вкажіть потрібний розмір зображень із Розмір зображення .
• 

3. А потім натисніть Ok і всі зображення були витягнуті з URL-адрес, див. знімок екрана:

Ви можете застосувати такий код VBA для вставки зображень на основі шляхів до файлів зображень.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модулі, а потім вставте наступний код у Модулі Вікно

Код 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. Клацання Кутулс > Insert > Вставити зображення із шляху (URL), у спливаючому діалоговому вікні вкажіть діапазон шляху до файлу, діапазон для виведення зображень, розмір зображення, як вам потрібно, див. скріншоти:

2. Після встановлення параметрів натисніть Ok кнопка, зображення будуть вставлені відразу у вибрані комірки, див. знімок екрана:

Tips : Іноді ви можете виявити, що зображення накладається на область даних робочого аркуша, як показано на знімку екрана нижче. Це відбувається тому, що зображення завелике, і його розмір не буде змінено, щоб автоматично поміститися до поля розділу верхнього або нижнього колонтитула.

Щоб вирішити цю проблему, вам просто потрібно змінити розмір зображення у верхньому або нижньому колонтитулі, виконайте такі дії:

1. Клацніть у верхньому або нижньому колонтитулі, де знаходиться зображення, а потім натисніть Формат зображення під дизайн вкладку, див. знімок екрана:

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

3. А потім натисніть OK, ви отримаєте результат, як вам потрібно.

1. Відкрийте аркуш, куди потрібно вставити фонове зображення.

2. Потім натисніть кнопку макет сторінки > фон, див. скріншот:

3. В вискочив Вставити картинки вікно, будь-ласка, виберіть одне зображення зі свого комп’ютера, веб-сайту або OneDrive, як вам потрібно, див. знімок екрана:

4. Тепер зображення було вставлено на аркуш як тло, як показано на знімку екрана нижче:

За допомогою вищезазначеного методу ви не можете змінити прозорість вставленого фонового зображення, тому, якщо колір фонового зображення насичений, вам буде не зручно читати дані робочого аркуша. У цьому розділі я розповім про те, як вставити прозорий малюнок за клітинками.

1. Клацання Insert > формиі виберіть форму прямокутника, див. знімок екрана:

2. Потім намалюйте фігуру, яка вам потрібна, на активному аркуші.

3. Після малювання фігури, a Інструменти малювання на стрічці, а потім натисніть сформований > Форма схеми > Немає схеми, див. скріншот:

4. А потім клацніть правою кнопкою миші фігуру та виберіть Формат форми у контекстному меню див. знімок екрана:

5. У розширеному Формат форми під панеллю Заливка та рядок , виконайте такі операції:

• Відповідно до Заповнювати розділ, виберіть Заливка малюнка або текстури варіант;
• Натисніть Insert з кнопки Джерело зображення, і виберіть одне зображення, яке потрібно вставити;
• Потім, відрегулюйте прозорість зображення відповідно до ваших потреб Транспаренцy розділ.
• 

6. І тоді ви побачите, що фігура, заповнена малюнками, виглядає як фонове зображення, як показано на скріншоті.

примітки: Після вставки фонового зображення цього типу заборонено вводити текст у межах діапазону зображення.

Обидва вищезазначені методи мають свої обмеження, перший метод не може змінити прозорість зображення, другий метод не дозволяє вводити текст у клітинки всередині області зображення. Щоб вирішити ці проблеми, Kutools для ExcelАвтора Вставте водяний знак функція може зробити вам послугу.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Клацання Кутулс > Insert > Вставте водяний знак, див. скріншот:

2. В вискочив Вставте водяний знак діалогове вікно, виберіть Зображення Водяний знак, А потім натисніть Виберіть Зображення кнопку, щоб вибрати одне зображення, яке ви хочете вставити, а потім вкажіть масштаб зображення та встановіть прапорець щодо миття, див. знімок екрана:

3. Потім натисніть кнопку Ok кнопку, зображення було вставлено на аркуш як фонове зображення.

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

1. Виберіть діапазон комірок, які потрібно скопіювати та вставити як зображення.

2. Потім натисніть кнопку Головна > Скопіювати > Копіювати як зображення, див. скріншот:

3. В вискочив Копіювати малюнок діалог, виберіть Картинка від сформований розділ, див. знімок екрана:

4. Потім натисніть кнопку OK тепер потрібно просто натиснути Ctrl + V щоб вставити зображення в будь-яке місце книги.

В Excel існує камера інструмент, який може допомогти вам зробити фотографію для вибраних даних, а потім вставити її як зображення. Коли вихідні дані змінюються, скопійоване зображення буде змінюватися динамічно.

Спочатку слід відобразити камера на стрічку, а потім нанесіть її.

1. Клацання Налаштування панелі швидкого доступу , а потім клацніть Більше команд варіант, див. скріншот:

2. У відкритому Параметри Excel діалоговому вікні, виконайте такі дії:

• Select Всі команди від Виберіть команди з випадає;
• Потім прокрутіть, щоб вибрати камера зі списку;
• А потім натисніть додавати , щоб додати цей інструмент до Налаштування панелі швидкого доступу;
• Нарешті клацніть OK щоб закрити це діалогове вікно.
• 

3. І це камера інструмент відображався на стрічці, див. знімок екрана:

4. Потім виберіть діапазон комірок, для яких потрібно зображення.

5. А потім натисніть камера , перейдіть на робочий аркуш і клацніть де завгодно, діапазон даних буде вставлений як зображення, як показано нижче:

Якщо у вас є Kutools для Excel, З його Бібліотека ресурсів Ви можете зберегти вибрані дані у Бібліотека ресурсів, а потім використовуйте його як зображення або текст для майбутнього, як вам подобається.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Виберіть діапазон даних, який потрібно вставити як зображення.

2. Потім натисніть кнопку Кутулс > навігація, див. скріншот:

3. У розширеному навігація панель, клацніть Бібліотека ресурсів , а потім клацніть Додайте вибраний вміст до бібліотеки ресурсів , див. знімок екрана:

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

5. Потім натисніть кнопку додавати , щоб додати його Бібліотека ресурсів панелі. Якщо ви хочете вставити цей діапазон як зображення, просто натисніть клітинку, щоб знайти зображення, а потім знайдіть збережений елемент у Бібліотека ресурсів панелі та натисніть Вставте як > Зображення (EMF) зі спадного списку елемента. І діапазон даних буде вставлений в аркуш як зображення, див. Скріншоти:

Зазвичай в Excel можна створити динамічний іменований діапазон, а потім використовувати пов'язане зображення для вирішення цього завдання в Excel.

1. По-перше, вам слід створити два стовпці, що містять назви товарів та відносні зображення, див. Знімок екрана:

2. Тоді, будь ласка, створіть випадаючий список для значень комірок. Клацніть клітинку, щоб вивести випадаючий список, а потім клацніть дані > Перевірка достовірності даних > Перевірка достовірності даних, див. скріншот:

3. В вискочив Перевірка достовірності даних у діалоговому вікні під Налаштування вкладку, виберіть список від дозволяти , а потім виділіть комірки, які потрібно створити зі спадного списку, з Source текстове поле, див. знімок екрана:

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. А потім натисніть Кутулс > Випадаючий список > Розкривний список зображень, див. скріншот:

3, в Розкривний список зображень діалоговому вікні, якщо ви створили стовпці значень комірок та зображень, проігноруйте крок1, потім виберіть вихідні дані та діапазон зображень та діапазон виводу, див. знімок екрана:

4. А потім натисніть Ok , випадаючі списки із зображеннями були створені у вибраних комірках, і при виборі елемента з випадаючої комірки одразу відображатиметься відповідне зображення, див. нижче демонстрацію:

Зазвичай ви можете використовувати Зберегти як функція, щоб зберегти всі зображення з книги, виконайте наступне:

1. Клацання філе > Зберегти як, В Зберегти як у вікні, вкажіть папку, куди слід експортувати файли, а потім виберіть Веб-сторінка (*. Htm; *. Html) від Зберегти як тип випадаючого списку, див. знімок екрана:

2. А потім клацніть зберегти , перейдіть до певної папки, ви побачите два файли, один - це файл формату HTML, а інший - папка, яка містить картинки, діаграми та інші об'єкти з книги. Дивіться знімок екрана:

3. Тоді ви можете перетягувати лише зображення в іншу папку, скільки вам потрібно.

примітки: За допомогою цього Зберегти як Ви отримаєте кожне зображення двічі, одне менше, інше більше, так що ви можете зберігати зображення з більшою роздільною здатністю, скільки вам потрібно.

Щоб зберегти всі зображення з файлу Excel, ви також можете змінити розширення файлу на RAR. Будь ласка, зробіть так:

1. Змініть розширення файлу XLSX до ЕОР як показано на скріншоті нижче:

2. Потім розпакуйте файл, і ви побачите 3 папки та 1 файл у папці, див. Знімок екрана:

3. Потім натисніть, щоб відкрити xl і відкрийте папку media Ви побачите, що всі зображення зберігаються тут без дублікатів, див. знімок екрана:

Якщо у вас є Kutools для Excel, З його Експорт графіки функцію, ви можете швидко експортувати деякі конкретні об'єкти, такі як картинки, діаграми, фігури у формат зображення, як вам потрібно.

після установки Kutools для Excel, виконайте такі дії:

1. Клацання Kutools Plus > Імпорт-експорт > Експорт графіки, див. скріншот:

2, в Експорт графіки у діалоговому вікні виконайте такі операції:

• Вибирати фотографії опція від типи випадаючий список;
• Вкажіть папку для збереження експортованих зображень;
• Потім клацніть випадаючий список із Формат експорту щоб вибрати один формат для ваших фотографій.
• 

3. Нарешті клацніть Ok , всі зображення в поточній книзі збережено у вказану вами папку, див. знімок екрана:

Щоб видалити зображення з поточного робочого аркуша, вам може допомогти наведений нижче код VBA, зробіть так:

1. Активуйте аркуш, що містить зображення, які потрібно видалити.

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. Клацання Insert > Модуліта вставте наступний макрос у Модулі Вікно

Код 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. Клацання Insert > Модуліта вставте наступний макрос у Модулі Вікно

Код 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. Клацання Кутулс > видаляти > Видалити ілюстрації та об'єкти, див. скріншот:

2. У відкритому Видалити ілюстрації та об'єкти діалогове вікно, поставте галочку фотографії від видаляти , а потім вкажіть область, для якої ви хочете видалити зображення з-під заглядати розділ, див. знімок екрана:

3. Потім натисніть Ok і всі зображення будуть видалені з аркуша, вибраних аркушів або з цілої книги, як ви вказали.