Laufschrift in Userform einbinden

Forumthread: Laufschrift in Userform einbinden

22.11.2002 15:26:41

Peter Knierim

Hallo,

habe in Archiv schon etwas Hilfe gefunden und das Makro bearbeitet.
Funktioniert auch doch leider bekomme ich nach dem Schliessen der UserForm eine Fehlermeldung Laufzeitfehler 91

"Objektvariable oder With Blockvariable nicht festgelegt."

Kann mir jemand helfen wo mein Fehler liegt.

Auszug aus dem Makro

Für Test Userform frmMarquee
WebBrowser1

Private Sub UserForm_Initialize()
Dim sPath As String
Dim sFile As String

WebBrowser1.Navigate ""
sPath = Application.DefaultFilePath & "\marquee.htm"
Call CreateHTML(sPath)
sFile = Application.DefaultFilePath & "\marquee.htm"
Call CreateHTML(sFile)
With frmMarquee
.WebBrowser1.Navigate sPath
.WebBrowser1.Navigate url:=sFile
.Show
End With
Kill sFile
End Sub

Sub CreateHTML(sPath As String)
Open sPath For Output As #1
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, " "
Print #1, " "
Print #1, ""
Close
End Sub

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Laufschrift in Userform einbinden

22.11.2002 15:37:14

Hajo_Zi

Re: Laufschrift in Userform einbinden

22.11.2002 15:37:14

Hajo_Zi

Hallo Peter

ich habe Dein Bispiel jetzt nicht getestet, abe hier mal eine Code für Laufschrift in der Titelzeile der Userform.

' ************************************************************** ' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...) ' **************************************************************

Option Explicit Private Sub CommandButton1_Click() UserForm1.Show End Sub


' **************************************************************

'  Modul:  UserForm1  Typ = Userform

' **************************************************************
Option Explicit

' von GraFriPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim Text        As String

Dim Stopped     As Integer

	

Private Sub UserForm_Initialize()

	Text = "   Das ist der Lauftext für die Titelleiste   "     'Text für die Titelleiste

	Stopped = 1

End Sub

	

Private Sub UserForm_Layout()

	Call Scroll_Text

End Sub

	

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

	Stopped = 1

End Sub

	

Private Sub Scroll_Text()

	Dim LeftChar    As String

	Stopped = 0

	Do

		LeftChar = Left$(Text, 1)

		Text = Right$(Text, Len(Text) - 1) & LeftChar

		Me.Caption = Text

		Call Pause(100, 1)  'Tempo der Laufschrift

	Loop Until Stopped = 1

End Sub

	

Private Sub Pause(ByVal Pau As Single, ByVal DoEv As Integer)

	Call Sleep(Pau)

	If DoEv = 1 Then DoEvents

End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Laufschrift in Userform einbinden

Forumthread: Laufschrift in Userform einbinden

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread