how to increase size of button's image of custom toolbar of Excel

P

Padam

I have created custom toolbar but image's size in custom toolbar using
msoControlButton is very small and blurred using below code. How I can
increase / decrease size of image as well as brightness of image in custom
toolbar?

It would be great help for me, if you can.

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