Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ControlButton Size
Here is my code:
Sub AddCustomControl() Dim CBar As CommandBar Dim CTTally As CommandBarControl 'Catalyst To Tally Dim PFNum As CommandBarControl 'PF Number Dim CRData As CommandBarControl 'Clear Rep Data Set CBar = CommandBars("TSToolBar") Set CTTally = CBar.Controls.Add(Type:=msoControlButton) Set PFNum = CBar.Controls.Add(Type:=msoControlButton) Set CRData = CBar.Controls.Add(Type:=msoControlButton) With CTTally .FaceId = 1763 .Height = 20 .Width = 20 .OnAction = "CatalystToTally" End With With PFNum .FaceId = 643 .Height = 20 .Width = 20 .OnAction = "PFNumber" End With With CRData .FaceId = 67 .Height = 20 .Width = 20 .OnAction = "ClearRepData" End With CBar.Visible = True End Sub No matter what value I assign to .Height and .Width the icons are always the same size. How can I make them bigger? |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to enable / disable ControlButton added to Cell CommandBar | Excel Programming | |||
LoadPicture for a ControlButton help | Excel Programming | |||
re ControlButton numbers , Id:=??? | Excel Programming | |||
Can we write VBA code to set all column/row's size back to default size? | Excel Programming | |||
Can we write VBA code to set all column/row's size back to default size? | Excel Programming |