I’m one of those guys that can’t read a word I don’t know without looking it up. It’s a sickness, really. I used to go to dictionary.com all the time, but there wasn’t any way to save the words I was looking up. I put together this add-in to look up words and be able to save them. It’s not perfect, but it suits my needs.
Here’s a screen shot. Let me know what you think.
It may put a toolbar button on one of your toolbars, sorry about that. You can delete the Workbook_Open sub to stop that annoying behavior.
The OnAction property can be used to assign a macro to various objects, such as a Shape, a CommandBarControl, or a CommandButton (from the Forms toolbar). If you need to assign a macro that takes an argument to one of those objects, you can do it – you just have to get the single and double quotes right. Here’s an example:
Dim sArg As String
sArg = “This is a test”
Sheet1.Shapes(1).OnAction = “‘ShowAnArgument ““” & sArg & “”“‘”
Sub ShowAnArgument(sArg As String)
This assumes that there is a Forms toolbar CommandButton on Sheet1 and that it is the first Shape in the Shapes collection. Clicking the CommandButton after running SetButton should produce the argument passed to it. The string that is assigned to OnAction looks like this
‘ShowAnArgument “This is a test”‘
Note that if the argument is numeric, you don’t need the double quotes around it.