Download het voorbeeldbestand van VBA Express naar het xlDelCharts project te krijgen. Dit project zal helpen alle grafieken in uw werkblad te verwijderen .

Kopie 2 de code hieronder om later te gebruiken om alle kaarten die je niet nodig hebt .

Option
Expliciete < br >

Sub xlDelCharts ( _

Optioneel xlBookName
als Koord , _

Optioneel xlSheetName
als Koord , _

Optioneel InformUser
zoals Van Boole = Functie worden alle ingesloten grafieken in de doelgroep werkblad

' Geslaagd Waarden :

' xlBookName [ in , touwtje , OPTIONEEL ] doelwit werkboek ; = ActiveWorkbook

' xlSheetName [standaard in , touwtje , OPTIONEEL ] doel werkblad ; = ActiveSheet

' InformUser [ in , boolean , OPTIONEEL ] vlag om aan te geven als de gebruiker is om

' standaard hoogte van { default vooruitgang = Ik als Geheel

Dim MsgBxTitle
als Koord

Dim NumCharts
als Geheel

Dim Rtn
Zoals VbMsgBoxResult

Dim xlBook
als Werkboek

Dim xlSheet als Aantekenvel

... End Sub

het script is afgekapt omdat ze hoger is dan het maximum aantal tekens capaciteit voor deze stap . Raadpleeg uw voorbeeld bestand voor volledige codering structuur .
< br > Goedkope 3

Open een Excel-werkmap en voer de Visual Basic Editor ( VBE ) door op Alt + F11 . Ga naar het linker - zijruit , en markeer vervolgens de spreadsheet , die waarschijnlijk wordt genoemd VBAProject ( bestandsnaam.xls ) . Vervang het laatste gedeelte met de werkelijke naam van uw spreadsheet .
4

Kies "Invoegen" en vervolgens " module " uit het menu Invoegen om een bestaande code module te selecteren voor de doelgroep werkblad . Plak voorbeeldcode je eerder gekopieerd in het rechtervenster code . Terminate VBE en sla het bestand op , indien u dat wenst .
5

Open het voorbeeldbestand om het xlDelCharts project te testen . het moet alle kaarten verwijderen zoals beschreven in de code .