How to increase size of image in button (msocontrolbutton) of custom toolbar of Excel
 

Excel 2000 version only
=======================
Image size appears in button(msocontrolbutton) of custom toolbar Excel
2000 is very small and blurred using below code. How I can increase
size of image in button (msocontrolbutton) as well as brightness of
image in custom toolbar?

I am able to increase size of button using width and height property
but image appears in center of button as 16X16. How to fit image to
button(msocontrolbutton)?

It would be really great help for me……

My code:

'========================================
Const cImgCommandBarID As String = "TMC Img Toolbar"
'Image code
Dim cbImgBar As CommandBar

Set cbImgBar = CommandBars.Add(Name:=cImgCommandBarID,
Position:=msoBarTop)

'cbImgBar.context = 1000



Dim cbImage As CommandBarControl



Dim imgTool As Shape

Dim sFileName, ImgSheet

sFileName = ActiveWorkbook.Path & "\Images\ABC.jpg"

Const sNAME = "MyToolFace"

'================

' hide appearance of picture from the user

Application.ScreenUpdating = False



' insert picture from file and copy inserted picture

ActiveSheet.Pictures.Insert(sFileName).CopyPicture
Appearance:=xlScreen, Format:= xlBitmap



Set cbImage = cbImgBar.Controls.Add(Type:=msoControlButton)

With cbImage

'.FaceId = 198

.Caption = "TheMarketsImage"

.Style = msoButtonIcon

.Width = 120

.Height = 100

.PasteFace

End With

' remove the inserted picture

ActiveSheet.Pictures(ActiveSheet.Pictures.Count).D elete

Application.ScreenUpdating = True


--
padam
------------------------------------------------------------------------
padam's Profile: http://www.excelforum.com/member.php...o&userid=37407
View this thread: http://www.excelforum.com/showthread...hreadid=570882