Hur centrerar jag en bild i en Excel-cell?
Den här artikeln visar en metod för att flytta bilder till mitten av celler i ett Excel-kalkylblad som visas nedan.
Flytta bilden till mitten av cellen med VBA-kod
Flytta bilden till mitten av cellen med VBA-kod.
Gör enligt följande för att flytta bilder till mitten av celler i ett kalkylblad i Excel.
1. Öppna kalkylbladet innehåller de bilder du behöver centrera i celler och tryck sedan på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
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: Flytta bilder till mitten av celler i kalkylbladet
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
Anmärkningar:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3. tryck på F5 för att köra koden.
Sedan kommer alla angivna bilder att flyttas till mitten av vissa celler omedelbart enligt nedanstående skärmdump.
Relaterade artiklar:
- Hur ändrar jag automatiskt alla bilder för att flytta och storlek med celler i Excel?
- 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
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!