Demo Scrolling Message display using a chart

Just a bit of fun to demo how you can create a scrolling dot matrix message display using a bit of VBA and charts.

Sub DotMatrix()
Dim lngIndex As Long

ColourNum = 3
ColourSelect

DispState = Sheet2.CheckBox1.Value
Sheet2.CheckBox1.Value = True

Sheet2.Range("C58").Value = 1
'Exit Sub
With Worksheets("LCD")
For lngIndex = 0 To (Len(.Range("DISPLAYTEXT").Value) * 6) Step 1
.Range("SLICE").Value = lngIndex
Range("C2").Select
DoEvents
Next
End With

'Reset To Static Message
ColourNum = 4
ColourSelect
Sheet2.Range("C58").Value = 0
Sheet2.Range("D55").Value = 0
Range("C2").Select
DoEvents

Sheet2.CheckBox1.Value = DispState
'FlashMsg

End Sub

AttachmentSize
Dot Matrix rev a.xls283.5 KB