Re: Removing/restoring toolbars

Tech-Archive recommends: Speed Up your PC by fixing your registry

These commands control the display of the scrollbars:

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With

With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With


--
Regards,
Tom Ogilvy



"peter.thompson"
<peter.thompson.22hhny_1138685401.5526@xxxxxxxxxxxxxxxxxxxxx> wrote in
message news:peter.thompson.22hhny_1138685401.5526@xxxxxxxxxxxxxxxxxxxxxxxx
>
> I am using the sub below to remove/restore toolbars. This code also
> removes the horizontal scroll bar. What do I need to change to ensure
> the horizontal toolbar is always visible?
>
> Any help much appreciated.
>
> Cheers,
>
> Peter
>
> Sub RemoveToolbars()
> On Error Resume Next
> With Application
> DisplayFullScreen = True
> CommandBars("Full Screen").Visible = False
> CommandBars("Work*** Menu Bar").Enabled = False
> End With
> On Error GoTo 0
> End Sub
>
> Sub RestoreToolbars()
> On Error Resume Next
> With Application
> DisplayFullScreen = False
> CommandBars("Work*** Menu Bar").Enabled = True
> End With
> On Error GoTo 0
> End Sub
>
>
> --
> peter.thompson
> ------------------------------------------------------------------------
> peter.thompson's Profile:
http://www.excelforum.com/member.php?action=getinfo&userid=29686
> View this thread: http://www.excelforum.com/showthread.php?threadid=506662
>


.

Quantcast