Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to increase size of image in button (msocontrolbutton) of custom toolbar of Excel 2000
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).D elete Application.ScreenUpdating = True |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to increase size of image in button (msocontrolbutton) of custom toolbar of Excel | Excel Discussion (Misc queries) | |||
how to increase size of button's image of custom toolbar of Excel | Excel Programming | |||
Load image from directory for custom toolbar of Excel 2000 | Excel Worksheet Functions | |||
How do I create a custom image for a toolbar? | Excel Programming | |||
How do I specify a custom paper size in Excel 2000 on Win XP? | Setting up and Configuration of Excel |