Как проверить, содержит ли ячейка изображение в Excel?
Легко найти и выделить все изображения на активном листе в Excel. Но знаете ли вы, как проверить, содержит ли конкретная ячейка изображение? Метод, описанный в этой статье, поможет вам справиться с этой задачей.
Проверка наличия изображения в ячейке с помощью кода VBA
Проверка наличия изображения в ячейке с помощью кода VBA
Приведённый ниже код VBA поможет вам определить, содержит ли ячейка изображение. Выполните следующие действия.
1. Откройте лист, на котором нужно проверить наличие изображения в определённой ячейке, затем нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications выберите Вставка > Модуль. Затем скопируйте и вставьте приведённый код VBA в окно кода.
Код VBA: Проверка наличия изображения в ячейке Excel
Sub CellHasPicture()
Dim xRg As Range
Dim xShape As Shape
Dim xFlag As Boolean
On Error Resume Next
Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xFlag = False
For Each xShape In ActiveSheet.Shapes
If xShape.TopLeftCell.Address = xRg.Address Then
xFlag = True
End If
Next
If xFlag Then
MsgBox "Image exists!"
Else
MsgBox "Image does not exist"
End If
End Sub3. Нажмите клавишу F5, чтобы запустить код. Во всплывающем диалоговом окне Kutools для Excel введите адрес ячейки, в которой нужно проверить наличие изображения, и нажмите кнопку ОК. См. снимок экрана:
4. Появится диалоговое окно, подобное приведённому ниже, которое сообщит, содержится ли изображение в указанной ячейке.
Связанные статьи:
- Как автоматически настроить все изображения так, чтобы они перемещались и изменяли размер вместе с ячейками в Excel?
- Как отцентрировать изображение по центру ячейки в Excel?
- Как динамически вставить изображение в ячейку Excel на основе её значения?
- Как увеличить изображение в Excel при нажатии на него?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек