Як перевірити, чи є форма чи зображення в активному аркуші?
Наприклад, на активному аркуші вже було додано десятки фігур чи зображень, і тепер ви хочете перевірити, чи існує певна фігура чи зображення на активному аркуші чи ні, як можна швидко обробити цю роботу, не перевіряючи фігури або зображення по одному? В Excel жодна вбудована функція не може вам допомогти, але в цій статті я представляю код VBA, щоб швидко знайти, чи є на активному аркуші фігура чи зображення.
Перевірте, чи є форма чи зображення в активному аркуші
Перевірте, чи є форма чи зображення в активному аркуші
Будь ласка, застосуйте код макросу нижче, щоб перевірити, чи існує певне зображення в активному аркуші.
1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі і вставте нижче код у сценарій.
VBA: Перевірте, чи існує фігура чи зображення
Sub CheckImage () 'ОновленняExtendoffice20170927
Dim xChar As Picture
Dim xFlag як логічний
Dim xCharName як рядок
Помилка Відновити далі
Application.ScreenUpdating = False
xCharName = "кішка"
xFlag = False
Для кожного xChar в ActiveSheet.Pictures
Debug.Print xChar.Name
Якщо xChar.Name = xCharName Тоді
MsgBox "Зображення знаходиться на активному аркуші", vbInformation, "KuTools для Excel"
xFlag = Правда
Вихід для
Кінець Якщо
Далі
Якщо не xFlag, тоді
MsgBox «Зображення немає на активному аркуші», vbInformation, «KuTools для Excel»
Кінець Якщо
Application.ScreenUpdating = True
Кінець Під
3. прес F5 для запуску коду вискакує діалогове вікно, що нагадує, чи є зображення в активному аркуші.
 |
 |
Чайові: У коді макросу ви можете змінити назву зображення в xCharName = "кішка" щоб задовольнити ваші потреби.
Відносні статті:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
