Locking a button postion so that it doesn't scroll with the worksheet

Guzziguy · #1 03-14-2018, 07:02 AM

Is there a way to lock an Activex CommandButton in a specific position so that it doesn't scroll with the underlying worksheet; for example place the button in the middle of the screen and make it remain there whilst the worksheet is scrolled horizontally or vertically behind it?

I could do it with Freeze Panes but I'd rather have the entire screen scrollable.

Logit · #2 03-14-2018, 08:27 AM

.
Paste into a Routine Module :

Code:

Option Explicit

Private eTime
Sub ScreenRefresh()
    With ThisWorkbook.Worksheets("Sheet1").Shapes(1)
        .Left = ThisWorkbook.Windows(1).VisibleRange(2, 2).Left
        .Top = ThisWorkbook.Windows(1).VisibleRange(2, 2).Top
    End With
End Sub

Sub StartTimedRefresh()
    Call ScreenRefresh
    eTime = Now + TimeValue("00:00:01")
    Application.OnTime eTime, "StartTimedRefresh"
End Sub

Sub StopTimer()
    Application.OnTime eTime, "StartTimedRefresh", , False
End Sub

Pate into the ThisWorkbook module :

Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
End Sub

Private Sub Workbook_Open()
StartTimedRefresh
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Microsoft Word doesn't scroll with my typing like I'd want	muiy	Word	5	05-02-2023 06:14 PM
Word doesn't scroll to bottom of page	otuatail	Word	15	02-25-2017 07:14 AM
Activate Worksheet with button in Excel 2013	JTS	Excel	1	08-25-2013 12:02 AM
Page does not actively scroll with click, hold and drag on scroll-bar	jbax	Word	1	05-09-2013 07:16 PM
Insert table button doesn't work in Outlook 2010 e-mail message	ironwoods	Outlook	0	08-02-2010 12:24 PM