Please look at the following two code pieces:
andCode:Option Explicit
Dim MyWord as Word.Application
Dim oCBars as Office.CommandBars
Dim oCBar as Office.CommandBar
Dim WithEvents oMyButton as Office.CommandBarButton
Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, _
ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
ByVal AddInInst As Object, _
custom() As Variant)
Set MyWord = Application
Set oCBars = MyWord.CommandBars
Set oCBar = oCBars.Add("MyToolBar", msoBarTop, , True)
oCBar.Visible = True
Set oMyButton = oCBar.Controls.Add(msoControlButton, , , , True)
Clipboard.Clear
Clipboard.SetData LoadPicture("ButtonFace.bmp")
oMyButton.PasteFace
oMyButton.Visible = True
oMyButton.Caption = "Click Me"
Now, why does the first piece of code (For Word 2000) create a button on the toolbar with the bitmap as a face and the Caption as Tooltip, While the second piece of code (For Outlook 2000)creates a button on the toolbar with the caption as a face, and no Bitmap???Code:Option Explicit
Dim MyOutlook as Outlook.Application
Dim oCBars as Office.CommandBars
Dim oCBar as Office.CommandBar
Dim WithEvents oMyButton as Office.CommandBarButton
Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, _
ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
ByVal AddInInst As Object, _
custom() As Variant)
Set MyOutlook = Application
Set oCBars = MyOutlook.CommandBars
Set oCBar = oCBars.ActiveExplorer.Add("MyToolBar", msoBarTop, , True)
oCBar.Visible = True
Set oMyButton = oCBar.Controls.Add(msoControlButton, , , , True)
Clipboard.Clear
Clipboard.SetData LoadPicture("ButtonFace.bmp")
oMyButton.PasteFace
oMyButton.Visible = True
oMyButton.Caption = "Click Me"
