Note: The other languages of the website are Google-translated. Back to English

Як перевірити, чи є форма чи зображення в активному аркуші?

Наприклад, на активному аркуші вже було додано десятки фігур чи зображень, і тепер ви хочете перевірити, чи існує певна фігура чи зображення на активному аркуші чи ні, як можна швидко обробити цю роботу, не перевіряючи фігури або зображення по одному? В Excel жодна вбудована функція не може вам допомогти, але в цій статті я представляю код VBA, щоб швидко знайти, чи є на активному аркуші фігура чи зображення.

Перевірте, чи є форма чи зображення в активному аркуші


Перевірте, чи є форма чи зображення в активному аркуші

Будь ласка, застосуйте код макросу нижче, щоб перевірити, чи існує певне зображення в активному аркуші.

1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі і вставте нижче код у сценарій.

VBA: Перевірте, чи існує фігура чи зображення

Sub CheckImage () 'ОновленняExtendoffice20170927 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 xCharName then xCharName = xCharName MsgBox "Зображення знаходиться на активному аркуші", vbInformation, "KuTools для Excel" xFlag = Істинний вихід для кінця, якщо далі, якщо ні xFlag Тоді MsgBox "Зображення відсутній на активному аркуші", vbInformation, "KuTools для Excel" Кінець Якщо Application.ScreenUpdating = True End Sub

doc перевірити, чи існує зображення 1

3. прес F5 для запуску коду вискакує діалогове вікно, що нагадує, чи є зображення в активному аркуші.

doc перевірити, чи існує зображення 2 doc перевірити, чи існує зображення 3

Чайові: У коді макросу ви можете змінити назву зображення в xCharName = "кішка" щоб задовольнити ваші потреби.


Відносні статті:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця