Re: Zellkontextmenue-erweiterung
14.05.2002 10:39:31
ajk
Hallo,in '97 habe ich mal folgendes "gestrickt". Hatte leider keine Zeit Deinen Code durchzusehen. Guck Dir meinen alten an. vielleicht hilft's Dir:
Sub Menuerweitern()
'AJK
'31.08.2001
dim MB As Object
Dim K13 As Object
Dim k13leiste As Object
Dim Ctrl As CommandBarButton
' While .Controls.Count > 0 'Alle Menüs rechte Maustaste Löschen
' On Error Resume Next
' .Controls(1).Delete
'Wend
Set MB = CommandBars("cell")
Set K13 = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
K13.Caption = "K13 - nicht oft genutzt"
K13.BeginGroup = True
With CommandBars("cell")
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Minus"
.OnAction = "minusfalschwert"
.FaceId = 688
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Zellenumrechner"
.OnAction = "rechne"
.FaceId = 50
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "#,##0.00;-#,##0.00"
.OnAction = "dezi"
.FaceId = 398
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "#,##0;-#,##0"
.OnAction = "dezi1"
.FaceId = 397
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "00 00 00"
.OnAction = "dezi2"
.FaceId = 2174
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Seitenformat"
.OnAction = "fuß"
.FaceId = 230
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Werte einfügen"
.OnAction = "Werte"
.FaceId = 582
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Formate einfügen"
.OnAction = "formate"
.FaceId = 108
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Formel einfügen"
.OnAction = "formel"
.FaceId = 879
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Zeilenmarkierung ein"
.OnAction = "MauszeigerEinschalten"
.FaceId = 1664
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Zeilenmarkierung aus"
.OnAction = "Mauszeigerausschalten"
.FaceId = 1019
End With
End With
With CommandBars("column")
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Minus"
.OnAction = "minusfalschwert"
.FaceId = 688
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Zellenumrechner"
.OnAction = "rechne"
.FaceId = 50
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "#,##0.00;-#,##0.00"
.OnAction = "dezi"
.FaceId = 398
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "#,##0;-#,##0"
.OnAction = "dezi1"
.FaceId = 397
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "00 00 00"
.OnAction = "dezi2"
.FaceId = 2174
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Seitenformat"
.OnAction = "fuß"
.FaceId = 230
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Werte einfügen"
.OnAction = "Werte"
.FaceId = 582
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Formate einfügen"
.OnAction = "formate"
.FaceId = 108
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Formel einfügen"
.OnAction = "formel"
.FaceId = 879
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "rot/grün"
.OnAction = "formelr"
.FaceId = 111
End With
End With
With CommandBars("row")
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Minus"
.OnAction = "minusfalschwert"
.FaceId = 688
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Zellenumrechner"
.OnAction = "rechne"
.FaceId = 50
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "#,##0.00;-#,##0.00"
.OnAction = "dezi"
.FaceId = 398
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "#,##0;-#,##0"
.OnAction = "dezi1"
.FaceId = 397
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "00 00 00"
.OnAction = "dezi2"
.FaceId = 2174
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Seitenformat"
.OnAction = "fuß"
.FaceId = 230
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Werte einfügen"
.OnAction = "Werte"
.FaceId = 582
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Formate einfügen"
.OnAction = "formate"
.FaceId = 108
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Formel einfügen"
.OnAction = "formel"
.FaceId = 879
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "rot/grün"
.OnAction = "formelr"
.FaceId = 111
End With
End With
Set k13leiste = K13.Controls.Add(Type:=msoControlButton, Id:=1)
'Set Ctrl = .Controls.Add(msoControlButton)
With k13leiste
.Caption = "DM in EUR"
.OnAction = "euro"
.FaceId = 129
End With
Set k13leiste = K13.Controls.Add(Type:=msoControlButton, Id:=1)
'Set Ctrl = .Controls.Add(msoControlButton)
'With Ctrl
With k13leiste
.Caption = "EUR in DM"
.OnAction = "DM"
.FaceId = 128
End With
Set k13leiste = K13.Controls.Add(Type:=msoControlButton, Id:=1)
'Set Ctrl = .Controls.Add(msoControlButton)
With k13leiste
'With Ctrl
.Caption = "rot/grün"
.OnAction = "formelr"
.FaceId = 111
End With
End Sub
Sub ruecksetzen()
CommandBars("cell").Reset
CommandBars("column").Reset
CommandBars("row").Reset
End Sub