Verzija ovog članka u programu Microsoft Excel 2000 potražite u članku 247933.
Verzija ovog članka u programu Microsoft Excel 98 potražite u članku 247981.
Verzija ovog članka u programu Microsoft Excel 97 potražite u članku 247980.
Verzija ovog članka u programu Microsoft Excel 7,0 potražite u članku 247982.
Sažetak
U sljedećem odjeljku procedure programa Microsoft Visual Basic for Applications uklanjaju se svi stilovi u radnoj knjizi programa Microsoft Excel, a zatim dodaju zadane stilove koje vidite u novoj radnoj knjizi. Ova makronaredba može biti korisna za uklanjanje dodatnih stilova dodanih u radnu knjigu koja je zaražena virusom makronaredbi. Ova makronaredba koristi radne knjige. Dodaj metodu koja nadilazi predloške u direktorijima za pokretanje. Zbog toga funkcionira pravilno čak i ako su predlošci u direktorijima za pokretanje imali dodatne stilove dodane u njih.
Dodatne informacije
Microsoft nudi primjere programiranja samo za ilustraciju, bez jamstva ili izražena ili implicirana. To obuhvaća, ali nije ograničeno na implicirana jamstva o prodaji ili prikladnosti za određenu namjenu. U ovom se članku pretpostavlja da ste upoznati s programskim jezikom koji se pokazuje i alatima koji se koriste za stvaranje i ispravljanje pogrešaka u postupcima. Microsoftovi inženjeri za podršku mogu pomoći u objašnjavanju funkcionalnosti određenog postupka. Međutim, oni neće izmijeniti ove primjere radi pružanja dodane funkcionalnosti ili konstrukcijski postupci koji zadovoljavaju vaše specifične preduvjete. Sljedeća makronaredba uklanja stilove iz trenutno aktivne radne knjige. Ako ovaj kod upišete u novu radnu knjigu, provjerite jeste li aktivirali radnu knjigu iz koje želite ponovno postaviti stilove prije pokretanja makronaredbe.
Sub RebuildDefaultStyles()'The purpose of this macro is to remove all styles in the active'workbook and rebuild the default styles.'It rebuilds the default styles by merging them from a new workbook.'Dimension variables. Dim MyBook As Workbook Dim tempBook As Workbook Dim CurStyle As Style 'Set MyBook to the active workbook. Set MyBook = ActiveWorkbook On Error Resume Next 'Delete all the styles in the workbook. For Each CurStyle In MyBook.Styles 'If CurStyle.Name <> "Normal" Then CurStyle.Delete Select Case CurStyle.Name Case "20% - Accent1", "20% - Accent2", _ "20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _ "40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _ "40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _ "60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _ "Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _ "Bad", "Calculation", "Check Cell", "Comma", "Comma [0]", "Currency", _ "Currency [0]", "Explanatory Text", "Good", "Heading 1", "Heading 2", _ "Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _ "Note", "Output", "Percent", "Title", "Total", "Warning Text" 'Do nothing, these are the default styles Case Else CurStyle.Delete End Select Next CurStyle 'Open a new workbook. Set tempBook = Workbooks.Add 'Disable alerts so you may merge changes to the Normal style 'from the new workbook. Application.DisplayAlerts = False 'Merge styles from the new workbook into the existing workbook. MyBook.Styles.Merge Workbook:=tempBook 'Enable alerts. Application.DisplayAlerts = True 'Close the new workbook. tempBook.CloseEnd Sub
Reference
Dodatne informacije o načinu korištenja oglednog koda u ovom članku potražite u članku iz Microsoftove baze znanja pod brojem
290140 Kako pokrenuti ogledni kod iz članaka iz baze znanja
