Κατεβάστε το αρχείο δείγματος από VBA Express για να πάρει το έργο xlDelCharts . Το έργο αυτό θα σας βοηθήσει να διαγράψετε όλα τα διαγράμματα στο φύλλο εργασίας σας . 2
Αντιγράψτε τον παρακάτω κώδικα για να χρησιμοποιήσετε αργότερα για να διαγράψετε όλα τα διαγράμματα που δεν χρειάζεστε .
Option Explicit
Sub xlDelCharts ( _
Προαιρετικό xlBookName As String , _
Προαιρετικό xlSheetName As String , _
Προαιρετικό InformUser Όπως Boolean = Λειτουργία διαγράφει όλα τα ενσωματωμένα γραφήματα στο φύλλο εργασίας στόχων
« Πέρασε Τιμές:
« xlBookName [ σε , string , ΠΡΟΑΙΡΕΤΙΚΟ] βιβλίο στόχου ? Default = ActiveWorkbook
« xlSheetName [ σε , string , ΠΡΟΑΙΡΕΤΙΚΟ] φύλλο στόχου ? default = ActiveSheet
« InformUser [ σε , boolean , ΠΡΟΑΙΡΕΤΙΚΟ] σημαία για να υποδείξει εάν ο χρήστης είναι να
ενημερώνονται για την πρόοδο { default = I As Integer
Dim MsgBxTitle Όπως String Dim
NumCharts As Integer
Dim RTN Όπως VbMsgBoxResult
Dim xlBook Όπως βιβλίου
Dim xlSheet Όπως Φύλλο
... End Sub
το σενάριο έχει περικοπεί διότι υπερβαίνει το όριο χωρητικότητας χαρακτήρων για το συγκεκριμένο βήμα . Ανατρέξτε στο δείγμα αρχείου σας για την πλήρη κωδικοποίηση δομή .
με 3
Ανοίξτε οποιοδήποτε βιβλίο εργασίας του Excel και να τρέξει το Visual Basic Editor ( VBE ) πατώντας Alt + F11 . Πηγαίνετε στην αριστερή πλευρά του παραθύρου , και στη συνέχεια, επισημάνετε το υπολογιστικό φύλλο , το οποίο είναι πιθανό ονομάζεται VBAProject ( filename.xls ) . Αντικαταστήστε το τελευταίο τμήμα με το πραγματικό όνομα του φύλλου σας .
Η
4 Επιλέξτε "Εισαγωγή" και στη συνέχεια " Module" από το μενού Insert για να επιλέξετε μια υπάρχουσα λειτουργική μονάδα κώδικα για το φύλλο εργασίας στόχων . επικόλληση του δείγμα κώδικα που αντιγράψατε νωρίτερα στο παράθυρο κώδικα του δεξιού χεριού. Τερματισμός VBE και να αποθηκεύσετε το αρχείο , αν θέλετε .
5
Ανοίξτε το αρχείο δείγμα για να ελέγξετε το έργο xlDelCharts . θα πρέπει να διαγράψετε όλα τα διαγράμματα όπως περιγράφεται στον κώδικα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα