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

P

padam_india

Image size appears in button(msocontrolbutton) of custom toolbar 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?

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).Delete

Application.ScreenUpdating = True
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top