Hvordan ændres størrelsen på billeder, så de passer til celler i Excel?
Normalt indsatte billeder flyder over celler, og det meste af tiden dækker et billede mange celler. Hvis et regneark har et stort antal billeder, kan du placere hvert billede i en enkelt celle. Men hvordan håndteres det? Der er faktisk flere vanskelige måder at hjælpe os med at ændre størrelsen på billeder, så de passer til cellernes størrelse hurtigt.
Ændr størrelsen på det valgte billede, så det passer til en enkelt celle med VB-makro
Ændr størrelsen på indsatte billeder, så de passer til celler med Kutools til Excel
Ændr størrelsen på det valgte billede, så det passer til en enkelt celle med VB-makro
Vi kan anvende VB-makroer til at ændre størrelsen på et valgt billede, så det passer til en enkelt celle, men ikke manuelt ændre størrelsen på billedets bredde og højde. Du kan gøre det med følgende trin:
Trin 1: Indsæt billederne i et regneark, og vælg et billede, som du vil ændre størrelsen på det, så det passer til en enkelt celle.
Trin 2: Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.
Trin 3: Klik indsatte > Moduler, og indsæt følgende makro i modulvinduet.
VBA: Ændr størrelsen på et valgt billede, så det passer til en celle.
Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub
Trin 4: Tryk på F5 nøgle til at køre denne makro.
Trin 5: Gentag ovenstående trin for at ændre størrelsen på andre billeder, så de passer til en enkelt celle.
Nu ændres størrelsen på alle indsatte billeder og passer ind i celler. Se følgende skærmbillede:
Bemærk: Du kan kun ændre størrelsen på et billede én gang. Hvis du vælger mere end et billede én gang, vises en advarselsdialogboks.
Ændr størrelsen på indsatte billeder, så de passer til celler med Kutools til Excel
Hvis du har Kutools til Excel installeret, kan du anvende dens Importer billeder værktøj til at ændre størrelsen på alle billeder, så de passer til celler eller med fast højde under indsættelse af billeder.
Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu.
Trin 1: Vælg de områdeceller, du vil indsætte billeder, og klik på Enterprise >Import / Export > Importer billeder. Se følgende skærmbillede:
Trin 2: I Importer billeder i dialogboksen, vælg indsætningsrækkefølgen i rullelisten, og klik på Tilføj knappen for at tilføje billeder, du har brug for fra filen eller mappen, og klik derefter på Størrelse knap. Se skærmbillede:
Trin 3: Kontroller Matchende cellestørrelse mulighed. Klik derefter på Ok > Importere for at lukke dialoger. Se skærmbillede:
Nu kan du se, at billederne er indsat, så de passer til cellerne.
Bemærk: Du kan også specificere cellehøjde og bredde i trin 3 for at ændre størrelsen på billederne.
Hvis du vil vide mere om dette Import billede funktion, besøg venligst link..
Relateret artikel:
Hvordan ændres størrelsen på flere celler, så de hurtigt passer til billeder over dem 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!