MATLAB COM Builder

Adding The Spectral Analysis Menu Item to Excel

The last step in the integration process adds a menu item to Excel so that you can invoke the tool from Excel's Tools menu. To do this you add event handlers for the workbook's AddinInstall and AddinUninstall events that install and uninstall menu items. The menu item calls the LoadFourier function in the FourierMain module. Follow these steps to implement the menu item:

1. Right-click on the ThisWorkbook item in the Visual Basic project window and select View Code from the pop-up menu. See the next figure.

   

Figure 4-8: Adding a Menu Item to Excel

2. Place the code below into the ThisWorkbook object.

• Private Sub Workbook_AddinInstall()
  'Called when Addin is installed
      Call AddFourierMenuItem
  End Sub
  
  Private Sub Workbook_AddinUninstall()
  'Called when Addin is uninstalled
      Call RemoveFourierMenuItem
  End Sub
  
  Private Sub AddFourierMenuItem()
      Dim ToolsMenu As CommandBarPopup
      Dim NewMenuItem As CommandBarButton
      
      'Remove if already exists
      Call RemoveFourierMenuItem
      'Find Tools menu
      Set ToolsMenu = Application.CommandBars(1).FindControl(ID:=30007)
      If ToolsMenu Is Nothing Then Exit Sub
      'Add Spectral Analysis menu item
      Set NewMenuItem = ToolsMenu.Controls.Add(Type:=msoControlButton)
      NewMenuItem.Caption = "Spectral Analysis..."
      NewMenuItem.OnAction = "LoadFourier"
  End Sub
  
  Private Sub RemoveFourierMenuItem() 
  Dim CmdBar As CommandBar 
  Dim Ctrl As CommandBarControl 
  On Error Resume Next 
  'Find tools menu and remove Spectral Analysis menu item 
  Set CmdBar = Application.CommandBars(1) 
  Set Ctrl = CmdBar.FindControl(ID:=30007) 
  Call Ctrl.Controls("Spectral Analysis...").Delete 
  End Sub
  

Creating The Visual Basic Form

Saving the Add-in