Hoppa till huvudinnehåll

Utforska det nya, gratisversionen of Kutools for Outlook i dag!

Hur ändrar man automatiskt alla bilder till "Flytta och storlek med celler" i Excel?

Författare: Siluvia Senast ändrad: 2024-11-08

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:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI-assistent: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  åberopa Kutools Funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup  |   VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar   |  Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler   |  Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser:  12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer
Använda Kutools på ditt föredragna språk – stöder engelska, spanska, tyska, franska, kinesiska och över 40 andra!

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!