Settbar=Application.CommandBars.Add(Temporary=True)Withtbar.Controls.Add(Type=msoControlButton).Caption=“当前年龄”.Style=msoButtonCaption.OnAction=“age”EndWith上述语句的功能是：在自定义工具栏tbar上添加按钮，设置按钮的为不可用状态