Как да увелича изображението, когато щракнете върху него в 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% и намалява стотици кликвания на мишката за вас всеки ден!