ControlButton Size
Maybe:
With CBar.CTTally
"Bishop" wrote in message
...
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?
|