Discussion :

[waner72]

Bonjour à tous.
Je suis débutant dans le VBA, j'essaye de découvrir les fonction tous seul en vue de repondre aux attentes de mon tuteur pour mon futur stage.
Je dois créér une bibliotèque sur autocad(genre differents profilés), pour cela j'ai besoin de créér un menu "bibliotèque" avec deroulement.
J'orai besoin de lumières pour concevoir ce menu et aussi pour savoir comment integrer les éléments dedans.
Je suis vraiment bloqué........hELP!!
Merci

[tazamorte]

regarde les objets commandbars avec les différents type "tools" "popmenu" etc...

[waner72]

Cette commande se situe ou?
car je ne la trouve pas...
merci

[tazamorte]

Exemple pour ajouter dans le menu office un bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.CommandBars("Tools").Controls.Add(msoControlButton)

'menu déroulant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
With CommandBars("Tools").Controls.Add(msoControlPopup)
 
    .Caption = "Gestion d'un produit"
End With

[SfJ5Rpw8]

bonsoir waner72 ... on pourrai en savoir plus sur cette bibliotéque..... ? que doit elle contenir ...? des blocs symboles autocad...?...

[waner72]

Cette bibliotheque doit contenir differents types de profilé sous forme dessin et que l'on peut inserer en cliquant un point ou en donnant les coordonnées d'entrées.
J'ai reussi à créér le menu "bibliotheque", et maintenant il faut que je crée des sous menu qui correspondent chacun à un type de profilé.
Donc je supose que c'est sous forme de macro...
Merci


le code pour créér un menu "bibliotheque" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub biblio
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.add("bibliotheque")
End Sub