vba菜單與命令

⑴ vba的窗體中如何添加菜單

VB實現窗口的彈出式菜單

在Windows95、Windows98或NT的風格中，有按動滑鼠器右鍵彈出下拉菜單的操作，在VB執行環境下，有一些控制項本身具有彈下拉菜單的功能，如TexTbox控制項等，但大多數編輯類控制項以及窗體本身卻沒有此功能，要在窗口中任意位置實現PopUpMenu（彈出式菜單），可藉助VB的菜單工具來實現。
首先，打開VB的「工具」菜單條，利用「菜單編輯器」為窗體生成一個菜單：
標題(Caption) 菜單條名(Name)
編輯 menuEdit
……復制 mnuCopy
……剪切 munCut
其次，將生成的menuEdit菜單設置為不可視。
Private Sub Form_Load()
Me.menuEdit.Visibe=False
′menuEdit菜單設置為不可視
End Sub
然後，利用MouseDown事件實現任意位置彈出PopUpMenu，如下例：
本例中以RichTexBox控制項為例，在其上面實現復制、剪切功能。
1．復制功能的實現。
Private Sub MnuCopy_Click()
Clipboar.Clear′將剪貼板清空
′將RichTexBox控制項上選擇上的內容復制到剪貼板
Clipboard.SetTextRichTexBox1.SelText
End Sub
2．剪切功能的實現。
Private Sub MnuCut_Click()
Clipboard.Clear ′將剪貼板清空
′將RichTextBox控制項上選擇了的內容復制到剪貼板
Clipboard.SetTextRichBox1.SelText
′將RichTexBox控制項上選擇了的內容刪除
SendKeys〃{DELETE}〃,True
End Sub
3．在RichTexBox控制項的MouseDown事件中實現任意位置彈出PopUPMenu。
OPrivate Sub RichTexBox1_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single)
Dim MnuFile AS Menu ′聲明一個菜單類型的變數
Set munFile=Me.MenuEdit ′將MenuEdit賦給菜單變數
if Button=2 Then ′判斷是否按動滑鼠器右鍵
′判斷RichTexBox控制項上選擇了的內容是否存在，決定復制、剪切菜單條是否可操作。
If Len(RichTexBox.Text)=0 Or Len(RichTexBox.SelText)=0 Then
mnuCopy.Enabled=Flase ′復制菜單條不可操作。
nmuCut.Enabled=False ′剪切菜單條不可操作。
nmuCopy.Enabled=True ′復制菜單條可操作。
nmuCut.Enabled=True ′剪切菜單條可操作。
End IF
PopupMenu mnuFile ′彈出PopUpMenu。
End If
End Sub
這樣，在VB執行環境中，操作窗體上的RichTexBox控制項，按動滑鼠器右鍵就可彈出下拉菜單，實現復制、剪切功能。

⑵ EXCEL VBA 如何用命令按鈕關閉VBA的窗口

1、在工作表中，點擊菜單欄【開發工具】，在其工具欄內，點擊【visual basic】。

⑶ VBA中怎樣生成2級命令菜單

整整1個小時，通過研究「List」工具欄得到啟發
測試通過
模塊中：

Dim cbar As CommandBar
Dim cCtrol As CommandBarControl
Dim cmd1 As CommandBarControl
Dim cmd As CommandBarButton
Sub AutoOpen()
Set cbar = Application.CommandBars.Add(Name:="CAL-Lab7", Position:=msoBarTop, MenuBar:=False, Temporary:=True)
Set cCtrol = cbar.Controls.Add(Type:=msoControlPopup)
With cCtrol
.Caption = "CHeck"
End With
Set cmd1 = cCtrol.Controls.Add(Type:=msoControlPopup)
With cmd1
.Caption = "測試"
End With
Set cmd = cmd1.Controls.Add(1)
With cmd
.Style = msoButtonIconAndCaption
.Caption = "SetDMMVoltage"
.FaceId = 0
.Tag = "d2"
.OnAction = "SetVoltage"
End With

End Sub

哈哈，記得加分哦！

⑷ 如何用VBA在WORD中創建命令欄（即菜單項）菜單項，能傳參給調用宏,與excel的onAction不一樣。

可以試試回調函數

⑸ 關於 Excel VBA 添加自定義命令

添加個標准模塊，把代碼放進去，然後就可以在表格的公式欄使用了

假設這個函數名為 MyFunction,可以在某個單元格的公式欄輸入 =MyFunction() 。這樣這個單元格就可以獲得你的函數的返回值了，當然，你不要試圖在你的自定義函數裡面更改其他單元格的值，只能讀取！！！微軟因為安全問題不允許在自定義函數裡面更改其他值，當然啦，這個也是有變通方法的。

⑹ 如何用vba給vbe內置菜單命令欄添加自定義命令

Dim lc_updatebut As CommandBarButton
Dim lc_updatebar As CommandBar

Set lc_updatebar = ThisWorkbook.Application.CommandBars("San2")
lc_updatebar.Controls.Add Type:=msoControlButton, Before:=1, Temporary:=True
Set lc_updatebut = lc_updatebar.FindControl(Type:=msoControlButton)
lc_updatebut.OnAction = "test" '調用的函數名稱
lc_updatebut.Tag = "update"
lc_updatebut.Caption = "標題"
lc_updatebut.FaceId = 59
lc_updatebut.Enabled = True
lc_updatebut.Style = msoButtonIconAndCaption
lc_updatebut.Visible = True

⑺ 如何用VBA代碼為Word添加菜單（即命令欄）

Dim
myMenuBar
Dim
newMenu
Dim
ctrl1
Dim
s
Dim
flag
As
String
'初始化菜單
Set
myMenuBar
=
CommandBars.ActiveMenuBar
Set
newMenu
=
myMenuBar.Controls.Add(Type:=msoControlPopup,
_
Temporary:=True)
newMenu.Caption
=
"電子印章"
Set
ctrl1
=
newMenu.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl1.Caption
=
"添加電子印章"
ctrl1.Style
=
msoButtonCaption
ctrl1.OnAction
=
"AddSeal"
Set
ctrl1
=
newMenu.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl1.Caption
=
"驗證電子印章"
ctrl1.Style
=
msoButtonCaption
ctrl1.OnAction
=
"CheckSeal"
ctrl1.Style
=
msoButtonCaption
Set
ctrl1
=
newMenu.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl1.Caption
=
"關於"
ctrl1.OnAction
=
"About"
ctrl1.Style
=
msoButtonCaption

⑻ CAD中用VBA添加了菜單。單擊菜單運行相應程序彈出窗口，代碼是什麼謝謝了

APPLOAD
載入和卸載應用程序，定義要在啟動時載入的應用程序

CUI
管理自定義用戶界面元素，例如工作空間、工具欄、菜單、快捷菜單和鍵盤快捷鍵

命令行: arx

輸入選項 [?/載入(L)/卸載(U)/命令(C)/選項(O)]:
VBAIDE
顯示 Visual Basic 編輯器

VBALOAD
將全局 VBA 工程載入到當前工作任務中

VBAMAN
載入、卸載、保存、創建、嵌入和提取 VBA 工程

VBARUN
運行 VBA 宏

VBASTMT
在 AutoCAD 命令行中執行 VBA 語句

VBAUNLOAD
卸載全局 VBA 工程

⑼ excel2010vba菜單在哪

在EXCEL2010文件選項卡中選擇選項以打開EXCEL選項對話框。在該對話框左側的「自定義功能區」中「從下列位置選擇命令」中選擇「常用命令」，這個時候可見右側「自定義功能區」下的「主選項卡」下有一個名為「開發工具」的復選框沒有選中，選擇之後在EXCEL2010的功能區中出現了開發工具選項卡，其中就有VBA工具。

⑽ 如何用VBA在WORD中創建命令欄（即菜單項）並在每個菜單項上加上圖標

你的代碼是正確的,但是如果你要顯示圖標,你需要把所有ctrl1.style = msoButtonCaption 這一句改為 ctrl1.Style = msoButtonIconAndCaption,這樣就能夠一起顯示圖標和文字了,我試過是可以的,希望能幫到你