有沒有辦法通過VBA陳述句,先判斷工具箱中是否存在此控制元件,如不存在則將控制元件自動添加到工具箱中.
uj5u.com熱心網友回復：
有這種想法？？？應該不可能吧…………
uj5u.com熱心網友回復：
覺著吧，用到工具箱的人多多少少要編碼了吧，應該自己知道怎么添加工具箱里沒有的控制元件要去哪里找吧。這都還要用寫代碼給他們搞定，花的時間還不如給他們一本書或者寫個說明給他們自己搞定。
uj5u.com熱心網友回復：
if Word.CommandBars("自定義").Controls.Count<1 then
Normal.ThisDocument.CommandBars.Item(i).Name
'本示例創建命令欄“Custom”，向命令欄中添加三個按鈕，然后用 ActionControl 屬性和 Tag 屬性確定最后一次單擊的是哪一個命令欄按鈕。
Set myBar = CommandBars.Add(Name:="Custom", Position:=msoBarTop, Temporary:=True)
Set buttonOne = myBar.Controls.Add(Type:=msoControlButton)
With buttonOne
.FaceId = 133
.Tag = "RightArrow"
.OnAction = "whichButton"
End With
Set buttonTwo = myBar.Controls.Add(Type:=msoControlButton)
With buttonTwo
.FaceId = 134
.Tag = "UpArrow"
.OnAction = "whichButton"
End With
Set buttonThree = myBar.Controls.Add(Type:=msoControlButton)
With buttonThree
.FaceId = 135
.Tag = "DownArrow"
.OnAction = "whichButton"
End With
myBar.Visible = True
'whichButton 子程式回應 OnAction 方法并確定最后單擊的是哪一個命令欄按鈕。
Sub whichButton()
Select Case CommandBars.ActionControl.Tag
Case "RightArrow"
MsgBox ("Right Arrow button clicked.")
Case "UpArrow"
MsgBox ("Up Arrow button clicked.")
Case "DownArrow"
MsgBox ("Down Arrow button clicked.")
End Select
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/57446.html
標籤：VBA
上一篇：求excel中命令宏利用VB做一條線，線上標記直線數字1和100（直線頭和末尾），任意點擊直線上某一點顯示數字，或者任意搜索數字（如5到10）中間段落變色~
下一篇：用戶定義型別未定義怎么解決