Hvordan kontrolleres, om der findes en form eller et billede i det aktive ark?
For eksempel er der allerede blevet tilføjet snesevis af former eller billeder i det aktive regneark, og nu vil du kontrollere, om der findes en bestemt form eller et bestemt billede i det aktive ark eller ej, hvordan kan du hurtigt håndtere dette job uden at kontrollere figurerne eller billeder en efter en? I Excel kan ingen indbygget funktion hjælpe dig, men i denne artikel introducerer jeg en VBA-kode for hurtigt at finde ud af, om der findes en form eller et billede i det aktive ark.
Kontroller, om der findes en form eller et billede i det aktive ark
Kontroller, om der findes en form eller et billede i det aktive ark
Anvend nedenstående makrokode for at kontrollere, om et bestemt billede findes i det aktive ark.
1. Trykke Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler og indsæt nedenstående kode i scriptet.
VBA: Kontroller, om der findes en form eller et billede
Sub CheckImage () 'OpdateringExtendoffice20170927 Dim xChar som billede Dim xFlag Som Boolean Dim xCharName Som streng ved fejl Genoptag næste applikation.ScreenUpdating = False xCharName = "cat" xFlag = False For hver xChar i ActiveSheet.Pictures Debug.Print xChar.Name Hvis xChar.Name = xCharName Derefter MsgBox "Billedet er på det aktive ark", vbInformation, "KuTools til Excel" xFlag = True Exit for End If Next If Not xFlag Then MsgBox "The Image is Not on the Active Sheet", vbInformation, "KuTools For Excel" End Hvis Application.ScreenUpdating = True End Sub
3. Trykke F5 for at køre koden, vises en dialogboks, der minder dig om, om billedet findes i det aktive ark.
Tip: I makrokoden kan du ændre billednavnet i xCharName = "kat" for at imødekomme dit behov.
Relative artikler:
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!