Hvordan kontrolleres, om en celle indeholder billede i Excel?
Det er let at finde og vælge alle billeder i et aktivt regneark i Excel. Men ved du, hvordan du kontrollerer, om en celle indeholder et billede i Excel? En metode i denne artikel kan hjælpe dig.
Kontroller, om en celle indeholder billede med VBA-kode
Kontroller, om en celle indeholder billede med VBA-kode
Nedenstående VBA-kode kan hjælpe dig med at kontrollere, om en celle indeholder et billede. Gør som følger.
1. Åbn det regneark, du skal kontrollere, om billedet findes i en bestemt celle, 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, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter VBA-kode i kodevinduet.
VBA-kode: Kontroller, om en celle indeholder billede i Excel
Sub CellHasPicture()
Dim xRg As Range
Dim xShape As Shape
Dim xFlag As Boolean
On Error Resume Next
Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xFlag = False
For Each xShape In ActiveSheet.Shapes
If xShape.TopLeftCell.Address = xRg.Address Then
xFlag = True
End If
Next
If xFlag Then
MsgBox "Image exists!"
Else
MsgBox "Image does not exist"
End If
End Sub
3. Tryk på F5 nøgle for at køre koden. I pop op Kutools til Excel dialogboksen, skal du indtaste den celle, som du vil kontrollere, om den indeholder et billede, og derefter klikke på OK knap. Se skærmbillede:
4. Derefter vil en dialogboks dukke op som skærmbilledet nedenfor, hvis der findes et billede eller ej i den angivne celle.
Relaterede artikler:
- Hvordan ændres automatisk alle billeder for at flytte og størrelse med celler i Excel?
- Hvordan centrerer jeg et billede i en Excel-celle?
- 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!