Hur förstorar man bilden när man klickar på den i Excel?
Om du antar att du har lagt in en lista med bilder i en kolumn och matchat bildstorlekarna med cellstorlekarna som visas nedan. Eftersom den infogade bilden ser liten ut kan du behöva förstora den för vissa ändamål. Den här artikeln visar hur du förstorar en bild när du klickar på den i Excel och återställer till originalstorleken med det andra klicket.
Förstora bilden när du klickar på den med VBA-kod
Förstora bilden när du klickar på den med VBA-kod
Följande VBA-kod kan hjälpa dig att förstora en bild när du klickar på den i Excel. Gör så här.
1. Högerklicka på bilden som du behöver förstora genom att klicka på den och klicka sedan på Tilldela makro från snabbmenyn. Se skärmdump:
2. I Tilldela makro Klicka i dialogrutan Nya knapp.
3. I pop-up Microsoft Visual Basic för applikationer kopiera och klistra in nedanstående VBA-kod mellan Sub och End Sub koder. Se skärmdump:
VBA-kod: Förstora bilden genom att klicka på den i 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
Anmärkningar: I koden kan du tilldela bildens stora storlekar i koden big = 3.
4. Tryck sedan på andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.
Från och med nu, när du klickar på bilden, kommer den att förstoras till den storlek du angav, och klicka på den igen för att återställa till den ursprungliga storleken som visas nedan.
Relaterade artiklar:
- Hur låser jag bild / bild till eller inuti cellen i Excel?
- Hur infogar jag bild eller bild dynamiskt i cellen baserat på cellvärde i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!