Commandbars finde ich die Sub nicht

Wolfklau · 19. November 2018

Hallo zusammen!

Ich habe eine Word2000.dot aus dem Jahr 2004 (!) vom Arbeitskollegen zurückbekommen.

Er möchte etwas geändert haben. In VBA wurde ein Commandbars eingefügt. Ich finde

aber die entsprechende Routine weder im Editor noch sonst wo.

Die Symbolleiste wird unter Addins "Benutzerdefinierte Symbolleisten" angezeigt

Programm wird immer ansonsten noch korrekt ausgeführt.

Der Aufruf:

Sub AutoNew()
'Symbolleiste "Versand" sichtbar machen und unten platzieren
With ActiveDocument.CommandBars("Versand")
.Visible = True
.Position = msoBarBottom
End With

End Sub

Danke für Eure Hilfe

Wolfgang (jetzt mit Word 2010 unterwegs)

G.O.Tuhls

Dann hatte ich Dich falsch verstanden, sorry.

Da es seit Office 2007 keine Symbolleisten mehr gibt, sondern alles nur über das XML-gesteuerte Menüband läuft, dürfte das Problem wohl im veralteten Code zu suchen sein.

Gruß

G.O.

Wolfklau

So funktioniert es.

Einmal ausführen erweitert es die Symbolleiste um einen Eintrag. Danach auskommentieren.

Danke für die Hilfe

Gruß Wolfgang

Sub AutoNew()

' Neues Commando zusätzlich anhängen

Dim CBB As CommandBarControl

Set CBB = Application.CommandBars("Versand").Controls.Add

With CBB

.Style = msoButtonCaption ' der Button

.Caption = "Der neue Befehl" ' der Text

.OnAction = "HalloWelt" ' führt die SUB HalloWelt aus

End With

'Symbolleiste "Versand" sichtbar machen und unten plazieren

With ActiveDocument.CommandBars("Versand")

.Visible = True

.Position = msoBarBottom ' das funktioniert so nicht

End With

End Sub

Sub Hallo Welt()

MsgBox "Hallo Welt"

End Sub

Andreas Killer

Ja und Nöö, letzter Versuch

Im Ruhestand und dann immer noch keine Gelassenheit gelernt?

Das alte Commandbars-Objekt hat ein entscheidendes Argument Temporary:

Und wenn das auf True steht (oder damals die Commandbar von Hand erzeugt wurde), dann wird die Commandbar in der Datei gespeichert. Daher siehst Du es nirgends im Editor.

Der Aufruf über Auto_New erzwingt nur das Erscheinen und die Position... ist im Prinzip heutzutage überflüssig.

Wenn Du einfach nur was dranhängen sollst, dann würde ich es so machen:

Sub AutoNew()

  Dim CBB As CommandBarButton

  'Symbolleiste "Versand" sichtbar machen und unten platzieren

  With ActiveDocument.CommandBars("Versand")

    .Visible = True

    .Position = msoBarBottom

    Set CBB = .Controls.Add("msoControlButton", Temporary:=True)

    With CBB

      .Caption = "Juhu"

      .OnAction = "HalloWelt"

    End With

  End With

End Sub

Sub HalloWelt()

  MsgBox "Hallo Welt"

End Sub

Wenn Du was daran ändern sollst (rausnehmen o.ä.), dann musst Du die Eigenschaften der CommandBar auslesen und den Code neu schreiben.

Alles klar?

Andreas.

G.O.Tuhls

Das ist die Brücke vom neuen Design zu alten VBA-Codes. Wie man die beeinflussen kann, entzieht sich meiner Kenntnis.

Versuch es mit XML neu zu bauen, ist auch anwenderfreundlicher, ich hab dazu was

aufgeschrieben.

Gruß

G.O. (noch nicht ganz so lange im Ruhestand, und die Fragenqualität ist altersunabhängig)

Wolfklau

Hallo G.O.

Meine Frage bezieht sich nicht auf den Aufruf.

Ich suche die Procedure der Symbolleiste um diese zu ändern ("Versand"). Die finde ich aber nicht.

Das muß doch irgendwo einstellbar/auffindbar sein? Kann das an der Kompatibilität, 2003 zu 2010, liegen?

Gruß Wolfgang

Hi,

willkommen im Windows Forum!

Commandbars finde ich die Sub nicht - Similar Threads - Commandbars finde Sub	Forum	Datum
Mit der folgenden Sub möchte ich Zellen in unterschiedlichen Arbeitsblättern selektionieren Mit der folgenden Sub möchte ich Zellen in unterschiedlichen Arbeitsblättern selektionieren: Ich möchte, wenn Zelle L29 = 1 und das Arbeitsblatt „Erfassung_Analyse“ eingeblendet ist, die Zelle M6 in „Erfassung_Analyse“ selektieren. Wenn „Erfassung_Analyse“ ausgeblendet die Zelle E6 in...	Microsoft Office	12. Juli 2023
OneDrive - keine nachträgliche Synchronisation und Limitierung der Sub-Folder Tiefe OneDrive - keine nachträgliche Synchronisation und Limitierung der Sub-Folder Tiefe: Hallo,ich nutze seit einigen Tagen die Microsoft 365 Version mit 1TB OneDrive Speicher.Leider habe ich verschiede Probleme mit der Cloud-Anbindung die ich nicht gelöst bekomme.1. Ich habe lokal...	Microsoft Office	28. Dezember 2022
Tenant als Sub-Tenant unter einem Haupt-Tenant einrichten Tenant als Sub-Tenant unter einem Haupt-Tenant einrichten: Guten Tag, wir stehen momentan vor folgendem Problem: Ein Kunde A hat Firma B aufgekauft, und möchte nun, dass MS Teams für Firma B eingebunden wird. Sie wollen aber, dass Tenant A Haupt-Tenand...	Microsoft Office	30. März 2020
Public Sub über einen Makro In Arbeitsblatt einfügen Public Sub über einen Makro In Arbeitsblatt einfügen: Hallo Freunde, Ich brauche Hilfe: Ich habe einen Public Sub den ich nich manuell in das Arbeitsblatt einfügen möchte sondern über einen makro, der automatisch den Public Sub in das erste...	Microsoft Office	19. März 2020
Sub- /Unter-Kalender freigeben Sub- /Unter-Kalender freigeben: Hallo Zusammen, ich hab bei mir in meinem Postfach diverse Unterkalender erstellt und diese via Mail an meine Kollegen freigegeben. Wenn diese in der Email auf "Kalender öffnen" gehen...	Microsoft Office	25. Januar 2019
Office 2016 / Excel / VBA - Einzelschrittausführung von Subs über F4 Office 2016 / Excel / VBA - Einzelschrittausführung von Subs über F4: Hallo, früher konnte man bei Excel-VBA die programmierten Subs mit der Taste F4 in Einzelschritten ausführen lassen. Diese Option finde ich bei Office 2016 nicht mehr. Kann mir jemand helfen...	Microsoft Office	26. Juli 2017
Private Sub Workbook_Open() - BUG Private Sub Workbook_Open() - BUG: Habe eine Frage: Wenn ich meine Excel Tabelle öffne, möchte ich, dass immer ein fest definiertes Datenblatt ausgegeben wird. Dazu hab ich in "Diese Arbeitsmappe" folgenden Code eingegeben:...	Microsoft Office	5. November 2016

Commandbars finde ich die Sub nicht