Question

我有一个示例代码，用于在excel表vb.net代码中创建按钮，如下所示：

Dim button As Microsoft.Office.Interop.Excel.OLEObject
button = _xlWorksheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
   Link:=False, DisplayAsIcon:=False, Left:=0, Top:=0, Width:=100, Height:=30)
button.Name = "Send Mail"

Dim oCommandBar As Microsoft.Office.Core.CommandBar
Dim oCommandBarButton As Microsoft.Office.Core.CommandBarControl
Dim tb As String = "My Toolbar"
Dim _btnCaption As String = "Forward To BSC"
'Dim code As String

'code = "Sub button_Click()" & vbCrLf
'code = code & "Call Tester" & vbCrLf
'code = code & "End Sub"

Try
   oCommandBar = _xlApp.CommandBars.Add(.......) 

   'oCommandBar = _xlApp.CommandBars.Add(.....)
   oCommandBar.Visible = True

   oCommandBarButton = oCommandBar.Controls.Add(button)
   oCommandBarButton.Caption = _btnCaption
   oCommandBarButton.OnAction = "button_Click"
Catch ex As Exception
   Console.WriteLine(ex.Message)
End Try

 Sub Tester()
      MsgBox("You have click on the test button")
 End Sub

我不确定在下面添加什么：
_xlApp.CommandBars.Add(.......) and _xlApp.CommandBars.Add(.....)

请指教。还要指定所需的命名空间。这是一个控制台应用程序。

Answer 1

但我不确定你的问题是什么：代码在bars集合中添加了一个新的命令栏。语法是这样的：CommandBars.Add（“MyTemporaryToolbar”，_ MsoBarPosition.msoBarTop，False，True）; 对于更多信息，以下文章可能对您有用： http://msdn.microsoft.com/en-us/library/office/ff861773.aspx和http://www.codeproject.com/Articles/17458/Adding-commandbar-controls-to-outlook

命令按钮运行时异常

1 个答案: