Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub pfeil_blinken()
Dim i As Byte
For i = 1 To 10
With ActiveSheet
.Shapes("Line 1").Line.ForeColor.SchemeColor = 10
Sleep 500
DoEvents
.Shapes("Line 1").Line.ForeColor.SchemeColor = 1
Sleep 500
DoEvents
End With
Next
End Sub
Sub pfeil_blinken()
Do
With ActiveSheet
.Shapes("Line 1").Line.ForeColor.SchemeColor = 10
Sleep 500
DoEvents
.Shapes("Line 1").Line.ForeColor.SchemeColor = 1
Sleep 500
DoEvents
End With
Loop
End Sub
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub pfeil_blinken()
Do
With ActiveSheet
.Shapes("Line 1").Line.ForeColor.SchemeColor = 10
Sleep 500
DoEvents
.Shapes("Line 1").Line.ForeColor.SchemeColor = 1
Sleep 500
DoEvents
End With
Loop
End Sub
Richtig, oder. Leider bringt er mir wieder eine Fehlermeldung:"Laufzeitfehler .. Das Element mit dem angegebenen Namen wurde nict gefunden" Liegt das daran, dass ich einen anderen Pfeil verwendet habe oder an der Zeile "Private Declare
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)"?
Oder woran sonst? Wie kann ich das Problem in Gänze lösen?
Vielen Dank Herbert.
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub pfeil_blinken()
Do
With ActiveSheet
.Shapes("1").Line.ForeColor.SchemeColor = 10
Sleep 700
DoEvents
.Shapes("1").Line.ForeColor.SchemeColor = 1
Sleep 700
DoEvents
End With
Loop
End Sub
Es arbeitet auch und gibt keine Fehlermeldung mehr an - blinkt aber nicht.
Hast Du hierfür eine Begründung? Was nun?