Изображения в Excel: вставка, изменение размера, сохранение, удаление нескольких изображений или картинок в Excel

Для большинства пользователей вставить изображения, сохранённые на компьютере, в лист довольно просто. Выполните следующие действия:

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

2. Затем выберите Вставка > Рисунки > Это устройство, см. скриншот:

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

4. Затем нажмите кнопку Вставить — выбранные изображения будут добавлены на лист. Теперь вы можете отрегулировать или изменить размер изображений под нужные ячейки, см. скриншот:

Если у вас Excel2013 или новее, вы можете вставлять изображения из Интернета или OneDrive. Для этого выполните следующие действия:

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

2. Затем выберите Вставка > Рисунки > Из Интернета, см. скриншот:

3. Откроется следующее окно. В разделе Из Интернета введите поисковый запрос в текстовое поле и нажмите клавишу Enter. Все соответствующие изображения будут найдены сразу, см. скриншот:

4. Затем выберите нужные изображения и нажмите кнопку Вставить. После вставки изображений отрегулируйте их размер или положение по необходимости.

Следующий VBA-код поможет вставить несколько изображений в ячейки с учётом их размера. Выполните следующие действия:

1. Отрегулируйте размер ячеек, в которые хотите вставить изображения, затем выделите эти ячейки.

2. Затем нажмите ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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-кодом, воспользуйтесь мощной функцией – Импортировать изображения в Kutools для Excel. С помощью этой функции вы сможете быстро и легко импортировать несколько изображений в ячейки.

1. Перейдите в Kutools Plus > Импорт и экспорт > Импортировать изображения, см. скриншот:

2. В появившемся диалоговом окне Импортировать изображения выполните следующие действия:

• Укажите порядок вставки изображений в выпадающем списке Порядок импорта: можно выбрать Заполнить по столбцу, затем по строке или Заполнить по строке, затем по столбцу;
• Затем нажмите кнопку Добавить, чтобы выбрать файлы изображений или папку и добавить картинки в Список изображений;
• Нажмите кнопку Размер импорта, в диалоговом окне Размер импортируемого изображения выберите параметр Соответствие размеру ячейки.
• 

3. После завершения настроек нажмите кнопку Импорт, и появится ещё одно окно Импортировать изображения, укажите ячейки назначения, куда будут импортированы изображения, см. скриншот:

4. Затем нажмите кнопку OK — все выбранные изображения будут вставлены с учётом размера указанных ячеек, как показано на скриншоте ниже:

Следующий VBA-код поможет быстро вставить несколько изображений по совпадению их имён. Выполните следующие действия:

1. Нажмите ALT + F11 для открытия окна Microsoft Visual Basic for Applications.

2. Выберите Встановка > Модуль и вставьте следующий макрос в окно модуля.

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

1. Перейдите в Kutools Plus > Импорт и экспорт > Сопоставить импортированные изображения, см. скриншот:

2. В появившемся окне Сопоставить импортированные изображения выполните следующие действия:

• Укажите порядок вставки изображений в выпадающем списке Порядок импорта: можно выбрать Заполнить по столбцу, затем по строке или Заполнить по строке, затем по столбцу;
• Затем в текстовом поле Диапазон сопоставления выберите имена изображений, по которым нужно вставить картинки;
• Далее нажмите кнопку Добавить, чтобы выбрать файлы изображений или папку и добавить картинки в Список изображений;
• Далее укажите размер изображения. Нажмите кнопку Размер импорта, в диалоговом окне Размер импортируемого изображения выберите нужный размер.
• 

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

4. Затем нажмите OK — все изображения, имена которых совпадают со значениями ячеек, будут вставлены, см. скриншот:

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

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

2. Нажмите ALT + F11 для открытия окна Microsoft Visual Basic for Applications.

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-адресам.

1. Перейдите в Kutools > Вставка > Вставить изображения из пути (URL), см. скриншот:

2. В появившемся окне Вставить изображения из пути (URL) выполните следующие действия:

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

3. Затем нажмите кнопку Ok — все изображения будут извлечены по URL-адресам, см. скриншот:

Вы можете воспользоваться следующим VBA-кодом для вставки изображений по путям к файлам.

1. Нажмите ALT + F11 для открытия окна Microsoft Visual Basic for Applications.

2. Выберите Вставка > Модуль и вставьте следующий код в окно модуля.

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 — все изображения по указанным путям будут отображены в следующем столбце, как показано на скриншоте:

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

1. Перейдите в Kutools > Вставка > Вставить изображения из пути (URL), в появившемся окне укажите диапазон путей к файлам, диапазон для вывода изображений и нужный размер, см. скриншоты:

2. После настройки параметров нажмите Ok — изображения будут вставлены в выбранные ячейки сразу, см. скриншот:

Совет: Иногда изображение может перекрывать область данных листа, как показано ниже. Это происходит из-за слишком большого размера картинки, которая не подгоняется автоматически под размер колонтитула.

Чтобы решить эту проблему, просто измените размер изображения в колонтитуле следующим образом:

1. Щёлкните по полю колонтитула с изображением, затем выберите Формат рисунка на вкладке Конструктор, см. скриншот:

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

3. Затем нажмите OK — результат будет соответствовать вашим ожиданиям.

1. Откройте лист, на который хотите вставить фоновое изображение.

2. Затем выберите Разметка страницы > Фон, см. скриншот:

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

4. Теперь изображение вставлено на лист в качестве фона, как показано ниже:

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

1. Выберите Вставка > Фигуры и выберите прямоугольник, см. скриншот:

2. Нарисуйте фигуру нужного размера на активном листе.

3. После рисования фигуры появится вкладка Инструменты рисования на ленте, затем выберите Формат > Контур фигуры > Нет контура, см. скриншот:

4. Затем щёлкните правой кнопкой мыши по фигуре и выберите Формат фигуры в контекстном меню, см. скриншот:

5. В расширенной панели Формат фигуры на вкладке Заливка и линия выполните следующие действия:

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

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

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

У обоих предыдущих способов есть ограничения: первый не позволяет менять прозрачность, второй — не даёт вводить текст в ячейки внутри картинки. Для решения этих проблем используйте функцию Вставить водяной знак в Kutools для Excel.

1. Перейдите в Kutools > Вставка > Вставить водяной знак, см. скриншот:

2. В появившемся окне Вставить водяной знак выберите Изображение водяного знака, затем нажмите кнопку Выбрать изображение, чтобы выбрать нужную картинку, укажите масштаб изображения и отметьте параметр Эрозия, см. скриншот:

3. Затем нажмите Ok — изображение будет вставлено на лист в качестве фоновой картинки.

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

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

2. Затем выберите Главная > Копировать > Копировать как рисунок, см. скриншот:

3. В появившемся окне Копировать рисунок выберите Рисунок в разделе Формат, см. скриншот:

4. Затем нажмите OK — теперь просто нажмите Ctrl + V, чтобы вставить изображение в любое место книги.

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

Сначала отобразите Камеру на ленте, а затем используйте её.

1. Щёлкните по значку Настроить панель быстрого доступа и выберите Дополнительные команды, см. скриншот:

2. В открывшемся окне Параметры Excel выполните следующие действия:

• Выберите Все команды в выпадающем списке Выбрать команды из;
• Затем прокрутите список и выберите Камера;
• Далее нажмите кнопку Добавить, чтобы добавить этот инструмент на панель быстрого доступа;
• Наконец, нажмите OK для закрытия окна.
• 

3. Теперь инструмент Камера отображается на ленте, см. скриншот:

4. Затем выделите диапазон ячеек, который хотите преобразовать в изображение.

5. Затем нажмите инструмент Камера, после чего щёлкните в нужном месте листа — диапазон данных будет вставлен как изображение, как показано на демо ниже:

Если у вас установлен Kutools для Excel, с помощью функции Библиотека автотекста вы можете сохранить выбранные данные в автотекст и использовать их как изображение или текст в будущем.

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

2. Затем выберите Kutools > Навигация, см. скриншот:

3. В расширенной панели Навигация щёлкните по значку Библиотека автотекста, затем нажмите Добавить выбранный контент в автотекст, см. скриншот:

4. В окне Добавить в автотекст задайте имя для этого элемента и выберите группу для добавления. См. скриншот:

5. Затем нажмите Добавить, чтобы добавить элемент в панель автотекста. Чтобы вставить этот диапазон как изображение, выберите ячейку для размещения картинки, найдите сохранённый элемент в панели автотекста и выберите Вставить как > Изображение (EMF) в выпадающем списке. Диапазон данных будет вставлен на лист как изображение, см. скриншоты:

В Excel можно создать динамическое имя диапазона и использовать связанное изображение для решения этой задачи.

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

2. Затем создайте раскрывающийся список для значений ячеек. Щёлкните по ячейке для вывода списка, затем выберите Данные > Проверка данных > Проверка данных, см. скриншот:

3. В появившемся окне Проверка данных на вкладке Параметры выберите Список в поле Разрешить, затем выделите ячейки для создания выпадающего списка в поле Источник, см. скриншот:

4. Нажмите OK — выпадающий список с нужными значениями создан. Выберите элемент из списка, см. скриншот:

5. Затем выберите Формулы > Определить имя, см. скриншот:

6. В окне Новое имя выполните следующие действия:

• Введите имя myimage в поле Имя;
• Затем скопируйте и вставьте эту формулу: =INDEX(Sheet11!$A$2:$B$6;ПОИСКПОЗ(Sheet11!$E$2;Sheet11!$A$2:$A$6;0);2) в поле Ссылается на.

  

  Примечание: В приведённой выше формуле:

  • Sheet11!$A$2:$B$6 — это лист и диапазон, содержащие значения и изображения;
  • Sheet11!$E$2 — это ячейка на листе, где создан выпадающий список;
  • Sheet11!$A$2:$A$6 — это список ячеек, на основе которых создан выпадающий список;
  • Число2 — это номер столбца с изображениями. Если ваши изображения в столбце C, укажите3.

7. Затем нажмите OK, после чего скопируйте и вставьте соответствующее изображение по значению ячейки E2 из исходного диапазона в ячейку F2, см. скриншот:

8. Далее выделите изображение в ячейке F2 и в строке формул введите формулу =myimage (myimage — это имя диапазона, созданное на шаге6), см. скриншот:

9. После ввода формулы нажмите Enter — теперь при выборе элемента из выпадающего списка сразу отобразится соответствующее изображение. См. скриншот:

Предыдущий способ может показаться сложным, поэтому воспользуйтесь удобной функцией — Создать раскрывающийся список с изображениями в Kutools для Excel. С помощью этого инструмента вы сможете создать несколько выпадающих списков с соответствующими изображениями всего за несколько кликов.

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

2. Затем выберите Kutools > Раскрывающийся список > Создать раскрывающийся список с изображениями, см. скриншот:

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

4. Затем нажмите Ok — выпадающие списки с изображениями будут созданы в выбранных ячейках. При выборе элемента из выпадающего списка сразу отобразится соответствующее изображение, см. демо ниже:

Обычно можно воспользоваться функцией Сохранить как для сохранения всех изображений из книги. Выполните следующие действия:

1. Выберите Файл > Сохранить как, в окне Сохранить как укажите папку для экспорта файлов, затем выберите Веб-страница (*.htm;*.html) в списке Указать формат сохранения, см. скриншот:

2. Затем нажмите Сохранить, перейдите в указанную папку — вы увидите два файла: один в формате HTML, другой — папка с изображениями, диаграммами и другими объектами из книги. См. скриншот:

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

Примечание: При использовании функции Сохранить как каждое изображение будет сохранено дважды — в меньшем и большем размере, так что вы сможете выбрать изображения с более высоким разрешением.

Для сохранения всех изображений из файла Excel можно также изменить расширение файла на RAR. Выполните следующие действия:

1. Измените расширение файла xlsx на rar, как показано ниже:

2. Затем распакуйте архив — в папке появятся3 папки и1 файл, см. скриншот:

3. Откройте папку xl, затем папку media — все изображения будут храниться здесь без дубликатов, см. скриншот:

Если у вас установлен Kutools для Excel, используйте функцию Экспорт диаграммы для быстрого экспорта определённых объектов, таких как изображения, диаграммы, фигуры, в нужный формат.

1. Перейдите в Kutools Plus > Импорт и экспорт > Экспорт диаграммы, см. скриншот:

2. В окне Экспорт диаграммы выполните следующие действия:

• Выберите параметр Изображения в выпадающем списке Тип;
• Укажите папку для сохранения экспортируемых изображений;
• Затем выберите нужный формат изображений в выпадающем списке Формат экспорта.
• 

3. Наконец, нажмите Ok — все изображения из текущей книги будут сохранены в указанную папку, см. скриншот:

Для удаления изображений с текущего листа используйте следующий VBA-код. Выполните следующие действия:

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

2. Нажмите ALT + F11 для открытия окна Microsoft Visual Basic for Applications.

3. Выберите Вставка > Модуль и вставьте следующий макрос в окно модуля.

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 for Applications.

2. Выберите Вставка > Модуль и вставьте следующий макрос в окно модуля.

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, используйте функцию Удалить иллюстрации и объекты для быстрого удаления изображений с листа, выбранных листов или всей книги.

1. Перейдите в Kutools > Удалить > Удалить иллюстрации и объекты, см. скриншот:

2. В открывшемся окне Удалить иллюстрации и объекты отметьте пункт Изображения в разделе Удалить, затем укажите область, из которой нужно удалить изображения, в разделе Искать в, см. скриншот:

3. Затем нажмите Ok — все изображения будут удалены с листа, выбранных листов или всей книги, как указано.