Navigation

    • Register
    • Login
    • Search
    • Recent
    • Popular

    Lancement macro dans menu

    ZWCAD 2020, 2019, 2018, etc
    1
    1
    471
    Loading More Posts
    • Oldest to Newest
    • Newest to Oldest
    • Most Votes
    Reply
    • Reply as topic
    Log in to reply
    This topic has been deleted. Only users with topic management privileges can see it.
    • ?
      Guest last edited by

      *** Copie du post par fbsoftware ****

      Je suis en cours de test de ZWCAD 2018. En VBA je crée un menu pour le lancement d'une macro, mais celle-ci ne se lance pas lorsque l'on clique sur le menu.

      Macro :

      If ThisDrawing.Application.MenuGroups.Count > 0 Then 
          Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) 
          
          Créer le nouveau menu 
          Set newMenu = currMenuGroup.Menus.Add("Millenium") 
          
          Ajouter les commandes dans le nouveau menu 
              
          openMacro = Chr(3) & Chr(3) & "-execvba EpureCAO" & Chr(32) 
          Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "Epure Plan CAO", openMacro) 
              
      
          Affiche le nouveau menu dans la toolbar 
          newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) 
                
      End If 
      

      Dans le menu ZWCAD, la macro apparaît bien.

      Au clic sur le menu, -execvba est bien lancé mais me demande de saisir le nom de la macro ?

      Si quelqu'un a une idée.

      Merci,

      1 Reply Last reply Reply Quote
      • First post
        Last post