Sut i wirio a oes siâp neu ddelwedd yn bodoli ar ddalen weithredol?
Er enghraifft, ychwanegwyd dwsinau o siapiau neu ddelweddau yn y daflen waith weithredol yn barod, ac yn awr rydych chi am wirio a oes siâp neu ddelwedd benodol yn bodoli yn y ddalen weithredol ai peidio, sut allwch chi drin y swydd hon yn gyflym heb wirio'r siapiau neu delweddau fesul un? Yn Excel, ni all unrhyw swyddogaeth adeiledig eich helpu chi, ond yn yr erthygl hon, rwy'n cyflwyno cod VBA i ddarganfod yn gyflym a oes siâp neu ddelwedd yn bodoli yn y ddalen weithredol.
Gwiriwch a oes siâp neu ddelwedd yn bodoli ar ddalen weithredol
Gwiriwch a oes siâp neu ddelwedd yn bodoli ar ddalen weithredol
Defnyddiwch y cod macro isod i wirio a oes delwedd benodol yn bodoli ar y ddalen weithredol.
1. Gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau a gludo islaw'r cod i'r sgript.
VBA: Gwiriwch a oes siâp neu ddelwedd yn bodoli
Is CheckImage () 'UpdatebyExtendoffice20170927
Dim xChar Fel Llun
Dim xFlag Fel Boole
Dim xCharName Fel Llinyn
Ar Gwall Ailddechrau Nesaf
Application.ScreenUpdating = Gau
xCharName = "cath"
xFlag = Gau
Ar gyfer Pob xChar Mewn ActiveSheet.Pictures
Debug.Print xChar.Name
Os xChar.Name = xCharName Yna
msgstr "Mae'r Delwedd ar y Daflen Actif", vbInformation, "KuTools For Excel"
xFlag = Gwir
Ymadael Am
Diwedd Os
Nesaf
Os Na xFlag Yna
MsgBox "Nid yw'r Ddelwedd ar y Daflen Weithredol", vbInformation, "KuTools For Excel"
Diwedd Os
Application.ScreenUpdating = Gwir
Diwedd Is
3. Gwasgwch F5 i redeg y cod, mae deialog yn galw allan i'ch atgoffa a yw'r ddelwedd yn bodoli yn y daflen weithredol.
 |
 |
Tip: Yn y cod macro, gallwch newid enw'r ddelwedd yn xCharName = "cath" i ddiwallu eich angen.
Erthyglau Perthynas:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
