AW: ActiveX mit Makros einfügen
26.12.2014 01:05:40
Mullit
Hallo,
Bei Einfügen von ActiveX-Controls geht Excel/VBA bis zum Ende des Prozedurdurchlaufs in den Entwurfsmodus, deswegen versagt das Einzelschritt-Debugging.
Und obacht: bei diesem Vorgang werden sämtliche öffentlichen und statischen Variablen zurückgesetzt, sowie alle virtuellen Klassen 'zerstört'.
Zugriff auf Variablen ginge z.B. so:
Option Explicit
Public Sub test()
Dim lblLabel As MSForms.Label
Dim cboComboBox As MSForms.ComboBox
With ActiveSheet.OLEObjects
Set cboComboBox = .Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=249, Top:=102, Width:=76.5, Height:=56.25).Object
Set lblLabel = .Add(ClassType:="Forms.Label.1", Link:=False, _
DisplayAsIcon:=False, Left:=400.5, Top:=109.5, Width:=121.5, Height:=40.5).Object
End With
With cboComboBox
MsgBox lblLabel.Name & vbCr & .Name & _
vbCr & .ListCount
End With
Set lblLabel = Nothing
Set cboComboBox = Nothing
End Sub
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 12
Gruß,