Errata request for Office VBA Macros

[Derek Brown]

There appears to be a section of code missing from the 'Outlook Porcedures' example on page 270/271 (creating 'New Button' to run 'MyMacro')of Office VBA Macros You Can Use Today.
An errata web page would be useful, please.

 

[MrExcel]

Thanks for catching this. I will put together an errata page. In the meantime, here is the correct code:

Following code additionally shows how to create a custom control button in other Office applications.

'***********************************************************
'Copy and paste the following code into a standart module
'CreateCommandButton macro to create the new button
'RemoveCommandButton macro to create the new button
'***********************************************************
Option Explicit

Public Sub CreateCommandBarButton()

  'Remove the button if it is already existing
  Call RemoveCommandBarButton
  'Create new control button
  'Temporary:=True  : Available from now on
  'Temporary:=False : Available only this session
  With Application.CommandBars("Standard").Controls. _
                      Add(msoControlButton, Temporary:=True)
    'Caption to display on button
    .Caption = "New Button"
    'Procedure name to run when button is clicked
    .OnAction = "MyMacro"
    'Button Style - msoButtonCaption = 2
    .Style = 2
    'Show new button
    .Visible = True
  End With
End Sub


Public Sub RemoveCommandBarButton()
  'Error handler if control is not existing
  On Error Resume Next
  'Remove custom control button
  Application.CommandBars("Standard") _
              .Controls("New Button").Delete False
End Sub

 

[Derek Brown]

Many thanks for the errata. Just love the book and have submitted a review on Amazon.co.uk