Як збільшити зображення, натиснувши на нього в 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 для додатків вікна.
Відтепер при натисканні на картинку вона буде збільшена до вказаного вами розміру, а при повторному натисканні її буде відновлено до початкового розміру, як показано на скріншотах нижче.
Статті по темі:
- Як зафіксувати зображення / зображення в клітині або всередині комірки в Excel?
- Як динамічно вставити зображення або зображення в комірку на основі значення комірки в Excel?
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
