Código de Visual Basic no se ejecuta cuando utilice la propiedad OnAction en Project 2007

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

Haga clic aquí para ver el artículo original (en inglés): 923586
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Síntomas
Utilice la propiedad OnAction para establecer el código de Microsoft Visual Basic para ejecutar cuando se hace clic en un control de barra de comandos en Microsoft Office Project 2007. Sin embargo, al hacer clic en el control de barra de comandos, el código no se ejecuta.
Causa
Este comportamiento se produce porque Project 2007 no admite la propiedad OnAction . Por lo tanto, el código no se ejecuta al hacer clic en el control de barra de comandos en Project 2007.
Más información
El código siguiente es un ejemplo de código en el que experimenta el síntoma en la sección "Síntomas". Este código crea los siguientes elementos:
  • Una barra de comandos que se denomina "Mi menú"
  • Un botón de barra de comando que se denomina "Hola"
Al hacer clic en el botón de barra de comandos Hola , un cuadro de mensaje que contiene el texto "¡ Hello!" no aparece.
Public Sub TestMenu()    Dim customBar As CommandBar    Dim newButton As CommandBarButton        Set customBar = CommandBars("Menu Bar")    customBar.Reset        Set mymenu = CommandBars("Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=7)    mymenu.Caption = "My Menu"        Dim command As CommandBarButton    Set command = mymenu.Controls.Add        command.Caption = "Say Hello"    command.OnAction = "msgbox ""Hello!"""    End Sub

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 923586 - Última revisión: 01/16/2015 15:42:01 - Revisión: 1.3

Microsoft Office Project Professional 2007, Microsoft Office Project Standard 2007

  • kbnosurvey kbarchive kbmt kbprogramming kbautomation kbprb kbtshoot kbcode kbexpertiseinter KB923586 KbMtes
Comentarios