Dynmaisches Menü für Internetseiten
31.10.2021 17:32:46
André
Ich vermute, dass der Fehler der Anzeige entweder an den Variablen liegt oder dass ich die Callback-Funktionen zum Dynamic-Menu-Element benötige.
Die Befehle, die beim dynamischen Menü Google dahinter erscheinen sollen, erscheinen doch da drunter. Nach den Befehlen von Google soll das Menü wieder auf der 1. Ebene weiter laufen. Nur die Befehle Link_Google, Link_Google_Übersetzer, Link_Google_Bücher und Link_Google_Nachrichten sollen in das dynamische Menü Google.
Folgender Versuch klappt nicht:
VBA-Code:
Option Explicit
Sub Link_Google(control As IRibbonControl)
Dim vasObject As Object
Set vasObject = CreateObject("WScript.Shell")
vasObject.Run "https://www.google.de"
End Sub
Sub Link_Wikipedia(control As IRibbonControl)
Dim vasObject As Object
Set vasObject = CreateObject("WScript.Shell")
vasObject.Run "https://www.wikipedia.de"
End Sub
Sub Link_Google_Übersetzer(control As IRibbonControl)
Dim vasObject As Object
Set vasObject = CreateObject("WScript.Shell")
vasObject.Run "https://translate.google.de"
End Sub
Sub Link_Google_Bücher(control As IRibbonControl)
Dim vasObject As Object
Set vasObject = CreateObject("WScript.Shell")
vasObject.Run "https://books.google.de"
End Sub
Sub Link_Google_Nachrichten(control As IRibbonControl)
Dim vasObject As Object
Set vasObject = CreateObject("WScript.Shell")
vasObject.Run "https://news.google.com"
End Sub
Sub Link_YouTube(control As IRibbonControl)
Dim vasObject As Object
Set vasObject = CreateObject("WScript.Shell")
vasObject.Run "https://www.youtube.com/?gl=DE"
End Sub
Sub Link_Domain_Recht(control As IRibbonControl)
Dim vasObject As Object
Set vasObject = CreateObject("WScript.Shell")
vasObject.Run "https://domain-recht.de"
End Sub
XML-Code: