Function Compact()
' 添加一個工具條
With CommandBars.Add(, msoBarFloating, , True)
' 在工具條上添加一個按鈕,這個按鈕是從系統(tǒng)菜單的[工具]中[壓縮]產(chǎn)生的
.Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id
.Visible = True
' 將焦點移到該按鈕上
.Controls(1).SetFocus
' 模擬擊鍵
SendKeys "{ENTER}"
End With
End Function