Ist es möglich, in einem Makro einen Eintrag in der Statuszeile zu erzeugen? Ich dachte, ich hätte hier mal was darüber gelesen, bin aber nicht fündig geworden.
Hintergrund: In einem Makro werden alle reduzierten Teile einer Baugruppe vollständig geladen, das kann natürlich lange dauern.
Da möchte ich einen sichtbaren Zähler anzeigen, der dem Benutzer sagt, wieviele Teile noch geladen werden müssen.
Alternativ wäre es natürlich auch möglich, ein Formular mit einem Labeltext einzublenden, aber bei meinem Versuch ist das Makro dann mit dem Aufruf des Formulars dort stehen geblieben. Wie kriegt man VBA dazu, im Programm weiterzumachen?
Piet
Hier der provisorische Code für die Alternative mit dem Formular:
frmVollständigLaden.lblLadevorgang.Caption = ModelDoc.GetLightWeightComponentCount & " reduzierte Teile werden vollständig geladen"
frmVollständigLaden.Show
lRet = ModelDoc.ResolveAllLightWeightComponents(True) '(False) 'lädt alle Komponenten vollständig
If lRet = 3 Then
MsgBox "Eine Komponente konnte nicht vollständig geladen werden", vbCritical, "Fehler"
End If
frmVollständigLaden.Hide
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP