Shape ausblenden

14.09.2021 11:31:22

Michael

Hallo zusammen, und ich Danke schon einmal vorab.
Situation:
Arbeitsblatt geöffnet mit sichtbaren Shape.
Shape mit Makro hinterlegt (UserForm Modal laden und 10 weitere Arbeitsblätter über GetObjects)
Das Shape auf dem Arbeitsblatt soll beim Laden der Userform ausgeblendet werden.
Dies passiert aber erst nachdem die 10 Arbeitsblätter geladen wurden.
Gibt es eine Moglichkeit des Arbeitsblattes wie bei der UserForm über Repaint oder einen anderen Weg ?
Freundliche Grüße besten Dank
Michael

AW: ...und der Code bleibt Dein Geheimis? (owT)

14.09.2021 12:52:34

EtoPHG

AW: ...und der Code bleibt Dein Geheimis? (owT)

14.09.2021 14:19:42

Michael

Hallo, natürlich nicht.
Das "Shape" heißt "Rechteck 1" und ruft das Makro "Laden" im "Modul1" auf.


Sub Laden()
ActiveSheet.Shapes.Range(Array("Rechteck 1")).Visible = False
UserForm1.Show vbModal
GetObject (ThisWorkbook.Path & "\Mappe2.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe3.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe4.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe5.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe6.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe7.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe8.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe9.xlsx")
GetObject (ThisWorkbook.Path & "\Mappe10.xlsx")
End Sub

Dies ist ein reiner Testcode.
Shape wird nicht sofort ausgeblendet, sondern erst nachdem die Routine komplett abgearbeitet wurde.
Das Shape sollte, wenn möglich, vor dem laden der "UserForm1" ausgeblendet werden.
Danke nochmals für Eure Mühen und ich entschuldige mich wenn die Aufgabenstellung nicht eindeutig war.
Machmal ist man einfach zu tief in der Materie und übersieht für andere ein Verständnisproblem.
Gruß
Michael

AW: ...und der Code bleibt Dein Geheimis? (owT)

14.09.2021 14:41:39

Nepumuk

Hallo Michael,
teste mal:


Sub Laden()
ActiveSheet.Shapes.Range(Array("Rechteck 1")).Visible = False
DoEvents
UserForm1.Show vbModal
.

Gruß
Nepumuk

Shape ausblenden

Forumthread: Shape ausblenden

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Shape ausblenden

Forumthread: Shape ausblenden

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread