Kā noņemt visus attēlus / objektus no Excel darbgrāmatas
Šī apmācība parādīs, kā vienlaikus noņemt visus attēlus Excel darblapā.
Noņemiet attēlus, izmantojot Pāriet uz īpašo
1. Lai atlasītu visus attēlus savā Excel lapā, sadaļā Lente, izvēlieties Sākums> Atrast un atlasīt> Atvērt īpašo.
2. Izvēlieties Objektsun pēc tam noklikšķiniet uz labi.
Tiks atlasīti visi objekti (attēli) aktīvajā darblapā.
3. Nospiediet Dzēst.
Noņemiet attēlus, izmantojot VBA
Mēs varam arī izdzēst visus attēlus, izmantojot VBA cilpu.
| 12345678910111213 | Sub DeletePictures ()Dim oPic As ShapeDim wb kā darbgrāmataDim ws kā darblapa"apskatiet visas darblapasPar katru ws ActiveWorkbook.Worksheets'cilpa cauri visiem atlasītās darblapas objektiemPar katru oPic In ws.Shapes'dzēst objektuoPic.DeleteNākamais fotoNākamais wsBeigu apakš |
1. Programmā Excel nospiediet ALT + F11 uz tastatūras, lai pārslēgtos uz VBE (Visual Basic redaktors).
2. In Izvēlne, izvēlieties Ievietot > Modulis.
3. Ievadiet iepriekš norādīto kodu moduļa logā.
4. Pārliecinieties, ka apakšprocedūrā tiek noklikšķināts uz jums, un pēc tam noklikšķiniet Skrien vai Nospiediet F5 uz tastatūras, lai palaistu kodu.
