Как проверить, существует ли фигура или изображение на активном листе?
Например, на активный лист уже были добавлены десятки фигур или изображений, и теперь вы хотите проверить, существует ли определенная форма или изображение на активном листе или нет, как вы можете быстро выполнить эту работу, не проверяя фигуры или изображения одно за другим? В Excel никакая встроенная функция вам не поможет, но в этой статье я представляю код VBA, чтобы быстро определить, существует ли фигура или изображение на активном листе.
Проверьте, существует ли фигура или изображение на активном листе
Проверьте, существует ли фигура или изображение на активном листе
Примените приведенный ниже код макроса, чтобы проверить, существует ли конкретное изображение на активном листе.
1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули и вставьте ниже код в скрипт.
VBA: проверьте, существует ли форма или изображение
Sub CheckImage () 'ОбновлениеExtendoffice20170927 Dim xChar As Picture Dim xFlag As Boolean Dim xCharName As String On Error Возобновить следующее приложение.ScreenUpdating = False xCharName = "cat" xFlag = False для каждого xChar в ActiveSheet.Pictures Debug.Print xChar.Name Then xChar.Name = xCharName = MsgBox «Изображение находится на активном листе», vbInformation, «KuTools For Excel» xFlag = True Exit For End If Next If Not xFlag Then MsgBox «Изображение отсутствует на активном листе», vbInformation, «KuTools For Excel» Конец Если Application.ScreenUpdating = True End Sub
3. Нажмите F5 для запуска кода появляется диалоговое окно, напоминающее вам, существует ли изображение на активном листе.
 |
 |
Функции: В коде макроса вы можете изменить имя изображения в xCharName = "кошка" чтобы удовлетворить ваши потребности.
Относительные статьи:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
