Как проверить, есть ли в ячейке изображение в Excel?
В Excel легко найти и выделить все изображения на активном листе. Но знаете ли вы, как в Excel проверить, есть ли в ячейке изображение? Вам может помочь метод, описанный в этой статье.
Проверьте, есть ли в ячейке изображение с кодом VBA
Проверьте, есть ли в ячейке изображение с кодом VBA
Приведенный ниже код VBA может помочь вам проверить, содержит ли ячейка изображение. Пожалуйста, сделайте следующее.
1. Откройте рабочий лист, в котором необходимо проверить, существует ли изображение в указанной ячейке, затем нажмите кнопку другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте код 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 for Excel в диалоговом окне введите ячейку, в которой вы хотите проверить, содержит ли она изображение, а затем щелкните значок OK кнопка. Смотрите скриншот:
4. Затем появится диалоговое окно, как показано на скриншоте ниже, если изображение существует или нет в указанной ячейке.
Статьи по теме:
- Как автоматически изменить все изображения для перемещения и размера с ячейками в Excel?
- Как центрировать изображение в ячейке Excel?
- Как динамически вставлять изображение или изображение в ячейку на основе значения ячейки в Excel?
- Как увеличить изображение при нажатии на него в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
