Как проверить, существует ли фигура или изображение на активном листе?
Например, на активном листе уже размещены десятки фигур или изображений, и теперь вы хотите быстро узнать, присутствует ли конкретная фигура или изображение на текущем листе. Как выполнить такую проверку без перебора всех объектов по отдельности? В Excel нет встроенной функции для этого, но в данной статье представлен код VBA, который позволяет мгновенно определить наличие нужной фигуры или изображения на текущем листе.
Проверка существования фигуры или изображения Активный лист
Проверка существования фигуры или изображения Активный лист
Примените приведённый ниже макрос, чтобы проверить наличие конкретного изображения на текущем листе.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Выберите пункт Вставка > Модуль и вставьте приведённый ниже код в открывшееся окно скрипта.
VBA: Проверка существования фигуры или изображения
Sub CheckImage()
'UpdatebyExtendoffice20170927
Dim xChar As Picture
Dim xFlag As Boolean
Dim xCharName As String
On Error Resume Next
Application.ScreenUpdating = False
xCharName = "cat"
xFlag = False
For Each xChar In ActiveSheet.Pictures
Debug.Print xChar.Name
If xChar.Name = xCharName Then
MsgBox "The Image is on the Active Sheet", vbInformation, "KuTools For Excel"
xFlag = True
Exit For
End If
Next
If Not xFlag Then
MsgBox "The Image is Not on the Active Sheet", vbInformation, "KuTools For Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Нажмите клавишу F5, чтобы запустить код. После этого появится диалоговое окно, сообщающее, существует ли изображение на текущем листе.
 |  |
Совет: В макросе вы можете изменить значение имени изображения в строке xCharName = «cat» в соответствии со своими требованиями.
Связанные статьи:
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек