Return Freeze panes location

trevorc · #1 09-17-2018, 04:37 PM

Thanks for the reply, I can see what your doing, but it seems a bit long winded for me, I did find that using .SplitRow And .SplitColumn I can determine the location faster, I will update my code when I get a chance.

trevorc · #2 09-18-2018, 01:22 PM

Turns out it was easy,

Code:

Sub Freeze_Panes() 'button click macro to freeze panes at row 4 and col A or Col H
    If ActiveWindow.SplitRow = 3 And ActiveWindow.SplitColumn = 7 Then
       ActiveWindow.SplitRow = 3
       ActiveWindow.SplitColumn = 0
       ActiveWindow.FreezePanes = True
       ActiveSheet.Shapes("FP").TextFrame.Characters.Text = "Freeze" & vbCrLf & "Pane"
    Else
       ActiveWindow.SplitRow = 3
       ActiveWindow.SplitColumn = 7
       ActiveWindow.FreezePanes = True
       ActiveSheet.Shapes("FP").TextFrame.Characters.Text = "Un-Freze" & vbCrLf & "Pane"
   End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Default location for the Office Document Cache Server drafts location.	dianahbr	Office	0	03-02-2018 12:37 PM
Return to previous location in Word 2016	stevelsd	Word	2	09-30-2017 06:18 AM
How to Customize Outlook Panes	Steve_B	Outlook	0	07-08-2014 09:05 AM
Freeze more than just the top row, or first column	Gary Drumm	Excel	4	07-23-2013 11:34 AM
Outlook 2007 win7x32 Archive location/backup location question	michael.monaco	Outlook	0	11-19-2012 02:07 PM