Info

End With

Set NewBtn = TBar.Controls.Add(Type:=msoControlButton) With NewBtn

.OnAction = "DispPictures" .Caption = "Pictures"

.TooltipText = "Display pictures of selected group" .Style = msoButtonlconAndCaption End With

Set NewBtn = TBar.Controls.Add(Type:=msoControlButton) With NewBtn

.OnAction = "ProduceReport" .Caption = "Reports" .TooltipText = "Produce Reports" .Style = msoButtonlcon End With

0 0

Post a comment