Hvordan centrerer jeg et billede i en Excel-celle?
Denne artikel viser dig en metode til at flytte billeder til centrum af celler i et Excel-regneark som vist nedenstående skærmbillede.
Flyt billede til centrum af cellen med VBA-kode
Flyt billede til centrum af cellen med VBA-kode.
Gør som følger for at flytte billeder til centrum af celler i et regneark i Excel.
1. Åbn regnearket indeholder de billeder, du skal centrere i celler, og tryk derefter på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, klik venligst indsatte > Moduler. Kopier og indsæt derefter VBA-kode i kodevinduet.
VBA-kode: Flyt billeder til centrum af celler i regnearket
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
Noter:
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. Tryk på F5 nøgle for at køre koden.
Derefter flyttes alle angivne billeder til midten af visse celler med det samme som vist nedenstående skærmbillede.
Relaterede artikler:
- Hvordan ændres automatisk alle billeder for at flytte og størrelse med celler i Excel?
- Hvordan kontrolleres, om en celle indeholder billede i Excel?
- Hvordan indsættes billede eller billede dynamisk i celle baseret på celleværdi i Excel?
- Hvordan forstørres billedet, når man klikker på det i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!