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

Як збільшити зображення, натиснувши на нього в Excel?

Припустимо, що ви вставили список зображень у стовпець і зіставили розміри зображень із розмірами комірок, як показано нижче. Оскільки вставлене зображення виглядає невеликим, можливо, вам доведеться збільшити його для деяких цілей. Ця стаття покаже вам спосіб збільшення зображення при натисканні на нього в Excel та відновлення до початкового розміру другим клацанням.

Збільште зображення, натиснувши на нього кодом VBA


Збільште зображення, натиснувши на нього кодом VBA

Наступний код VBA може допомогти вам збільшити зображення при натисканні на нього в Excel. Будь ласка, виконайте наступне.

1. Клацніть правою кнопкою миші зображення, яке потрібно збільшити, просто клацнувши на ньому, а потім клацніть Призначити макрос з контекстного меню. Дивіться знімок екрана:

2 В Призначити макрос діалогове вікно, натисніть на новий кнопки.

3. У спливаючому Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наведений нижче код VBA між нижче і End Sub коди. Дивіться знімок екрана:

Код VBA: Збільште зображення, клацнувши на ньому в Excel

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3   
    small = 1 
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
    
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

примітки: У коді ви можете призначити великі розміри зображення в коді big = 3.

4 Потім натисніть кнопку інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.

Відтепер при натисканні на картинку вона буде збільшена до вказаного вами розміру, а при повторному натисканні її буде відновлено до початкового розміру, як показано на скріншотах нижче.


Статті по темі:


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (9)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Maravilloso funciona perfecto!!!.
Hay forma que la imagen quede en el cento de la pantalla, solo es una oncesion, nada mas, la macro anda muy bien
Цей коментар був мінімізований модератором на сайті
Цей код добре працює
Але коли ви відкриваєте книгу вдруге, зображення виходять розмитими
Цей коментар був мінімізований модератором на сайті
коли ви вставили код і натисніть "Зберегти", фотографії стають все меншими і меншими... чудова ідея, але я боюся, що не працює...
Цей коментар був мінімізований модератором на сайті
Це те, що я шукаю, але це не працюватиме з моїм Excel 2016. Я отримую повідомлення про помилку Application.caller = Error 2023
Цей коментар був мінімізований модератором на сайті
Привіт, я намагаюся змінити велике (1) і мале (0.1) значення, але макрос не працює належним чином. Після деякого натискання зображення не змінюється :(
Цей коментар був мінімізований модератором на сайті
Макрос працює, проблема в тому, що коли ви змінюєте розмір зображення в макросі, якщо ви опуститеся нижче 1 і збережете, зображення втратить свою якість :(
Цей коментар був мінімізований модератором на сайті
Я знаю, що jpg втрачає якість кожного разу, коли його зберігають. Тому користувачам рекомендується зберігати під новою назвою файлу. Це може бути причиною того, чому люди, які намагаються використовувати цей макрос, в кінцевому підсумку отримують розмиті зображення. Кращим підходом було б мати дві фотографії - велику і малу з однаковою фотографією. Маленьке поміщається в клітинку, велике — в інший аркуш, той самий файл. Потім скористайтеся кодом, щоб показати велике зображення, коли клацнете маленьке зображення або наведіть курсор. Сюди. розміри жодного зображення не змінюються, а отже, не повинні втрачати якість. Я не впевнений, що Kutools здатний це зробити.
Цей коментар був мінімізований модератором на сайті
Не працює
Цей коментар був мінімізований модератором на сайті
Видалити піксельне зображення
Ich hatte dasselbe Problem mit den verpixelten Bildern. Du must in den Einstellungen etwas ändern und zwar:
Unter Datei/Optionen/Erweitert unter dem Punkt "Bildgröße und -Qualität" einen Hacken bei "Bilder nicht in Datei kompprimieren" setzen. Dann zeigt es die Bilder nicht mehr verpixelt an. LG
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL