Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1256to1260
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
UserForm langsam einblenden
Mister-B
Hallo,
auf der Suche nach einem EM 2012 Spielplan auf Excel-Basis habe ich im Netz so einiges gefunden. Bei einem Plan wird eine UserForm von oben bis unten ganz langsam eingeblendet. Weiss jemand wie sowas in VBA geht? Ich weiss leider nicht ob ich den Link hier posten darf.
Gruß
Martin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
..der ist nicht schlecht ! aber..
04.04.2012 19:08:49
robert
Hi,
das Projekt ist Passwort geschützt.
Aber gut gemacht !
Gruß
robert
PS:Tante Google hat mir den Link verraten -EM 2012+Excel - ;-)
AW: ..der ist nicht schlecht ! aber..
04.04.2012 19:20:39
Mister-B
Schade!
Gut gemacht finde ich es auch.
Gruß
Martin
AW: ..der ist nicht schlecht ! aber..
04.04.2012 20:38:59
Tino
Hallo,
vielleicht könnte es so gehen.
Mit der Geschwindigkeit (Sleep 300) und den
Schritten (Me.Top = Me.Top + 10) müsste man noch etwas spielen
um ein gutes Ergebnis zu bekommen.
kommt als Code in UserForm1
Option Explicit 
 
Private Declare Function GetSystemMetrics Lib "user32" _
  (ByVal nIndex As Long) As Long 
 
Dim sngTopSoll As Single 
 
Private Sub UserForm_Activate() 
Do While sngTopSoll > Me.Top 
    Me.Top = Me.Top + 10 
    Me.Repaint 
    DoEvents 
    Sleep 300 
Loop 
End Sub 
 
 
Private Sub UserForm_Initialize() 
sngTopSoll = GetSystemMetrics(1) * 0.75 / 2 - Me.Height / 2 
Me.Left = GetSystemMetrics(0) * 0.75 / 2 - Me.Width / 2 
Me.StartUpPosition = 0 
Me.Top = -Me.Height 
End Sub 
kommt als Code in Modul1
Option Explicit 
 
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
Gruß Tino
Anzeige
AW: UserForm langsam einblenden
04.04.2012 20:26:54
Mister-B
Hallo Hajo,
das sieht echt klasse aus! Es gibt die UFs das Windows 7 Feeling.
Danke
Martin

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige