Menüentrag von Excel 2003 nach 2007
18.03.2015 23:28:11
Excel
in meiner Exectabelle für Excel 2003 habe ich mit viel Web-Suche und Ausprobieren
und eurer Hilfe damals eine Eintrag in der Menüleiste zusammengebaut.
Nun soll die Tabelle auch in Excel ab 2007 mit der Ribbonoberfläche laufen.
Ich möchte auch hier einen Menüpunkt "Drucken" mit den Untermenüs haben.
Ich bin ganz ehrlich, mit der Ribbonoberfläche
bin ich überfordert und hoffe nun nochmals auf eure Hilfe.
Den entsprechenden Code, der in Excel 2003 schön läuft, habe ich mal angefügt.
Des weiteren möchte ich gerne noch einen Untermenüpunkt aufnehmen der folgendes macht:
-Druckbereich festlegen
-Druckbereich in neue Exceldatei kopieren und
dabei gleichzeitig die Formeln in die aktuellen Werte umwandeln.
Muss die Tabelle weitergeben, will aber nur die Werte aber nicht die Formeln weitergeben.
Ist das einfach zu machen?
Gruß
Bernd
-------
Sub auto_open()
'Menuleiste für Tabellenblatt, Achtung:
'Menüleiste für Diagramm heißt: "Chart Menu Bar"
Set cb = Application.CommandBars("Worksheet Menu Bar")
'Menüpunkt 'Drucken' löschen, falls schon vorhanden:
Set cb1 = cb.FindControl(Tag:="Drucken")
If Not cb1 Is Nothing Then cb1.Delete
'Menüpunkt 'Sortierung' einfügen:
Set cb1 = cb.Controls.Add(Type:=msoControlPopup, _
before:=cb.Controls.Count, _
Temporary:=True)
With cb1
.Caption = "&Drucken"
.Tag = "Drucken"
End With
'Untermenüpunkte einfügen:
With cb1.CommandBar.Controls.Add(Type:=msoControlButton)
.Caption = "&Stundenzettel drucken"
.OnAction = "Drucken_Stundenzettel"
End With
With cb1.CommandBar.Controls.Add(Type:=msoControlButton)
.Caption = "&alles drucken"
.OnAction = "Drucken_alles"
End With
End Sub
Anzeige