Como redefinir uma pasta de trabalho por meio de programação para estilos padrão

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 291321
Para uma versão deste artigo do Microsoft Excel 2000, consulte 247933.
Para uma versão deste artigo do Microsoft Excel 98, consulte 247981.
Para uma versão deste artigo do Microsoft Excel 97, consulte 247980.
Para uma versão deste artigo do Microsoft Excel 7.0, consulte 247982.
Sumário
O seguinte Microsoft Visual Basic para aplicativos sub procedimento remove todos os estilos em uma pasta de trabalho do Microsoft Excel e, em seguida, adiciona novamente os estilos padrão que você ver em uma nova pasta de trabalho. Esta macro pode ser útil para remover estilos extras adicionados a uma pasta de trabalho que esteja infectada por um vírus de macro.

Essa macro usa o método Workbooks.Add , que ignora modelos nos diretórios de inicialização. Devido a isso, ele funciona corretamente mesmo modelos em diretórios inicialização tiveram estilos extras adicionados a eles.
Mais Informações
Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades. A macro a seguir remove os estilos da pasta de trabalho ativa no momento. Se você digitar este código em uma nova pasta de trabalho, certifique-se ativa a pasta de trabalho do qual você deseja redefinir os estilos antes de executar a macro.
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
Referências
Para obter mais informações sobre como usar o código de exemplo neste artigo, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
290140A execução de código de exemplo de artigos da Base de dados de Conhecimento
OfficeKBHowTo Laroux BINVCAR PLDT PLDT97 A um SGV LOCAS Big_Dork Binv.xls Car.xls Pldt.xls A-a.xls Negs.xls Sgv.xls Vera.xls pessoal.xls Person2.xls Sing.xls Auto_Open Check_Files Cecelia VIRUS-EDY NEG promoção Foxz WENDY inf XL2002 XL2003 XL2007

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 291321 - Última Revisão: 05/08/2007 17:59:07 - Revisão: 5.0

Microsoft Office Excel 2007, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition

  • kbmt kbdtacode kbhowto KB291321 KbMtpt
Comentários