http://tech.groups.yahoo.com/group/ExcelVBA/files/Files%20Needing%20Help/Countdown%20Display/
Good Evening
The the files located in the above folder is my attempt at creating a countdown timer using excel and VBA .
I know you can probably do it in a better way but I like a challenge
The sheet Sheet 2 holds the key variables
The code is composed of individual subroutines each of which hide one element of the worksheet to deliver a frame with a display in it, like Powerpoint
The counter is decrimented (counted down) using a dummy data source ( dummy-data.txt )which is interrogated every minute to force a refresh of now() quite sweet I thought
The problem I have is in restoring the toolbars as I can't work out the opposite (reversal) of:
=========================
Sub RemoveAllToolbars()
Dim toolBar As CommandBar
Dim toolBarNum As Integer
Dim toolBarSheet As Worksheet
Set toolBarSheet = Sheets("Sheet1")
Application.ScreenUpdating = False
toolBarSheet.Cells.Clear
toolBarNum = 0
For Each toolBar In CommandBars
If toolBar.Type = msoBarTypeNormal Then
If toolBar.Visible Then
toolBarNum = toolBarNum + 1
toolBar.Visible = False
toolBarSheet.Cells(toolBarNum, 1) = toolBar.Name
End If
End If
Next toolBar
Application.ScreenUpdating = True
End Sub
========================
Which happily logs and removes all the toolbar icons!
Could someone help me out here? How do I get them back?? :)
Happy New Year, Merry Christmas etc!!!!
Dr B
Southampton UK
===========================
http://uk.linkedin.com/in/drjohnbullas
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
Tidak ada komentar:
Posting Komentar