[img]/intranet/images/icons/clear.gif[/img]
<SCRIPT language=vbscript>
Sub CustomizeToolbar()
Dim tb
Dim iCtr
Dim sButtonName
Dim ssConstants
Const CMD_PREFIX = "owc"
Set ssConstants = CompensationAS_18714_Spreadsheet.Constants
' Set a variable to the Spreadsheet control's toolbar.
Set tb = CompensationAS_18714_Spreadsheet.Toolbar
' Call a procedure that removes all commands from the toolbar.
ClearToolbar tb
CompensationAS_18714_Spreadsheet.DisplayHorizontalScrollBar = False
CompensationAS_18714_Spreadsheet.DisplayVerticalScrollBar = false
CompensationAS_18714_Spreadsheet.Height = 800
CompensationAS_18714_Spreadsheet.Width = 450
CompensationAS_18714_Spreadsheet.DisplayRowHeadings = false
CompensationAS_18714_Spreadsheet.DisplayColumnHeadings = false
CompensationAS_18714_Spreadsheet.DisplayToolbar = false
CompensationAS_18714_Spreadsheet.DisplayTitleBar = false
CompensationAS_18714_Spreadsheet.DisplayWorkbookTabs = false
'Set a variable to the name of the Copy button.
'sButtonName = CMD_PREFIX & ssConstants.ocCommandCopy
' Add the Copy button ot the toolbar.
'tb.Buttons.Add tb.Buttons.Count + 1, sButtonName, , 0, sButtonName
' Set a variable to the name of the Paste button.
'sButtonName = "owc" & ssConstants.ocCommandPaste
' Add the Copy button ot the toolbar.
'tb.Buttons.Add tb.Buttons.Count + 1, sButtonName, , 0, sButtonName
End Sub
Sub ClearToolbar(Toolbar)
For iCtr = 1 To Toolbar.Buttons.Count
Toolbar.Buttons.Remove 1
Next
End Sub
CompensationAS_18714_Spreadsheet.ActiveWindow.ScrollIntoView 0, 0, 0, 0
</SCRIPT>