新建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條評論
主站蜘蛛池模板: 国内精品99| 一区二区中文字幕亚洲精品 | 欧美成人性色生活18黑人 | 中文字幕国产专区 | 在线久操| 精品国产乱码一区二区三区 | 日韩精品一区二区三区中文字幕 | 久久久亚洲国产精品主播 | 国产成综合 | 台湾一级毛片永久免费 | 国产成人精品久久免费动漫 | 久久欧洲视频 | 亚洲免费一区 | 国产欧美一区二区另类精品 | 欧美大吊视频 | 久久美女免费视频 | 99福利在线| 久久久久久久爱综合 | 国产亚洲精品久久午夜 | sese综合| 久久免费资源福利资源站 | 一级久久| 国产在线精品观看一区 | 国产欧美一区视频在线观看 | 极品毛片 | 日本特级全黄一级毛片 | 四虎影院在线观看网站 | 天天爱天天舔 | 视频一区欧美 | 99精品国产一区二区青青牛奶 | 久久久久伊人 | 国产一级在线视频 | 国产精品亚洲综合第一区 | se视频在线| 免费久久 | 欧美亚洲综合图区在线 | 亚洲欧美日韩在线一区 | 久久九九精品一区二区 | 色视频免费国产观看 | 亚洲天堂国产精品 | 国产极品精频在线观看 |