Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fenster überlappen variabel???

Fenster überlappen variabel?
10.05.2006 10:09:08
Maier
Hi VBA-Gurus!
Ich habe mir eine eigene Symbolleiste gebastelt, in der ich verschiedene Standard-Menübefehle von EX direkt, starten kann (also ohne Umweg über die EX-Standardmenüs).
unter anderem einen Menübefehl für Fenster überlappen:

Sub FensterÜberlappen()
Windows.Arrange ArrangeStyle:=xlHorizontal
Windows.Arrange ArrangeStyle:=xlVertical
Windows.Arrange ArrangeStyle:=xlCascade
End Sub

Gibt es nun eine Möglichkeit, diese verschiedenen Überlappungsvarianten in ein und dem selben Makro abrufbar zu gestalten?
Also zB.
1. Maus-Click: Windows.Arrange ArrangeStyle:=xlHorizontal
2. Maus-Click: Windows.Arrange ArrangeStyle:=xlVertical
3. Maus-Click: Windows.Arrange ArrangeStyle:=xlCascade
Vorweg 1000 Dank für Eure Mühe
KLaus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fenster überlappen variabel?
10.05.2006 10:20:15
EtoPHG
Hallo Klaus,
Vielleicht so:

Option Explicit
Public iClickCnt As Integer
Sub FensterÜberlappen()
iClickCnt = iClickCnt + 1
Select Case iClickCnt
Case 1
Windows.Arrange ArrangeStyle:=xlHorizontal
Case 2
Windows.Arrange ArrangeStyle:=xlVertical
Case 3
Windows.Arrange ArrangeStyle:=xlCascade
iClickCnt = 0
End Select
End Sub

Gruss Hansueli
AW: Fenster überlappen variabel?
10.05.2006 10:34:49
Maier
Thanx Hansueli, ich verneige mich !!!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige