Как увеличить изображение при нажатии на него в 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 for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
