Thema Datum  Von Nutzer Rating
Antwort
Rot VB Editor Toolbar Button not executing
 06.03.2026 21:11:44 Diana
NotSolved

Ansicht des Beitrags:
Von:
Diana		 Datum:
06.03.2026 21:11:44		 Views:
5		 Rating:
     
Antwort:
  Ja
Thema:
VB Editor Toolbar Button not executing

Hallo ich versuche funktionierend Buttons für die VB Editor Toolbar zu kreieren. Der Button wird kreiert führt aber nicht aus.
Zweitens: wie muss der code umgeschreiben werden das der einfüge ort dort ist wo der cursor grad ist?
Bitte um Hilfe. Danke [MSO 2003]

[code]

    Sub AddButton_TB()
        Dim vbTB As CommandBar, vbBT As CommandBarButton, TBname As String, Mname As String, Cname As String
        TBname = "Code Templates"
        Mname = "WriteTestCode":            Cname = "Write Code"
        Set vbTB = Application.VBE.CommandBars(TBname)
            If Not vbTB Is Nothing Then vbTB.Visible = True Else Debug.Print "TB DNE: """ & TBname & "": Exit Sub
        Set vbBT = vbTB.Controls.Add(Type:=msoControlButton)
        With vbBT: .Caption = Cname: .OnAction = Mname: .Style = msoButtonCaption: End With
        ' With vbBT: .Caption = Cname: .OnAction = "WriteTestCode": .Style = msoButtonCaption: End With
        ' With vbBT: .Caption = Cname: .OnAction = "'" & "WriteTestCode" & "'": .Style = msoButtonCaption: End With
    End Sub
    Sub WriteTestCode()        
        ShowVisualBasicEditor = True: ActiveWindow.Activate                                             ' VBE Focus needed
        Dim vbComp As Object, code As String, lineIndex As Long, curMod As String
        curMod = Application.VBE.ActiveCodePane.CodeModule.Name
        code = "Selection.Text = ""abc"" "                                                   
        Set vbComp = ThisDocument.VBProject.VBComponents(curMod)
        lineIndex = vbComp.CodeModule.CountOfLines + 1: vbComp.CodeModule.InsertLines lineIndex, code   ' At Bottom
    End Sub

[/code]

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VB Editor Toolbar Button not executing
 06.03.2026 21:11:44 Diana
NotSolved