Як збільшити зображення, натиснувши на нього в 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?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
