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?

Maybe:

With CBar.CTTally



"Bishop" <(E-Mail Removed)> wrote in message
news:A724AF72-4AC6-40B5-8F6F-(E-Mail Removed)...
> 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?