Script in Excel VBA -Speed Youtube Videos verstell
07.07.2019 08:19:09
stef26
mit eurer Hilfe habe ich es geschafft mein privates Projekt "Englisch mit Spass lernen" fast zum Abschluss zu bringen. Und das ohne großartige VBA Kenntnisse.
Ich habe noch ein kleines Attentat auf euch vor.
Ich habe eine USERForm erstellt in der ein Webbrowser ein Youtubevideo abspielt.
Darunter werden die Englische und Deutsche Texte synchron angezeigt.
Da die Lieder sehr schnell sind um englisch zu lernen, würde ich gerne die Geschwindigkeit des Players einstellen können, was in Excelnicht so einfach machbar ist.
Deshalb habe ich mir in einen nicht Excel Forum von ganz lieben Helfern einen Code posten lassen, der genau das macht.
Nun bräuchte ich Excelprofis die in der Lage sind so ein script in ExcelVBA umsetzen könnten.
Do
ProcessClose("iexplore.exe")
$oIE = _IECreate("https://www.youtube.com/watch?v=ZZcsacWaD0w")
Until IsObj($oIE)
$oIE.document.parentwindow.execScript("var mp = document.getElementById(""movie_player"");")
$oIE.document.parentwindow.execScript("var save = document.getElementsByClassName(""ytp-time- _
current"")[0]; save.innerText = """";")
$oIE.document.parentwindow.execScript( _
"var playbackRates = mp.getAvailablePlaybackRates();" & _
"for (i = 0; i
Wäre cool wenn sich jemand findet der mir zu meinen Projektabschluss helfen könnte.Ich hoffe das lässt sich in VBA umschreiben?
Wie schon gesagt da bin ich mit meinen VBA Kenntnissen völlig raus.
Liebe Grüsse
Stefan
P.S. Wenn ich fertig bin könnte ich das Projekt gerne für alle Posten, die auch das Problem haben mit Englisch und das mit dem Tool verbessern möchten...
Do
ProcessClose("iexplore.exe")
$oIE = _IECreate("https://www.youtube.com/watch?v=ZZcsacWaD0w")
Until IsObj($oIE)
$oIE.document.parentwindow.execScript("var mp = document.getElementById(""movie_player"");")
$oIE.document.parentwindow.execScript("var save = document.getElementsByClassName(""ytp-time- _
current"")[0]; save.innerText = """";")
$oIE.document.parentwindow.execScript( _
"var playbackRates = mp.getAvailablePlaybackRates();" & _
"for (i = 0; i