Oops,
Sorry Dawn...
Didn't see you had already posted this...
Happy new year to you and your family!!!
Lisa
-----Original Message-----
From: dlbleuel <dlbleuel@gmail.com>
To: ExcelVBA <ExcelVBA@yahoogroups.com>
Sent: Sun, Jan 1, 2012 4:28 am
Subject: [ExcelVBA] Countdown Display
http://tech.groups.yahoo.com/group/ExcelVBA/files/Files%20Needing%20Help/Countdown%20Display/
ood Evening
The the files located in the above folder is my attempt at creating a countdown
imer 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
he worksheet to deliver a frame with a display in it, like Powerpoint
The counter is decrimented (counted down) using a dummy data source (
ummy-data.txt )which is interrogated every minute to force a refresh of now()
uite sweet I thought
The problem I have is in restoring the toolbars as I can't work out the opposite
reversal) of:
=========================
ub 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
nd 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
outhampton UK
==========================
ttp://uk.linkedin.com/in/drjohnbullas
-----------------------------------
----------------------------------
e sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here:
ttp://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES
or EXCEL VBA.
----------------------------------
isit our ExcelVBA group home page for more info and support files:
ttp://groups.yahoo.com/group/ExcelVBA
----------------------------------
ore free tutorials and resources available at:
ttp://www.mousetrax.com
----------------------------------Yahoo! Groups Links
Individual Email | Traditional
http://docs.yahoo.com/info/terms/
[Non-text portions of this message have been removed]
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