Function Compact() ' 添加一个工具条 With CommandBars.Add(, msoBarFloating, , True) ' 在工具条上添加一个按钮，这个按钮是从系统菜单的[工具]中[压缩]产生的 .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id .Visible = True ' 将焦点移到该按钮上 .Controls(1).SetFocus ' 模拟击键 SendKeys "{ENTER}" End With End Function
注：运行本程序，你必须引用 Microsoft Office 9.0 Object Library (Office 2000)或 Microsoft Office 10.0 Object Library (Office XP)
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
