Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gif in Userform

gif in Userform
31.07.2006 22:11:32
Dirk
Hallo,
hoffe ihr könnt mir auch heut wieder mal helfen
Habe mit Hilfe dieses Forums ein bewegliches Bild(gif)in ein Webbrowser eingefügt, das ganze in einer Userform, funktioniert auch soweit.
Problem ist, dass der Webbrowser weißen Hintergrund hat, ich aber Userformgrau brauche, dass gif ist Transparent
Kann mir da jemand helfen, bedanke mich schon einmal
Dirk

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gif in Userform
31.07.2006 22:37:33
Josef
Hallo Dirk!
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit
'source:=http://rtsoftwaredevelopment.de/
Const BG_COLOR_GREY& = &HCCCCCC

Private Sub UserForm_Activate()
WebBrowser1.Navigate "http://www.herber.de/images/new.gif"
Me.BackColor = BG_COLOR_GREY
End Sub


Public Function VBColor2HTML(ByVal Color As Long) As String
Dim r%, g%, b%
r = Color And &HFF&
g = Color \ &H100& And &HFF&
b = Color \ &H10000 And &HFF&
VBColor2HTML = RGB2HTML(r, g, b)
End Function


Public Function RGB2HTML(ByVal r As Integer, ByVal g As Integer, ByVal b As Integer) As String
RGB2HTML = CHex(r, 2) + CHex(g, 2) + CHex(b, 2)
End Function


Private Function CHex(ByVal nValue As Long, Optional ByVal n As Integer = 0) As String
Dim sHex As String
sHex = Hex$(nValue)
If n > 0 And Len(sHex) < n Then
  sHex = String(n - Len(sHex), "0") + sHex
End If
CHex = sHex
End Function


Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.bgColor = VBColor2HTML(BG_COLOR_GREY)
WebBrowser1.Document.body.Scroll = "no"
WebBrowser1.Document.body.Style.Border = "none"
End Sub


Gruß Sepp

Anzeige
AW: gif in Userform
31.07.2006 22:43:34
Dirk
Hallo Josef,
danke für die schnelle Antwort, obs funktioniert weiß ich noch nicht, gehe aber davon aus, und probier es natürlich gleich noch.
Vielen Dank für die kompetente schnelle Hilfe, und das um diese Uhrzeit.
Dirk
brauche noch Hilfe
31.07.2006 23:04:39
Dirk
Hallo Josef,
habe Deinen Code hinter die Userform gelegt, angepasst, mit dem Pfad des gifs, und mir mit Hilfe einer Schaltfläche die Userform anzeigen lassen.
Erfolg: Userform startet, Webbrowser weiß und kein gif.
was mache ich falsch?
AW: brauche noch Hilfe
31.07.2006 23:06:59
Josef
Hallo Dirk!
Zeig deinen Code!
Gruß Sepp

AW: brauche noch Hilfe
31.07.2006 23:11:42
Dirk
Hallo Josef,
danke das Du Dich meines Problems annimmst
Habe die Testmappe hochgeladen
https://www.herber.de/bbs/user/35483.xls
Dirk
Anzeige
AW: brauche noch Hilfe
31.07.2006 23:19:24
Josef
Hallo Dirk!
Es gibt auch kein Ereignis das UserForm1_Activate() heist.
Private Sub UserForm_Activate()

dann läuft's.
Gruß Sepp

Super Vielen Dank
31.07.2006 23:27:48
Dirk
Hallo Josef,
sorry, den Bock hab ich geschossen, dachte weil doch die Userform Userform1 heißt.
Muß halt noch viel lernen
Vielen Dank für Deine Mühen, bis zum nächsten Mal
Danke Dirk
Anzeige

106 Forumthreads zu ähnlichen Themen

animierte gif in UserForm
Gernot

Hallo Excelspezialisten!Habe mir die gif89.dll installiert und das Steuerelement gif controll auf der UserForm aufgezogen - wie baue ich nun ein animiertes gif in dieses Steuerelement ein????Im Voraus ein herzliches Dankeschön für eine kompetente Antwort.Gruß Gernot
29.04.2002 16:23:57
Thread-ID: 117242
2 Beiträge
Anzeige
VBA: Alle Comboboxen einer Userform
PeTeR

Hallo VBA-Freaks,
ich möchte gerne in einer For-each-Schleife alle Comboboxen einer Userform abarbeiten. Im Prinzip:
For each c in userform.comboboxen
c.visible=true
next c
Wie lautet die Schleife korrekt?
Vielen Dank für euer Hilfe
PeTeR
13.05.2013 17:08:28
Thread-ID: 1312776
4 Beiträge
Jasc Animation in Userform einbinden
Markus

Hi LeuteHabe auf einer alten Computer Bild von vor 8 Monaten ein Sharewareprogramm gefunden und zwar Jasc Software. Mit diesem Programm kann man also animieren. Problem ist wie bekomme ich es hin das beim hochfahren der ersten userform Seite dies Animation abläuft??? Hat jemand eine Idee.Bin fü...
07.07.2002 22:10:26
Thread-ID: 134562
4 Beiträge
Anzeige
Mit VBA eine Userform im VB Editor bearbeiten
Helmut

Hallo,
ich möchte Userforms im VB Editor automatisiert austauschen (Versionsänderung)
In der Datei mit dem Austauschmakro habe ich auch die neue Userform
Ich möchte dann per Makro mehrere Dateien aufrufen und:
- eine dort existierende Userform löschen
- und die neue Userform...
07.05.2014 10:11:32
Thread-ID: 1360204
2 Beiträge
Excel VBA Wert aus einer Zeile in Userform ausgebe
Ben

Hallo,
ich bin gerade dabei eine Userform zu erstellen. Dabei möchte ich aus einem Kombinationsfeld einen Namen auswählen lassen. Die Liste der Namen ist in einer anderen Arbeitsmappe hinterlegt (Team Matrix). Sobald der Nutzer sich für einen Namen entschieden hat, soll daneben ein Beschrif...
30.05.2014 13:27:47
Thread-ID: 1364020
4 Beiträge
VBA Excel - Bilder (GIF) in Laschen Multipage lade
Heinrich

Hallo liebe Leute,
ich werde irre. Ich schaffe es nicht, vorhandene Bilder des Formats gif in verschiedene Laschen einer Multipage-Form zu laden. :-(((
Folgenden Code benutze ich momentan beim Versuch, zumindest ein Bild in eine Lasche zu laden, und bekomme die Fehlermeldung "Die Method...
12.06.2014 08:00:56
Thread-ID: 1365540
5 Beiträge
perVBA Makro zu Steuerelement in Userform zuordne
Marcus

Hallo zusammen,
ich stehe vor folgendem Problem:
ich fülle beim Öffnen einer Userform diese mit Textboxen, Labels und Checkboxen.
Ich möchte allerdings den Checkboxen gleichzeitig weitere makros zuordnen.
folgenden Code habe ich probiert:
Private Sub UserForm_Activate()
...
12.06.2014 16:16:54
Thread-ID: 1365626
8 Beiträge
VBA Wert Zelle in Userform
Charly

Hallo!
Ich komme mit einem Problem nicht weiter und würde mich sehr über kompetente Hilfe freuen.
Ich habe folgenden Code:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then Cells(Range("A65536").End(xlUp).Offse...
21.08.2014 07:48:22
Thread-ID: 1377489
14 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
3
10
1
3
4
7
13
5
10
2
1
5
1
1
3
2
7
24
3
6
24
2