News:
|
15.05.2011
|
|
Public Sub OnAction(ByVal control As office12.IRibbonControl, ByRef cancel As Boolean)
If control.Id = "Copy" Then 'Copy | Paste | Cut
' ...
'Bei Bedarf das eigentlich durch den Button ausgelöste Ereignis abbrechen
cancel = True
end if
end sub
|
Imports office12 = Microsoft.Office.Core ' - benötigt Office 12 Library
Implements office12.IRibbonExtensibility ' - benötigt Office 12 Library
Public Function GetCustomUI(ByVal RibbonID As String) As String Implements office12.IRibbonExtensibility.GetCustomUI
If ExcelapplicationObject IsNot Nothing Then
Return BuiltExcel12GUI()
End If
Return Nothing
End Function
Public Function BuiltExcel12GUI() As String
BuiltWord12GUI = _
"<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"" > " & _
"<commands> " & _
"<command idMso=""Copy"" onAction=""OnAction"" />" & _
"<command idMso=""Paste"" onAction=""OnAction"" />" & _
"<command idMso=""Cut"" onAction=""OnAction"" />" & _
"</commands>" & _
"</customUI>"
End Function
|
|
Aber dein AddIn wird schon in Excel geladen?
LoadBehaviour = 3 in der Registry unter CurrentUser\Software\Microsoft\Office\Excel\Addins\NamedeinesAddins.Connect -> LoadBehaviour Zu den Tastenkürzeln kann ich nichts beitragen... – schlumpfger 17.05.2011
|
|
|
Ich auch ;-)...
Bei mir ist der Klassenname (Connect) hinter dem AddInNamen in der registry eingetragen. <GuidAttribute("D12C5AC4-054B-1205-B1D1-E623132BD576"), ProgIdAttribute("Mein Addin.Connect")> _ Public Class Connect .... – schlumpfger 17.05.2011
|
|
Ich komme noch nicht ganz weiter.
Wo hänge ich den den Handler "OnAction" an?
Mir wäre es liebsten, wenn ich es an ein Worksheet-Ereignis anhängen könnte.