Recréation d'un contrôle ActiveX avec des événements VBA, à l'aide de VBA

Question

J'ai une liste déroulante qui contient plusieurs événements liés (par exemple, ComboBox1_Change, Click, GotFocus, LostFocus). Pour mes besoins, j'ai besoin d'utiliser un contrôle ActiveX.

Pour des renseignements généraux:

je suis tombé sur un problème où les glitches de contrôle ActiveX lorsque la machine est attaché à un projecteur. D'autres ont eu le même problème, mais pas de solution. Le meilleur moyen que j'ai trouvé pour résoudre ce problème est de créer un bouton supplémentaire sur lequel l'utilisateur peut cliquer pour supprimer le contrôle ActiveX et le recréer.

Le problème est (et ma question) ... Lorsque je fais cela, les événements VBA ne s'exécutent plus. Le contrôle est nommé exactement le même. Y at-il un correctif simple (comme la propriété dans le contrôle ActiveX que je peux définir), de sorte que je n'ai pas besoin d'écrire du code VBA pour supprimer et réécrire le code VBA existant (que je ne suis pas sûr à 100%?) ?

Answer 1

Cela semble fonctionner pour moi, dans une feuille de calcul:

Démarrer avec 2 boutons de commande sur une feuille de calcul: CommandButton1 et CommandButton2.

Vous ne pouvez pas parcourir le code, mais il va s'exécuter.

Option Explicit 

Private Sub CommandButton1_Click() 
    Dim oldObj As OLEObject 
    Dim left As Double, top As Double, width As Double, height As Double 
    Set oldObj = Me.OLEObjects("CommandButton2") 

    With oldObj 
    'Rename the control to detach events 
    .Name = "CommandTEMP" 
    left = .left 
    top = .top 
    width = .width 
    height = .height 
    .Delete 
    End With 

    Dim newObj As Object 

    Set newObj = Me.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ 
     , DisplayAsIcon:=False, left:=left, top:=top, width:=width, height:=height) 

    newObj.Name = "CommandButton2" 

End Sub 

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
    Me.CommandButton2.Object.Caption = Timer 
End Sub