Gibt es die Möglichkeit, die Funktion eines Buttons aus den Symbolleisten auf
einen Button innerhalb einer Tabelle zu legen?
ZB.
Im Reiter Add-Ins habe ich ein Add in, diese Funktion möchte ich
auf Schaltfläche 1 legen.
Gruß
Tommy
CommandBars("MyComBar").Controls("MyControl").Execute
CommandBars("MyComBar").Controls(1).Execute
Option Explicit
Public Sub test1()
Dim cmcControl As CommandBarControl
Dim cmbBar As CommandBar
For Each cmbBar In CommandBars
For Each cmcControl In cmbBar.Controls
Debug.Print cmcControl.Caption & " " & cmcControl.Parent.Name
Next
Next
End Sub
Option Explicit
Public Sub test2()
Dim cmcControl As CommandBarControl
Dim cmbBar As CommandBar
For Each cmbBar In CommandBars
For Each cmcControl In cmbBar.Controls
If cmcControl.Caption = "Venus ASCII Importer" Then _
MsgBox cmcControl.Parent.Name: Exit Sub
Next
Next
End Sub
Option Explicit
Public Sub test2()
Dim cmcControl As CommandBarControl
Dim cmbBar As CommandBar
For Each cmbBar In CommandBars
For Each cmcControl In cmbBar.Controls
If cmcControl.Caption = "Venus ASCII Importer" Then _
cmcControl.Execute: Exit Sub
Next
Next
End Sub
Gruß,