新建Setcbar=CommandBars("File").Controls("新建(&N)")cbar.Enabled=Falsecbar.OnAction="NullMethod"cbar.ShortcutText=""'cbar.Reset'菜單>打開Setcbar=Comma" />

亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

VBA訪問word菜單

系統 1782 0

?

Sub ?SetCommandbar()
????????????
'
???????? ' ?SetCommandbar?Macro
???????? ' ?宏在?2007-2-1?由?創建
???????? '
???????? ' 菜單
???????? ' 菜單
???????? Dim ?cbar?? As ?CommandBarButton

??????????????????????
' 菜單>新建
???????? Set ?cbar? = ?CommandBars( " File " ).Controls( " 新建(&N) " )
????????????cbar.Enabled?
= ? False
???????????????????????????????cbar.OnAction?
= ? " NullMethod "
????????cbar.ShortcutText?
= ? ""
????????
' cbar.Reset
???????? ' 菜單>打開
???????? Set ?cbar? = ?CommandBars( " File " ).Controls( " 打開(&O) " )
????????????cbar.Enabled?
= ? False ? '
????????cbar.OnAction? = ? " NullMethod "
????????cbar.ShortcutText?
= ? ""
????????
' cbar.Reset
???????? ' 菜單>保存
???????? Set ?cbar? = ?CommandBars( " File " ).Controls( " 保存(&S) " )
????????????cbar.Enabled?
= ? False ? '
????????cbar.OnAction? = ? " NullMethod "
????????cbar.ShortcutText?
= ? ""
????????
' cbar.Reset
???????? ' 菜單>另存為
???????? Set ?cbar? = ?CommandBars( " File " ).Controls( " 另存為(&A) " )
????????????cbar.Enabled?
= ? False ? '
????????cbar.OnAction? = ? " NullMethod "
????????cbar.ShortcutText?
= ? ""
????????
' cbar.Reset
???????? ' 命令>新建
???????? Set ?cbar? = ?CommandBars( " Standard " ).Controls( 1 )
????????????cbar.Visible?
= ? True
???????????????????????????????cbar.Enabled?
= ? False ? '
????????cbar.OnAction? = ? " NullMethod "
????????cbar.ShortcutText?
= ? ""
????????
' cbar.Reset
???????? ' 命令>打開
???????? Set ?cbar? = ?CommandBars( " Standard " ).Controls( " 打開(&O) " )
????????????cbar.Visible?
= ? True
???????????????????????????????cbar.Enabled?
= ? False ? '
????????cbar.OnAction? = ? " NullMethod "
????????cbar.ShortcutText?
= ? ""
????????
' cbar.Reset
???????? ' 命令>保存
???????? Set ?cbar? = ?CommandBars( " Standard " ).Controls( " 保存(&S) " )
????????????cbar.Visible?
= ? True
???????????????????????????????cbar.Enabled?
= ? False ? '
????????cbar.OnAction? = ? " NullMethod "
????????cbar.ShortcutText?
= ? ""
????????
' cbar.Reset


????????
' CommandBars("Standard").Controls(1).ShortcutText?=?""



????????
' 快捷鍵Ctrl+N?和Ctrl+O
???????? ' Set?cbar?=?CommandBars.ActionControl
???????? Set ?myControl? = ?Application.CommandBars.FindControl?_
????????????????????????????????????????????????????????????????(Type:
= msoControlPopup,?Visible: = True )



????????
End?Sub

????????????
Private ? Sub ?NullMethod()

????????????????????????????
End?Sub

????????????????????????????????
Sub ?myreset()
????????????????????????????????????
' 菜單
???????? Dim ?cbar?? As ?CommandBarButton

??????????????????????
' 菜單>新建
???????? Set ?cbar? = ?CommandBars( " File " ).Controls( " 新建(&N) " )
????????????cbar.Reset
????????????????
' 菜單>打開
???????? Set ?cbar? = ?CommandBars( " File " ).Controls( " 打開(&O) " )
????????????cbar.Reset
????????????????
' 菜單>保存
???????? Set ?cbar? = ?CommandBars( " File " ).Controls( " 保存(&S) " )
????????????cbar.Reset
????????????????
' 菜單>另存為
???????? Set ?cbar? = ?CommandBars( " File " ).Controls( " 另存為(&A) " )
????????????cbar.Reset
????????????????
' 命令>新建
???????? Set ?cbar? = ?CommandBars( " Standard " ).Controls( 1 )
????????????cbar.Reset
????????????????
' 命令>打開
???????? Set ?cbar? = ?CommandBars( " Standard " ).Controls( " 打開(&O) " )
????????????cbar.Reset
????????????????
' 命令>保存
???????? Set ?cbar? = ?CommandBars( " Standard " ).Controls( " 保存(&S) " )
????????????cbar.Reset
????????????????
End?Sub
????????????????????????
Sub ?aaa()

????????????????????????????????
' ?aaa?Macro
???????? ' ?宏在?2007-2-2?由?張文璋?創建
???????? '

????????
End?Sub

VBA訪問word菜單


更多文章、技術交流、商務合作、聯系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號聯系: 360901061

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點擊下面給點支持吧,站長非常感激您!手機微信長按不能支付解決辦法:請將微信支付二維碼保存到相冊,切換到微信,然后點擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對您有幫助就好】

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長會非常 感謝您的哦!!!

發表我的評論
最新評論 總共0條評論
主站蜘蛛池模板: 欧美一区二区三区免费观看视频 | 色桃花网 | 黄色a∨| 日韩亚洲欧美一区二区三区 | 亚洲一区二区三区在线播放 | 国内精品久久久久丫网址 | 91精品国产91久久久久福利 | 永久黄网站色视频免费观看 | 91视频第一页 | 国内精品手机在线观看视频 | 欧美成人毛片免费网站 | 国产日韩高清一区二区三区 | 精品欧美日韩一区二区三区 | 国产尤物福利视频一区二区 | 亚洲一区毛片 | 污视频在线看网站 | 久久精品免费观看视频 | 日本狠狠操 | 黄色毛片毛茸茸 | 亚洲精品123区在线观看 | 国产精品激情综合久久 | 亚洲精品视频一区二区 | 欧美日韩亚洲区久久综合 | 免费观看性欧美毛片 | 人人做天天爱夜夜爽中字 | 国产亚洲综合精品一区二区三区 | 香蕉久热| 国产99视频精品草莓免视看 | 久久国产片| 四虎影院免费 | 亚洲欧美一区二区三区不卡 | 日韩国产欧美 | 色激情综合 | 青青青草视频在线 | 欧美色视频日本片免费高清 | 成人短视频网站 | 成人另类 | 在线精品国产一区二区 | 国产成人咱精品视频免费网站 | 亚洲综合首页 | 国产永久|