How to increase size of image in msocontrolbutton of custom toolba

P

Padam

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