Menüpunkt "Zellen einfügen" von Kontext Row
18.07.2003 22:52:19
Martin Glarner
Ich versuche verzweifelt die Face-ID oder ID für den Menüpunkt "Zellen einfügen".
Ich möchte die Standard-Befehle vom Kontextmenü "Row" in einem eigenen Kontextmenü einfügen und noch zusätzliche Menüs.
Leider habe ich nicht herausgefunden, wie ich den Befehl "Zellen einfügen" welcher sich ändert, wenn mann eine Zeile in die Zwischenablage kopiert hat in "Kopierte Zellen einfügen" einbauen kann.
Man findet diesen Befehl auch oben im Menü "Einfügen, Zellen"
Besten Dank für Eure Hilfe
Gruss Martin
Sub Kontextmenü_DB_Row_erstellen()
' Kontextmenü für Zeile erstellen (18.07.2003)
Dim Kontext As Object
'Das Menü wird zuerst gelöscht
On Error Resume Next
Application.CommandBars("DB_Row").Delete
On Error GoTo 0
' Auswahlmenü wird neu erstellt
Set Kontext = Application.CommandBars.Add("DB_Row", msoBarPopup)
' Standardmenü "Ausschneiden"
Set Kontext = CommandBars("DB_Row").Controls.Add(Type:=msoControlButton, ID:=21)
Kontext.BeginGroup = False
' Standardmenü "Kopieren"
Set Kontext = CommandBars("DB_Row").Controls.Add(Type:=msoControlButton, ID:=19)
Kontext.BeginGroup = False
' Standardmenü "Einfügen"
Set Kontext = CommandBars("DB_Row").Controls.Add(Type:=msoControlButton, ID:=22)
Kontext.BeginGroup = False
' Deklarationszeile vor Markierung einfügen
Set Kontext = CommandBars("DB_Row").Controls.Add
Kontext.BeginGroup = True
With Kontext
.Caption = "Deklarationzeile vor Markierung"
.OnAction = "Deklarationszeile_vor_Markierung"
Worksheets("Einstellungen").Shapes("Dek_vor").Copy 'Grafik in Zwischenablage
.PasteFace 'Icon aus der Zwischenablage einfügen
End With
' Mehrere Deklarationszeilen nach Markierung einfügen
Set Kontext = CommandBars("DB_Row").Controls.Add
Kontext.BeginGroup = False
With Kontext
.Caption = "Deklarationzeilen nach Markierung..."
.OnAction = "Deklarationszeilen_nach_Markierung"
Worksheets("Einstellungen").Shapes("Dek_nach").Copy 'Grafik in Zwischenablage
.PasteFace 'Icon aus der Zwischenablage einfügen
End With
' -----> Diese ID Nr. suche ich verzweifelt !!!!!!!!!!!!!!!!
' Standardmenü "Zeilen einfügen"
Set Kontext = CommandBars("DB_Row").Controls.Add(Type:=msoControlButton, ID:=296)
Kontext.BeginGroup = True
' Standardmenü "Zeilen löschen"
Set Kontext = CommandBars("DB_Row").Controls.Add(Type:=msoControlButton, ID:=293)
Kontext.BeginGroup = False
' manuellen Seitenumbruch einfügen/entfernen
Set Kontext = CommandBars("DB_Row").Controls.Add(Type:=msoControlButton, ID:=1588)
Kontext.BeginGroup = True
End Sub