Update FL.bas

This commit is contained in:
fleetside72 2017-04-05 09:53:14 -04:00 committed by GitHub
parent 51164251a5
commit 730b2667d3

8
FL.bas
View File

@ -357,6 +357,7 @@ errh:
End Sub End Sub
Sub CollapsePvtItem() Sub CollapsePvtItem()
On Error GoTo show_det On Error GoTo show_det
@ -515,4 +516,11 @@ Sub ColorMatrixExtract()
End Sub End Sub
Sub SetPivotShortcutKeys()
Call Application.MacroOptions("PERSONAL.xlsb!CollapsePvtFld", "", , , , "A")
Call Application.MacroOptions("PERSONAL.xlsb!CollapsePvtItem", "", , , , "Z")
Call Application.MacroOptions("PERSONAL.xlsb!ExpandPvtFld", "", , , , "S")
Call Application.MacroOptions("PERSONAL.xlsb!ExpandPvtItem", "", , , , "X")
End Sub