rechter mausklick soll benutzerdef. menü anzeigen

21/07/2010 - 21:14 von hotzi | Report spam
hallo zusammen,
mit den u.g. genannten code kann ich in der rechten maus den
funktionsassistenten aufrufen. das gleiche hàtte ich auch für eine
benutzerdef. menü, das als kontextmenü erscheinen soll die command bar
heißt "my tools". geht das?

Private Sub Workbook_SheetBeforeRightClick ByVal Target As Range,
Cancel As Boolean)
Cancel=true
Application.Dialogs(xlDialogFunctionWizard).Show
Application.CommandBars(1).Controls("my tools").????
End Sub

freue mich auf eine antwort klaus
 

Lesen sie die antworten

#1 Andreas Killer
22/07/2010 - 15:25 | Warnen spam
Am 21.07.2010 21:14, schrieb hotzi:

mit den u.g. genannten code kann ich in der rechten maus den
funktionsassistenten aufrufen. das gleiche hàtte ich auch für eine
benutzerdef. menü, das als kontextmenü erscheinen soll die command bar
heißt "my tools". geht das?


Du meinst Du möchtest das Standard-Kontextmenü erweitern?

Andreas.

Sub InstallKontextButtons()
'Buttons zum Kopieren im Kontextmenü erstellen
On Error Resume Next
Dim Ctrl As CommandBarButton, SubMenu As CommandBarPopup
Dim Position As Integer, B, Bars()
Bars = Array("Cell", "Row", "Column")

For Each B In Bars
With CommandBars(B)
Position = .FindControl(ID:).Index
Set SubMenu = .Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
With SubMenu
.Caption = "Auswahl kopieren"
.Move Before:=Position

Set Ctrl = .Controls.Add(Type:=msoControlButton, _
Temporary:=True)
With Ctrl
.Caption = "Auswahl als Summe kopieren"
.OnAction = "'" & ThisWorkbook.Name & _
"'!SelectionCopySum"
.FaceId = 246
End With

Set Ctrl = .Controls.Add(Type:=msoControlButton, _
Temporary:=True)
With Ctrl
.Caption = "Auswahl als TEXT kopieren"
.OnAction = "'" & ThisWorkbook.Name & _
"'!SelectionCopyUCase"
.FaceId = 306
End With

Set Ctrl = .Controls.Add(Type:=msoControlButton, _
Temporary:=True)
With Ctrl
.Caption = "Auswahl 'gefüllt ' kopieren"
.OnAction = "'" & ThisWorkbook.Name & _
"'!SelectionCopyPad"
.FaceId = 6
End With

Set Ctrl = .Controls.Add(Type:=msoControlButton, _
Temporary:=True)
With Ctrl
.Caption = "Auswahl als CSV kopieren"
.OnAction = "'" & ThisWorkbook.Name & _
"'!SelectionCopyCSV"
.FaceId = 382
End With

Set Ctrl = .Controls.Add(Type:=msoControlButton, _
Temporary:=True)
With Ctrl
.Caption = "Formeln kopieren"
.OnAction = "'" & ThisWorkbook.Name & _
"'!SelectionCopyFormula"
.FaceId = 624
End With
End With

Position = .FindControl(ID:").Index
Set SubMenu = .Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
With SubMenu
.Caption = "Auswahl einfügen"
.Move Before:=Position

Set Ctrl = .Controls.Add(Type:=msoControlButton, _
Temporary:=True)
With Ctrl
.Caption = "Textkonvertierungsassistent anzeigen"
.OnAction = "'" & ThisWorkbook.Name & _
"'!SelectionPasteDialog"
.FaceId = 991
End With

Set Ctrl = .Controls.Add(Type:=msoControlButton, _
Temporary:=True)
With Ctrl
.Caption = "Mit Leerzeichen-Trennung einfügen"
.OnAction = "'" & ThisWorkbook.Name & _
"'!SelectionPasteBlanks"
.FaceId = 6
End With

Set Ctrl = .Controls.Add(Type:=msoControlButton, _
Temporary:=True)
With Ctrl
.Caption = "Mit CSV-Trennung einfügen"
.OnAction = "'" & ThisWorkbook.Name & _
"'!SelectionPasteCSV"
.FaceId = 382
End With

Set Ctrl = .Controls.Add(Type:=msoControlButton, _
Temporary:=True)
With Ctrl
.Caption = "Formeln einfügen"
.OnAction = "'" & ThisWorkbook.Name & _
"'!SelectionPasteFormula"
.FaceId = 385
End With
End With
End With
Next
End Sub

Ähnliche fragen