Custom toolbar images

[shrive22]

I am creating a custom toolbar with vb code but am unsure of the correct way to add the button image in the code. This is what I have so far:

With Application.CommandBars.Add
.Name = ToolBarName
.Left = 200
.Top = 200
.Protection = msoBarNoProtection
.Visible = True
.Position = msoBarFloating
For iCtr = LBound(MacNames) To UBound(MacNames)
With .Controls.Add(Type:=msoControlButton)
.OnAction = "'" & ThisWorkbook.Name & "'!" & MacNames(iCtr)
.Caption = CapNamess(iCtr)
.Style = msoButtonIconAndCaption
.FaceId = 71 + iCtr
.TooltipText = TipText(iCtr)
End With
Next iCtr
End With


Does anyone know how I can add the image for the button icon in the code?

Also this code has the toolbar floating: left200 and top200 is there anyway to get the toolbar to dock on the top of excel with the other toolbars?

thanks

 

[XLGibbs]

.Position = msoBarFloating

to

.Position = msoBarMenuBar

and remove the .Left and .Top properties.

will dock it up top.

When you say add the image, do you mean one from the existing face Id library? you have the right syntax for assigning the FaceId property..

If iCtr is not an integer...your faceId property won;t work.

http://www.j-walk.com/ss/excel/tips/tip40.htm

click that link for code to show you the face ids and get their numbers...

 

[shrive22]

re

how can I add my own custom images??

thanks

 

[XLGibbs]

http://www.oaltd.co.uk/mvp/MVPPage.asp

on that link there is an addin that lets you see the available button faces and their associated ID. Creating your own is pretty involved in developing a bitmap image that can then be converted to an icon or button image for use in excel...

the addin name is BtnFaces.zip about 2/3 down the page. There are number of really usefull add-ins there....

 

[shrive22]

re custom image

If I already have the bitmaps, do you know how to write the code to attach them to the buttons or do you know of any place that has a tutorial??

thanks