Microsoft Excel

Herbers Excel/VBA-Archiv

Hyperlinks per XML starten


Betrifft: Hyperlinks per XML starten
von: André Poppek
Geschrieben am: 20.04.2019 16:25:53

Sehr geehrte Damen und Herren,

ich wollte Hyperlinks auf Internetseiten per XML über ein Ribbon starten. Bilder über Insert Icons wollte ich allerdings nicht einfügen, sondern das Ribbon soll nur den Link als Namen anzeigen. Bei dem folgenden Beispiel soll Wikipedia im Ribbon erscheinen.

Mit onAction können ja Makros im XL-Code abgerufen werden. Die Makros habe ich auch in der selben Excel-Vorlage als *.xlam gespeichert, wie den XML-Code.

Der VBA-Code kann auch ausgeführt werden. Dies habe ich schon getestet.

Bei dem Überprüfen des XML-Codes mit dem CustomUI Editor kommen allerdings folgende 3 Fehlermeldung genau in der Reihenfolge:

1. Das id-Attribut ist unzulässig.
2. Das Label-Attribut ist unzulässig
3. das onAction-Attribut ist unzulässig

Anordnung des Menüs:
Datei Bearbeiten....Hyperlinks
Wikipedia
Google

Mit freundlichen Grüßen

André Poppek

Anlage

  

Betrifft: AW: Hyperlinks per XML starten
von: André Poppek
Geschrieben am: 20.04.2019 16:28:36

VBA-Code:

Sub Link_Wikipedia(control As IRibbonControl)
Dim WebBrowser1 As Object
    Dim i As Integer

    Set WebBrowser1 = CreateObject("InternetExplorer.Application")
    WebBrowser1.Visible = True ' zum testen anzeigen
    WebBrowser1.Navigate "https://www.wikipedia.de"
    While WebBrowser1.ReadyState <> 4
        'Warten, bis Seite geladen ist
        DoEvents
    Wend
    MsgBox WebBrowser1.Document.body.innertext
End Sub



  

Betrifft: AW: Hyperlinks per XML starten
von: André Poppek
Geschrieben am: 20.04.2019 16:31:23

XML-Code (Ausschnitt):

menu id="HyperlinksMenü" label="Hyperlinks" itemSize="normal"
control id=“Link_Wikipedia“ label=“Wikipedia“ onAction=“Link_Wikipedia“ /
/menu


  

Betrifft: AW: Hyperlinks per XML starten
von: Nepumuk
Geschrieben am: 20.04.2019 17:27:16

Hallo André,

der XML-Code würde bei mir so aussehen:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="Tab_01" label="Hyperlinks">
<group id="Grp_01" label="Hyperlinks" >
<button id="Button_01" label="Link_Wikipedia" onAction="Link_Wikipedia" size="normal"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

Gruß
Nepumuk