Način programatematički vraćanje radne knjige na zadane stilove

Verzija ovog članka u programu Microsoft Excel 2000 potražite u članku .

Verzija ovog članka u programu Microsoft Excel 98 potražite u članku .

Verzija ovog članka u programu Microsoft Excel 97 potražite u članku .

Verzija ovog članka u programu Microsoft Excel 7,0 potražite u članku .

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

Kako pokrenuti ogledni kod iz članaka iz baze znanja

Potrebna vam je dodatna pomoć?

Proširite svoje vještine
Istražite osposobljavanje
Prvi koristite nove značajke
Pridružite se Microsoft Insidere

Jesu li ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×