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"




Reply With Quote