Certainly did!
Will post it to the files area if that is allowed?
Dr B
On 5 January 2012 18:23, <1z@compuserve.com> wrote:
>
> 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
>
> ----------------------------------Yahoo! Groups Links
>
>
>
--
===========================
http://uk.linkedin.com/in/drjohnbullas
----------
DUMMY DATA
[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