Как увеличить изображение в Excel при щелчке по нему?
Предположим, вы вставили список изображений в столбец и подогнали размеры изображений под размеры ячеек, как показано на снимке экрана ниже. Поскольку вставленные изображения выглядят мелкими, возможно, вам потребуется увеличить их для определённых целей. В этой статье описан способ увеличения изображения при щелчке по нему в Excel и восстановления его Оригинальный размер при повторном щелчке.
Увеличение изображения при щелчке по нему с помощью кода VBA
Увеличение изображения при щелчке по нему с помощью кода VBA
Следующий код VBA позволит увеличивать изображение при щелчке по нему в Excel. Выполните следующие действия.
1. Щёлкните правой кнопкой мыши по изображению, которое нужно увеличивать простым щелчком, и выберите в контекстном меню пункт Назначить макрос. См. снимок экрана:
2. В диалоговом окне Назначить макрос нажмите кнопку Создать.
3. Во всплывающем окне Microsoft Visual Basic для приложений скопируйте и вставьте приведённый ниже код VBA между строками Sub и 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. Затем одновременно нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
Теперь при щелчке по изображению оно увеличится до указанного вами размера, а повторный щелчок вернёт его к исходному — оригинальному размеру, как показано на снимках экрана ниже.
См. также:
- Как привязать изображение или картинку к ячейке или разместить её внутри ячейки в Excel?
- Как динамически вставить или отображать изображение в ячейке Excel на основе её значения?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек