Mensagem de erro quando você cria uma barra de ferramentas personalizada no Excel: "Erro de tempo de execução '438'"

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: 287114
Sintomas
Quando você tenta criar uma barra de ferramentas personalizada no Microsoft Excel usando Basics Visual da Microsoft para código Applications (VBA), você receberá a seguinte mensagem de erro:
Erro em tempo de execução "438": objeto não oferece suporte a esta propriedade ou método.
Causa
Esse comportamento ocorre se você tentar criar um botão que exibe o símbolo de AutoSoma atribuindo o número de 39 ao botão. Entretanto, o Excel é não é possível criar um botão com esse número. Em seguida, ao tentar atribuir uma macro para o botão não existente, você recebe a mensagem de erro descrita na seção "Sintomas" deste artigo.
Como Contornar
Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita, incluindo, mas não se limitando às garantias implícitas de comercialização e/ou adequação a uma finalidade específica. Este artigo presume que você esteja familiarizado com a linguagem de programação demonstrada e as ferramentas usadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
Se você não tenha muita experiência de programação, talvez queira em contato com um Microsoft Certified Partner ou Microsoft Advisory Services. Para obter mais informações, visite da Microsoft:

Microsoft Certified Partners - https://partner.microsoft.com/global/30000104

Comunicado de Microsoft Services - http://support.microsoft.com/gp/advisoryservice

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como entrar em contato com a Microsoft, visite o seguinte site: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSPara contornar esse problema, digite ou cole o código a seguir o módulo VBA (você pode modificar este código para atender às suas necessidades específicas):
'Creates a four-button control bar with 'MyAutoSumButtonMacro assigned to the fourth button.'The macro names used in this example are simply placeholders.'You must substitute the names of macros that you create.Private Sub AddToolbar()   Dim tbb As Object   On Error Resume Next   Toolbars("Test").Delete   On Error GoTo 0   Set oTB = Toolbars.Add(Name:="Test")   With oTB      .Left = 117      .Top = 186      Set tbb = .ToolbarButtons.Add(Button:=23, Before:=1)      tbb.OnAction = ThisWorkbook.Name + "!InsertRowMacro"      Set tbb = .ToolbarButtons.Add(Button:=20, Before:=2)      tbb.OnAction = ThisWorkbook.Name + "!DeleteRowMacro"      Set tbb = .ToolbarButtons.Add(Button:=13, Before:=3)      tbb.OnAction = ThisWorkbook.Name + "!CopyMacro"  'Creates a button with the AutoSum symbol and   'assigns MyAutoSumButtonMacro to it.      CommandBars("Auto Sum").Controls("Sum").Copy Bar:=CommandBars _      ("Test"), Before:=4      Set tbb = CommandBars("Test").Controls("Sum")      tbb.Style = msoButtonAutomatic      tbb.OnAction = ThisWorkbook.Name + "!MyAutoSumButtonMacro"      .Width = 200      .Visible = True   End WithEnd Sub				
Situação
A Microsoft confirmou que este é um problema nos produtos da Microsoft listados no começo deste artigo.
XL2002 XL2003 XL2007

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 287114 - Última Revisão: 01/31/2007 19:10:19 - Revisão: 4.3

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

  • kbmt kbbug kberrmsg kbnofix KB287114 KbMtpt
Comentários