Как увеличить изображение при клике на него в Excel?
Предположим, вы вставили список изображений в столбец и сопоставили размеры изображений с размерами ячеек, как показано на скриншоте ниже. Поскольку вставленное изображение выглядит маленьким, вам может потребоваться его увеличить для некоторых целей. В этой статье мы покажем вам метод увеличения изображения при клике на него в Excel и возвращения к исходному размеру вторым кликом.
Увеличение изображения при клике с помощью кода VBA
Увеличение изображения при клике с помощью кода VBA
Следующий код VBA поможет вам увеличить изображение при клике на него в Excel. Пожалуйста, действуйте следующим образом.
1. Щелкните правой кнопкой мыши изображение, которое нужно увеличить одним кликом, затем выберите Назначить макрос из контекстного меню. См. скриншот:
2. В диалоговом окне Назначить макрос нажмите кнопку Создать.
3. В появившемся окне Microsoft Visual Basic for Applications скопируйте и вставьте приведенный ниже код 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 for Applications.
Теперь, когда вы кликаете на изображение, оно будет увеличиваться до указанного вами размера, а повторный клик вернет его к исходному размеру, как показано на скриншотах ниже.
Связанные статьи:
- Как заблокировать изображение внутри ячейки в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек