Thema Datum  Von Nutzer Rating
Antwort
Rot Ribbon UI onAction ruft VBA function
14.12.2022 14:30:49 Markus
Solved
14.12.2022 17:21:14 Gast87414
NotSolved
14.12.2022 19:16:38 Flotter Feger
NotSolved
14.12.2022 22:49:25 volti
NotSolved
15.12.2022 08:29:18 Markus
Solved

Ansicht des Beitrags:
Von:
Markus
Datum:
14.12.2022 14:30:49
Views:
194
Rating: Antwort:
 Nein
Thema:
Ribbon UI onAction ruft VBA function

Hallo Zusammen,
Ich habe in Word per VBA einen Button der das Word-Dokument in eine SQL Datenbank zurückspeichert.

Hier die bisherige Button-Definition:

Set oCommandBar = CommandBars.Add(Name:="Exp", Position:=msoBarTop)
oCommandBar.Visible = True
Set oMenue = oCommandBar.Controls.Add(Type:=msoControlButton)
With oMenue
                .Caption = "Speichern nach Exp ..."
                .Style = msoButtonCaption 
                .OnAction = "SendToExp"
                .Visible = True
            End With

OnAction ruft dann die Function

Public Function SendToExp() As String
    Dim httpreq As MSXML2.XMLHTTP30
    Dim Data As String
    Dim prop As DocumentProperty
    Dim url As String
........
End Function

Das funktioniert auch seit Jahren fehlerfrei. Jetzt wollte ich einen zweiten Button hinzufügen, der zusätzlich ein PDF zurückspeichert.
Da ich eh schon an das Makro ran musste, wollte ich die Buttons auf ein modernes Ribbon UI umstellen.

Neues Ribbon UI XML

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="customTab" label="Justus Tab">
                <group id="customGroup" label="Justus Group">
                    <button id="customButton" label="Exp1" imageMso="FileSave" size="normal" onAction="Messagebox" />
                    <button id="customButton2" label="Exp2" imageMso="FileSave" size="normal" onAction="SendToExp" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Der Button für die Messagebox funktioniert:

Sub Messagebox(control As IRibbonControl)
   MsgBox("Hallo")
End Sub

Beim Button SendToExp kommt Fehler:

"Falsche Anzahl an Argumenten oder ungültige Zuweisung einer Eigenschaft".

Public Function SendToExp(control As IRibbonControl) As String
......
End Function

Kann mir jemand sagen wie der Aufruf richten lauten muss?

Besten Dank und viele Grüße

Markus


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 Ribbon UI onAction ruft VBA function
14.12.2022 14:30:49 Markus
Solved
14.12.2022 17:21:14 Gast87414
NotSolved
14.12.2022 19:16:38 Flotter Feger
NotSolved
14.12.2022 22:49:25 volti
NotSolved
15.12.2022 08:29:18 Markus
Solved