Hi Dr B,
Did you eventually get an answer to this please?
Regards
Lisa
-----Original Message-----
From: Dr John C Bullas <john.bullas@gmail.com>
To: excelvba <excelvba@yahoogroups.com>
Sent: Sun, Jan 1, 2012 5:42 pm
Subject: [ExcelVBA] Excel driven countdown display VBA coding to restore toolbars
---------- Forwarded message ----------
rom: Dr John C Bullas <john.bullas@gmail.com>
ate: Sat, 31 Dec 2011 20:07:12 +0000
ubject: Excel driven countdown display VBA coding to restore toolbars
o: ExcelVBA-owner@yahoogroups.com
Good Evening
The attached file(
ountdown_display_v6_31-12-2011.xls<?ui=2&ik=1f01f936bb&view=att&th=13495b843c20e5f8&attid=0.2&disp=safe&realattid=f_gwv1w2h20&zw>)
s my
ttempt at creating a countdown timer using excel and VBA .
I know you can probably do it in a better way but I like a
hallenge
The sheet Sheet 2 holds the key variables
The code is composed of individual subroutines each of which
ide one element of the worksheet to deliver a frame with a display
n it, like Powerpoint
The counter is decrimented (counted down) using a dummy data
ource ( dummy-data.txt
?ui=2&ik=1f01f936bb&view=att&th=13495b90096c102b&attid=0.1&disp=safe&realattid=f_gwv1zorr1&zw>)which
s interrogated every minute to
orce a refresh of now() quite sweet I thought
The problem I have is in restoring the toolbars as I can't work out the
pposite (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
--
ent from my mobile device
===========================
ttp://uk.linkedin.com/in/drjohnbullas
----------
DUMMY DATA
Non-text portions of this message have been removed]
------------------------------------
----------------------------------
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