13.07.2019, 22:21 (Dieser Beitrag wurde zuletzt bearbeitet: 13.07.2019, 22:21 von Sabine2519960707.)
Schönen Abend Gewünscht, ich habe eine frage:
Auf meiner Uferform habe ich einen Webbrowser, mit dem Command.B1 der mich per Klick mit Googl verbindet, so ich möchte aber da etwas anderes machen, und zwar ich bin der volle fan von Animationen (Herzchen Pärchen unsw.)
Ich hab einen Ordner in dem ich mir bereits einige Gif rein gezogen habe, ich habe diese mit Nr 01,02,03....... versehen, so Meine Arbeitsmappe ist am Desktop platziert in einen Ordner Name meine Gifs, Anbei möchte ich es so erstellen , ich gebe in die Zelle R5 , die Nr meines Bildes ein, nun mochte ich das der Webbrowser auf der Userform, mein Gif ladet, wie muss ich da den Vorgehen bitte.
wieso bekomme ich hier einen Fehler ? und wie müsste der Code lauten; das der Webbrowser weis welches Bild er laden soll Wenn ich in Zelle R5 reinschreibe 01 dann soll das bild 01 erscheinen so wie ich die Bilder Durchnummerierte
Private Sub UserForm_Activate()
WebBrowser1.Navigate2 "stemmmmm\01.gif"
14.07.2019, 05:45 (Dieser Beitrag wurde zuletzt bearbeitet: 14.07.2019, 07:06 von WillWissen.
Bearbeitungsgrund: Codetags
)
hallo ich habe es jetzt mal mit den Code versucht , ein freund von mir hat gemeint der müsse funktionieren, es wäre aber vermutlich an den einstellungen etwas falsch am PC? kann das sein ?
Code:
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "about:<html><body style='margin:0; padding:0; overflow:hidden;'>" & _
"<img src='" & "file:///" & ThisWorkbook.Path & "\" & Sabinchenordner & "01" & ".gif" & _
"'></img></body></html>"
End Sub
habe so etwas noch nicht versucht, (bin mehr für ernsthafte Anwendungen), kann mir aber nicht vorstellen, dass UserForms HTML-Quelltexte verarbeiten können.
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
14.07.2019, 09:39 (Dieser Beitrag wurde zuletzt bearbeitet: 14.07.2019, 09:39 von Sabine2519960707.)
danke für die Info
Grüß Dich, danke für deine Erklärung und den Cods , allerdings ich habe das jetzt getestet und es will nicht funktionieren, was mach ich für einen fehler ? ich hab zurzeit in Zelle [R5] N.r 1 eingegeben, allerdings klappt das nicht.
Private Sub UserForm_Activate()
WebBrowser1.Navigate2 (ThisWorkbook.Path & "\Sabinchenordner\" & [R5] & ".gif")
End Sub
-----------------------------------------------------------------------------------------------------------------------------------
Sub UF_Zeigen()
UserForm1.Show vbModeless
End Sub
-------------------------------------------------------------------------------------------------------------------------------------
Sub UF_wechsel()
UserForm1.Hide
DoEvents
UserForm1.Show vbModeless
End Sub
---------------------------------------------------------------------------------------------------------------------------------------
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
With WebBrowser1
.Width = .Document.images(0).Width
.Height = .Document.images(0).Height
.Document.images(0).Style.Border = "none"
.Document.body.Scroll = "no"
.Document.body.Style.Border = "none"
End With
End Sub
--------------------------------------------------------------------------------------------------------------------------------------
Ich bekomme ständig eine Fehlermeldung, fehlt mir hier noch etwas ? oder muss ich diesen Ordner ( Sabinchenordner) wo anders ablegen ?
Grundsätzlich sieht es so aus C:\Users\SabineTestPC\Desktop\SabineG\Sabinchenordner < in diesen Ordner die Gifs
es klappt auch nicht mit der Angabe C:\Users\SabineTestPC\Desktop\SabineG\Sabinchenordner
Zitat:Ich bekomme ständig eine Fehlermeldung, fehlt mir hier noch etwas ? oder muss ich diesen Ordner ( Sabinchenordner) wo anders ablegen ?
Es würde schon auch ein wenig helfen, wenn Du die Fehlermeldung mal bekanntgeben würdest.
Im Übrigen, wo hast Du die verschiedenen Codes hinkopiert?
Nur ein Teil davon gehört in ein Allgemeines Modul.
Am Einfachsten für die Helfer wäre es, Du würdest uns die Datei zeigen.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
14.07.2019, 10:24 (Dieser Beitrag wurde zuletzt bearbeitet: 14.07.2019, 10:36 von Sabine2519960707.)
hallo ja und wie sieht der zweite dann den aus ?
verstehe ich jetzt nicht.
Code:
mit >>> Userform1_Initialize klappt auch nicht ???
Lg
ok super werde ich machen bis dann
also irgendwie dachte ich es sein einfacher , mein freund lacht mich bereits aus deswegen, und meint nur das sein Code richtig wäre und auf meinen PC was falsch eingestellt wäre, ich hoffe das das nicht der fall ist , den andere Gifs laufen doch auch im Normalen Explorer, also warum sollte es am Pc Liegen?.
(14.07.2019, 10:24)Sabine2519960707 schrieb: hallo ja und wie sieht der zweite dann den aus ?
verstehe ich jetzt nicht.
Code:
mit >>> Userform1_Initialize klappt auch nicht ???
Lg
ok super werde ich machen bis dann
also irgendwie dachte ich es sein einfacher , mein freund lacht mich bereits aus deswegen, und meint nur das sein Code richtig wäre und auf meinen PC was falsch eingestellt wäre, ich hoffe das das nicht der fall ist , den andere Gifs laufen doch auch im Normalen Explorer, also warum sollte es am Pc Liegen?.
Mit den Ordnern wäre es ja nicht gegangen hier rein zustellen oder ( wo ich zumindest ein gif reingehe )oder?
14.07.2019, 10:45 (Dieser Beitrag wurde zuletzt bearbeitet: 14.07.2019, 10:46 von schauan.)
Hallöchen,
wenn Du in den Code von Activate schaust, siehst Du doch, was aufgerufen wird.
Das aufgerufene Makro ist
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
und in den Klammern siehst Du, dass da zwei Dinge benötigt werden, pDisp und URL.
In Activate hasst Du die Angabe zur Datei, das dürfte dann als URL verarbeitet werden. Fehlt also noch das Objekt pDisp …
Da das in dem Makro nicht verwendet wird, fehlt es eigentlich nicht und kann weggelassen werden.
Private Sub WebBrowser1_NavigateComplete2(ByVal URL As Variant)
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
14.07.2019, 11:41 (Dieser Beitrag wurde zuletzt bearbeitet: 14.07.2019, 11:42 von Sabine2519960707.
Bearbeitungsgrund: weil es so funktiert
)
hallo na , also nach langen hin her ( so gehts ) jetzt muss ich aber erst es an der grösse anpassen ( mal sehn ) jedenfalls mit dem Code läuft es vorab
Private Sub UserForm_Activate()
Dim i As String, Bild As String
i = Tabelle1.Range("R5")
Bild = ThisWorkbook.Path & "\SabineG\Sabinchenordner\" & i & ".Gif"
WebBrowser1.Navigate2 (ThisWorkbook.Path & "\Sabinchenordner\" & [R5] & ".gif")
End Sub
Private Sub WebBrowser1_DocumentComplete _
(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.Body.Scroll = "no"
…