Autor
|
Thema: UserForm für Selection minimieren - danach wieder in den Vordergrund bringen (1212 mal gelesen)
|
martin2 Mitglied Konstrukteur
Beiträge: 941 Registriert: 05.2002.27
|
erstellt am: 27. Sep. 2019 13:43 <-- editieren / zitieren --> Unities abgeben:
Hallo, folgendes Szenario: Ich habe ein VBA-Marko mit UserForm in welchem ich eine Ebene selektiere. Wie schaffe ich es, dass für die Selektion der Ebene die UserForm minimiert wird und anschließend (nach der Selektion) wieder in den Vordergrund kommt? Anbei ein paar Codeschnipsel: Dim sFilter(0) sFilter(0) = "PlanarFace" MsgBox "Bitte die Ebene auswählen." 'Me.Hide Dim status As String status = selection1.SelectElement2(sFilter, "Bitte die Ebene auswählen.", False) If status <> "Normal" Then Exit Sub End If MsgBox selection1.Name selection1.Clear 'Me.Show Danke und Gruß Martin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 27. Sep. 2019 13:51 <-- editieren / zitieren --> Unities abgeben: Nur für martin2
|
martin2 Mitglied Konstrukteur
Beiträge: 941 Registriert: 05.2002.27
|
erstellt am: 27. Sep. 2019 14:00 <-- editieren / zitieren --> Unities abgeben:
Hallo, Danke für die Hilfe! Grundsätzlich wird damit die UserForm ausgeblendet und ich kann die Ebene selektieren. Anschließend kommt die UserForm auch wieder zum Vorschein. Allerdings ist die Geschichte irgendwie noch nicht fertig. Das Makro bleibt stehen und macht nicht mehr weiter. Woran kann das liegen??? Gruß Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 27. Sep. 2019 14:37 <-- editieren / zitieren --> Unities abgeben: Nur für martin2
Hallo, keine Ahnung was das Makro machen soll, ich wäre jetzt davon ausgegangen das die ausgewählte Ebene in irgendeiner Form weiterverarbeitet wird. Vielleicht beschreibst du mal deine Aufgabe und postest deinen Code (zumindest auszugsweise). Gruß Randle ------------------ Wer für nichts steht, fällt für alles! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
martin2 Mitglied Konstrukteur
Beiträge: 941 Registriert: 05.2002.27
|
erstellt am: 30. Sep. 2019 07:16 <-- editieren / zitieren --> Unities abgeben:
|
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 30. Sep. 2019 08:06 <-- editieren / zitieren --> Unities abgeben: Nur für martin2
|
martin2 Mitglied Konstrukteur
Beiträge: 941 Registriert: 05.2002.27
|
erstellt am: 30. Sep. 2019 08:23 <-- editieren / zitieren --> Unities abgeben:
|