Hur förstorar eller krymper jag bilden med ett klick i Excel?
Antag att det finns flera bilder i ett ark som har olika storlekar. Har du några sätt att förstora eller krympa dessa bilder i en storlek med ett klick? Det finns ingen inbyggd funktion för att lösa det, men i den här artikeln introducerar jag en VBA-kod för att förstora eller krympa alla bilder i arket med ett klick.
Förstora och krympa bilder med ett klick från VBA
Förstora och krympa bilder med ett klick från VBA
Gör enligt nedan för att förstora eller krympa bilder med ett klick.
1. Högerklicka på arkfliken där du vill ändra storlek på bilderna och välj Visa kod från snabbmenyn.
2. I popping Microsoft Visual Basic för applikations fönster och klistra in under koden i det tomma skriptet.
VBA: Förstora och krympa bilder med ett klick
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
Application.ScreenUpdating = False
Dim xRg As Range, sPic As Shape
For Each sPic In ActiveSheet.Shapes
If Target.Column > 1 Then
Set xRg = Target.Offset(, -1)
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
If .TopLeftCell.Address = xRg.Address Then
.Height = 350
.Width = 250
End If
End If
End With
ElseIf Target.Column = 1 Then
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
.Height = 60
.Width = 60
End If
End With
End If
Next sPic
Application.ScreenUpdating = True
End Sub

3. Spara koden och stäng fönstret. Och när du klickar på vilken cell som helst i kolumn A krympas alla bilder. Se skärmdump:
4. Och när du klickar på cellen längst upp till höger på bilden förstoras den relativa bilden. Se skärmdump:

Bästa kontorsproduktivitetsverktyg
Överlägsna dina Excel-kunskaper med Kutools for Excel, och upplev effektivitet som aldrig förr. Kutools for 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...
Office Tab Ger gränssnitt med flikar 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!





