Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

UserForm langsam einblenden | Herbers Excel-Forum


Betrifft: UserForm langsam einblenden von: Mister-B
Geschrieben am: 04.04.2012 18:38:26

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

  

Betrifft: ..der ist nicht schlecht ! aber.. von: robert
Geschrieben am: 04.04.2012 19:08:49

Hi,

das Projekt ist Passwort geschützt.

Aber gut gemacht !

Gruß
robert

PS:Tante Google hat mir den Link verraten -EM 2012+Excel - ;-)


  

Betrifft: AW: ..der ist nicht schlecht ! aber.. von: Mister-B
Geschrieben am: 04.04.2012 19:20:39

Schade!

Gut gemacht finde ich es auch.

Gruß
Martin


  

Betrifft: AW: ..der ist nicht schlecht ! aber.. von: Tino
Geschrieben am: 04.04.2012 20:38:59

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


  

Betrifft: AW: UserForm langsam einblenden von: Hajo_Zi
Geschrieben am: 04.04.2012 20:12:58

Hallo Martin,

http://hajo-excel.de/chCounter3/getfile.php?id=115

GrußformelHomepage


  

Betrifft: AW: UserForm langsam einblenden von: Mister-B
Geschrieben am: 04.04.2012 20:26:54

Hallo Hajo,

das sieht echt klasse aus! Es gibt die UFs das Windows 7 Feeling.

Danke

Martin


Beiträge aus den Excel-Beispielen zum Thema "UserForm langsam einblenden"