http://support.microsoft.com/default.aspx?scid=kb;en-us;166755
File Title: Customizing Menu Bars, Menus, and Menu Items in Microsoft(R)
Excel 97
File Name: WE1183.EXE
File Size: 58041 bytes
File Date: 06/20/97
Keywords: kbfile kbappnote
Description: This Application Note can help you learn techniques for writing
Visual Basic(R) for Applications code to customize menus in Microsoft Excel
97. This Application Note contains code examples that you can use with the
following elements: menu bars, menus, menu items, submenus, and shortcut
menus.
Try putting this in Personal.xls, or an xla. add-in:
Sub ValuesOnly()
Application.ScreenUpdating = False
On Error Resume Next
If Application.CutCopyMode = False Then
With Selection
.Copy
.PasteSpecial xlValues
End With
With Application
.ScreenUpdating = True
End With
Else
Selection.PasteSpecial xlValues
End If
Application.CutCopyMode = False
End Sub
Sub AddControl()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Values"
.FaceId = 1183
.OnAction = "ValuesOnly"
End With
End Sub
Jason
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.