New user
Beiträge: 1
Ort: Lahti / Finnland | Hallo Freunde der VBA Programmierung, Ich suche einen guten Rat
Mein Projekt ist eine LernDB zum Sprachen Lernen. Soweit so gut, mir fehlt leider noch eine Lösung um ein Wortinhalt direkt an Google Translate zu übergeben.
Vielleicht habt Ihr eine funktionierende Lösung ?
Private Sub PhraseF_Click()
Me.PhraseF.ForeColor = 2147483643 'Farbe ein
Me.PhraseD.ForeColor = 16777215 'Farbe aus
Me.PhraseE.ForeColor = 16777215 ' Farbe aus
'_______________________________________________________
'Hier sollte der Inhalt des Feldes PhraseF in die Zwischenablage kopiert werden
'Dim clipboard As MSForms.DataObject 'Diesen Code habe ich ausprobiert, funktioniert nicht?
'Set clipboard = New MSForms.DataObject
'clipboard.SetText "A string value" clipboard.PutInClipboard
'Funktioniert so leider nicht
'____________________________________________
'------------------------------------------------------------
'Google Translate öffnen mit Edge oder Firefox
'------------------------------------------------------------
Dim objWSH As Object
On Error GoTo Fin
Set objWSH = CreateObject("WScript.Shell")
objWSH.Run "msedge https:// https://translate.google.com/??sl=fi&tl=de&op=translate"...
'objWSH.Run ("Firefox https://translate.google.com")
Fin:
Set objWSH = Nothing
If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.Description
'-------------------------------------------------------------------------------------------
'Google Translate ist geöffnet und das Sprachelement sollte in GoggleTranslate kopiert sein_
'leider habe habe ich nicht hin bekommen.
'Wenn jemand eine gute Iddee dazu hat, Hilfe wirdd gerne angenommen.
'___________________________________________________________________________________________ |
Copy and Past via VBA Code