Hur ändrar man automatiskt alla bilder till "Flytta och storlek med celler" i Excel?
Som standard är bilder som infogas i ett Excel-kalkylblad inställda på "Flytta men storleksanpassa inte med celler", vilket betyder att de förblir samma storlek även när du justerar cellmåtten. Om du behöver ändra storlek på bilder och flytta tillsammans med deras celler, måste du vanligtvis ändra denna inställning manuellt för varje bild. Det finns dock en snabb metod för att ställa in alla bilder till "Flytta och storlek med celler" automatiskt med en enkel VBA-kod. Den här artikeln guidar dig igenom det.
Ändra automatiskt alla bilder till "Flytta och storlek med celler" med VBA-kod
Ändra automatiskt alla bilder till "Flytta och storlek med celler" med VBA-kod
VBA-koden nedan kan hjälpa dig att snabbt ändra alla bilders egenskaper till "Flytta och storlek med celler" i ett kalkylblad. Vänligen gör enligt följande.
1. Öppna kalkylbladet innehåller bilderna du vill ändra genom att flytta och ändra storlek på celler och öppna sedan Microsoft Visual Basic för applikationer genom att trycka på andra + F11 nycklar.
2. I Microsoft Visual Basic för applikationer klicka på fönstret Insert > Modulerna. Kopiera och klistra sedan in VBA-kod i kodfönstret.
VBA-kod: ändra alla bilder till "Flytta och storlek med celler"
Sub MoveAndSizeWithCells()
Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize
Next
Application.ScreenUpdating = True
End Sub
3. tryck på F5 eller klicka på Kör för att köra koden.
Alla bilder i det aktiva arket är nu inställda på "Flytta och storlek med celler" automatiskt.
Relaterade artiklar:
- Hur centrerar jag en bild i en Excel-cell?
- Hur kontrollerar jag om en cell innehåller bild i Excel?
- Hur infogar jag bild eller bild dynamiskt i cellen baserat på cellvärde i Excel?
- Hur förstorar man bilden när man klickar på den i Excel?
Bästa kontorsproduktivitetsverktyg
Boosta dina Excel-kunskaper med Kutools for Exceloch 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 Få ett flikargrä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!