Load picture from file to custom toolbar of Excel 2000
Below code gives error as cb.Picture = picPicture does not exists.
Kindly help me. I am using it for Excel 2000 VBA. Private Sub Workbook_Activate() 'sImageFile = ThisWorkbook.Path & "\ABC.jpg" Dim c As CommandBar Dim cb As CommandBarButton Dim picPicture As IPictureDisp Dim picMask As IPictureDisp 'you can also change the mask Set picPicture = stdole.StdFunctions.LoadPicture(ThisWorkbook.Path & "\ABC.jpg") 'optional - only of you have a mask file 'Set picMask = stdole.StdFunctions.LoadPicture("c:\...(your path)...\maskName.bmp") On Error Resume Next Application.CommandBars("BarName").Delete Set c = Application.CommandBars.Add("BarName", msoBarFloating, False, True) c.Enabled = True c.Visible = True Set cb = c.Controls.Add(msoControlButton) cb.Style = msoButtonIcon cb.Tag = "ButtonTest" 'Set the picture cb.Picture = picPicture 'Set the mask 'cb.Mask = picMask cb.OnAction = "ThisWorkbook.Test" Set cb = Nothing Set c = Nothing End Sub |
Load picture from file to custom toolbar of Excel 2000
The .Picture and .Mask properties of a command bar button were introduced in
Office XP (2002). In 2000, you must use the button's .PasteFace method to apply a picture copied into the clipboard to the button. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "Padam" wrote in message ... Below code gives error as cb.Picture = picPicture does not exists. Kindly help me. I am using it for Excel 2000 VBA. Private Sub Workbook_Activate() 'sImageFile = ThisWorkbook.Path & "\ABC.jpg" Dim c As CommandBar Dim cb As CommandBarButton Dim picPicture As IPictureDisp Dim picMask As IPictureDisp 'you can also change the mask Set picPicture = stdole.StdFunctions.LoadPicture(ThisWorkbook.Path & "\ABC.jpg") 'optional - only of you have a mask file 'Set picMask = stdole.StdFunctions.LoadPicture("c:\...(your path)...\maskName.bmp") On Error Resume Next Application.CommandBars("BarName").Delete Set c = Application.CommandBars.Add("BarName", msoBarFloating, False, True) c.Enabled = True c.Visible = True Set cb = c.Controls.Add(msoControlButton) cb.Style = msoButtonIcon cb.Tag = "ButtonTest" 'Set the picture cb.Picture = picPicture 'Set the mask 'cb.Mask = picMask cb.OnAction = "ThisWorkbook.Test" Set cb = Nothing Set c = Nothing End Sub |
All times are GMT +1. The time now is 03:41 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com