Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bild in userform anzeigen

Forumthread: bild in userform anzeigen

bild in userform anzeigen
25.03.2006 18:00:25
peter
hi leute,
ich möchte verschiedene bilder in einer userform anzeigen lassen. diese bilder sind von der größe her verschieden und müssen aufgrund der erkennbarkeit auch bleiben!
gibt es eine möglichkeit dass sich die größe der userform an die größe des jeweiligen bildes automatisch anpaßt?
vielen dank für eure hilfe!
lg peter
Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bild in userform anzeigen
peter
hallo nochmal,
danke für deine antwort. mein problem ist nur dass ich ca. 20 verschiedene bilder habe die ich nach bedarf öffnen möchte. kann ich diese größenverstellung auch automatisch durchführen (abhängig von der bildgröße)?
danke!
lg peter
Anzeige
AW: bild in userform anzeigen
25.03.2006 18:57:42
K.Rola
Hallo,
genau das passiert ja, dass sich das Userform an die Bildgröße anpasst. Wie du die
Bilder laden willst, weiß ich nicht.
Gruß K.Rola
AW: bild in userform anzeigen
25.03.2006 19:10:25
peter
hi,
ich lade mein bild mit folgendem code:

Sub BildS01_1_Click()
Dim i As Integer
Dim Bild As String
Dim Meldung As String
Meldung = "Kein Bild vorhanden !!!"
i = ActiveSheet.Range("T6") + 1
Bild = Sheets("Bildpfad").Range("B" & i)
If Bild = "" Then
MsgBox Meldung, vbInformation Or vbOKOnly, "STEBO Calculation V 1.0"
Else
Graphik.Abbildung.Picture = LoadPicture(ActiveWorkbook.Path & "\Graphiken\" & Bild)
Graphik.Show
End If
End Sub

was muss ich da einbauen damit sich die größe anpaßt?
danke!
lg peter
Anzeige
AW: bild in userform anzeigen
25.03.2006 20:05:41
K.Rola
Hallo,
Option Explicit

Sub BildS01_1_Click()
Const Meldung As String = "Kein Bild vorhanden !!!"
Dim i As Integer
Dim Bild As String
i = ActiveSheet.Range("T6") + 1
Bild = Sheets("Bildpfad").Range("B" & i)
If Bild = "" Then
MsgBox Meldung, vbInformation Or vbOKOnly, "STEBO Calculation V 1.0"
Else
With Graphik.Abbildung
.AutoSize = True
.Left = 0
.Top = 0
.Picture = LoadPicture(ActiveWorkbook.Path & "\Graphiken\" & Bild)
End With
With Graphik
.Width = .Abbildung.Width
.Height = .Abbildung.Height + 25
.Show
End With
End If
End Sub

Gruß K.Rola
Anzeige
AW: bild in userform anzeigen
25.03.2006 20:35:27
peter
hallo,
funktioniert super! besten dank nochmal für deine hilfe!
lg und schönen abend noch!
peter
Rola, wo ist denn das Bild i.d. Datei intergriet?
25.03.2006 21:35:20
Bernd
Hi Rola,
mal ne blöde Frage: wo hast du denn die drei Bilder für dein Beispiel in der Datei integriert?
Grüße
Bernd
AW: Rola, wo ist denn das Bild i.d. Datei intergriet?
25.03.2006 22:02:30
K.Rola
Hallo,
die sind in drei Image-Controls hinterlegt. Diese kann man auch außerhalb des sichtbaren Bereichs platzieren. Siehe Bild:
Userbild
Schau dir mal die Top-Eigenschaft der Images an.
Gruß K.Rola
Anzeige
O.T. was machen denn die xls ^ xlas?
25.03.2006 22:18:36
Reinhard
Hallo K.Rola,
wie im Betreff gesagt, was machen die denn? Magst du den/die Codes(s) listen?
Gruß
Reinhard
AW: O.T. was machen denn die xls ^ xlas?
25.03.2006 22:25:15
K.Rola
Hallo,
das sind ganz individuelle Sachen, die keine allgemeine Relevanz haben.
Gruß K.Rola
AW: O.T. was machen denn die xls ^ xlas?
25.03.2006 22:31:18
Reinhard
Hallo K.Rola,
okay.
FTP kann ich mir vorstellen ich habe in meiner personl.xls auch Code wo ich in der Tabelle Bereiche auswähle, dann den Code in der personl.xls starte und dann kann ich direkt beim Antworten hier dies einfügen mit Strg-V, quasi wie Jeannie.
Interessieren würde mich was TBL macht, ist das auf Herber bezogen und wenn ja, was macht es?
Gruß
Reinhard
Anzeige
AW: O.T. was machen denn die xls ^ xlas?
25.03.2006 22:47:09
K.Rola
Hallo,
ne, nicht herberbezogen, ganu allgemein Selektion in Gif exportieren oder in die Zwischenablage. Benutze ich aber fast nie.
Gruß K.Rola
Okay, Interesse am Code ist weg :-) Gruß o.w.T
25.03.2006 22:48:41
Reinhard

Rola, ich finde die Bilder einfach nicht ...
26.03.2006 11:03:55
Bernd
Guten Morgen, Rola,
danke für deine Antwort. Ich finde aber weder in den Tabellenblättern noch sonst wo die Bilder. Wo sind denn diese genau hinterlegt?
Noch 'ne Bitte: wie hast du denn deinen Bildausschnitt so scharg hinbekommen? Wenn ich den Bildschirm in den Zwischenspeicher lade und dann als "Geräteunabhängige Bitmap" einfüge, kann man nichts mehr erkennen.
Danke vorab.
Bernd
Anzeige
AW: Rola, ich finde die Bilder einfach nicht ...
26.03.2006 14:31:33
Reinhard
Hi Bernd,
welchen Browser benutzt du denn?
Gruß
Reinhard
AW: Rola, ich finde die Bilder einfach nicht ...
26.03.2006 18:26:30
Bernd
Hi Reinhard,
Firefox 1.5
Was hat denn der Browser damit zu tun?
Grüße
Bernd
AW: Rola, ich finde die Bilder einfach nicht ...
26.03.2006 20:56:52
Reinhard
Hi Bernd,
ich benutze den auch, schau mal bei https://www.herber.de/forum/offtopic/messages/3525.html
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Rola, ich finde die Bilder einfach nicht ...
27.03.2006 09:11:28
Bernd
Hi Reinhard,
Danke Dir. Ich arbeit mit Ulead Photo Impact 6.0. Habe es gerade ausprobiert. Funktioniert einwandfrei, siehe Beispiel :-)
Userbild
Danke und Grüße
Bernd
;

Forumthreads zu verwandten Themen

Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Bild im image eines userforms löschen
Polarfuchs

Hallo Ihr Checker,
ich habe in einer Sub einem Image in einer Userform ein Bild von der Festplatte mittels LoadPicture zugeweisen. Jetzt bräuchte ich den Befehl, das Bild aus dem Image des Userforms wieser zu löschen, so dass beim nächsten Aufruf des Userforms das Image wieder leer ist und...
18.09.2008 15:53:51
Thread-ID: 1010775
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Anzeige
wenn Bild hinterlegt, geht nichts mehr (Userform)
Reinhard

Hallo zusammen
ich habe folgende Userform Die Datei https://www.herber.de/bbs/user/61474.xls wurde aus Datenschutzgründen gelöscht
diese funktioniert einwandfrei!
wenn ich aber als Hintergrund ein Image (Anzeige) hinterlege, funktioniert nichts mehr. Wieso ist das so?
kann man...
29.04.2009 08:10:29
Thread-ID: 1071763
4 Beiträge
Anzeige
Bilder aus Verzeichnis in Userform anzeigen
Rainer

Hallo,
jetzt hab ich nochmal eine Frage:
Gibt es eine Möglichkeit, Bilder nacheinander direkt aus einem Ordner (zB D:\Bilder) per Schaltflächen in einem Userform anzeigen zu lassen? Also im Prinzip wie bei einem Bildbetrachter:
Bei jeder Betätigung eines Vorwärts-Schalters werde...
16.06.2009 22:15:03
Thread-ID: 1082074
3 Beiträge
geladenes Bild in Userform Image speichern
k

Hallo,
...habe in einer Userform das Element Picture drin und dieses wird mit Fotos aus einem Verzeichnis entsprechend geladen. Nun würde ich gern dem User die Möglichkeit geben - dieses Bild bei Bedarf unter eine Art "Datei speichern unter" für sich zu speichern.
Habe aber keine richti...
18.08.2009 13:46:40
Thread-ID: 1096746
9 Beiträge
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Bild in Zellverbund einfügen
Markus

Hallo,
füge ich ein Bild (Einfügen Graphik) in einen Zellverbund (verbunde Zellen von A3 bis R13 ein,
so wird das Bild zwar eingefügt ....
aber die Grösse passt sich nicht dem Zellverbund an (Bild meistens zu gross);
es wird zudem nicht eingemittet (der Zellverbund wurde vorher...
29.10.2009 16:19:45
Thread-ID: 1113103
4 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Bild in userform
Frank

Schönen Tag,
ich suche für folgendes problem eine lösung
ichhabe in einer userform eine listbox in welche ich aus der tabelle1 die spalten A bis E einlese. das funktioniert einwandfrei. in der splate e habe ich einen andresse eines bildes auf meiner festplatte gespeichert. ist es mögli...
05.02.2010 16:39:31
Thread-ID: 1136212
6 Beiträge
Text + Bild aus Tabellenballt in Userform Anzeigen
Fredy

Hallo alle
ich würde gerne ein Game Lösung Datenbank Erstellen
ich hatte gestern die Frage Gestell wie ich ein Text aus einem Tabellenballt in
einem MsgBox Anzeigen lassen kann das Klappte auch nur ist das Problem das man
in einer MsgBox Keine Bilder Anzeigen Kann also muss Ic...
11.03.2010 16:55:03
Thread-ID: 1145156
5 Beiträge
Anzeige
Problem mit Bild laden in Userform
KLE

Hallo,
möchte gern per Click in einer USerform den Pfad der Datei einlesen und gleich anzeigen.
Siehe Musterdatei im Anhang, doch leider klappt da was nicht.
Die Datei kann gesucht und der korrekte Pfad auch eingelesen und in der Userform auch
angezeigt werden, aber die "LoadPic...
05.05.2010 22:13:24
Thread-ID: 1155691
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bilder in Userform Anzeigen und Anpassen

Schritt-für-Schritt-Anleitung

Um ein Bild in einer Excel Userform einzufügen und dessen Größe automatisch anzupassen, folge dieser Anleitung:

  1. Userform Erstellen: Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen. Erstelle eine neue Userform.

  2. Image-Control Hinzufügen: Ziehe ein Image-Control aus der Toolbox in deine Userform. Nenne es z.B. Abbildung.

  3. VBA-Code Eingeben: Füge den folgenden VBA-Code in das Code-Fenster der Userform ein:

    Sub BildS01_1_Click()
    Const Meldung As String = "Kein Bild vorhanden !!!"
    Dim i As Integer
    Dim Bild As String
    i = ActiveSheet.Range("T6") + 1
    Bild = Sheets("Bildpfad").Range("B" & i)

    If Bild = "" Then
        MsgBox Meldung, vbInformation Or vbOKOnly, "STEBO Calculation V 1.0"
    Else
        With Graphik.Abbildung
            .Picture = LoadPicture(ActiveWorkbook.Path & "\Graphiken\" & Bild)
            .AutoSize = True
        End With

        With Graphik
            .Width = .Abbildung.Width
            .Height = .Abbildung.Height + 25
            .Show
        End With
    End If
End Sub

  4. Bilder Pflegen: Stelle sicher, dass die Bilder im angegebenen Pfad gespeichert sind. Ersetze den Pfad im Code mit dem tatsächlichen Pfad deiner Bilder.

  5. Userform Testen: Schließe den VBA-Editor und teste die Userform, um sicherzustellen, dass das Bild korrekt geladen und die Größe angepasst wird.

Häufige Fehler und Lösungen

  • Bild wird nicht angezeigt: Überprüfe den Pfad zu deinem Bild. Stelle sicher, dass der Dateiname und die Endung korrekt sind.

  • Userform passt sich nicht an die Bildgröße an: Stelle sicher, dass die .AutoSize-Eigenschaft auf True gesetzt ist und die Dimensionen des Image-Controls korrekt eingestellt sind.

  • Fehlermeldung "Kein Bild vorhanden": Diese Meldung erscheint, wenn kein Bild in der angegebenen Zelle gefunden werden kann. Überprüfe den Inhalt von Sheets("Bildpfad").Range("B" & i).

Alternative Methoden

Du kannst auch andere Methoden verwenden, um ein Bild in eine Userform einzufügen:

  1. Direktes Einfügen: Füge das Bild direkt in die Userform ein, anstatt es über VBA zu laden. Dies kann jedoch die Flexibilität einschränken.

  2. Steuerelemente Nutzen: Verwende andere Steuerelemente wie Image oder OLEObject, um verschiedene Bildformate oder -quellen zu integrieren.

Praktische Beispiele

Hier sind einige Beispiele, wie du verschiedene Bilder in deiner Userform anzeigen kannst:

  1. Dynamisches Laden von Bildern: Ändere den Bildpfad basierend auf Benutzerinteraktionen, z.B. durch Dropdown-Listen oder Schaltflächen.

  2. Werbeanzeigen als Bild: Du kannst auch Werbeanzeigen oder Grafiken in deine Userform integrieren, indem du den Code entsprechend anpasst.

Beispiel für das Laden eines Bildes über eine Schaltfläche:

Private Sub btnLaden_Click()
    Call BildS01_1_Click
End Sub

Tipps für Profis

  • Optimierung der Bildgröße: Stelle sicher, dass die Bilder vor dem Laden in die Userform optimiert sind, um die Ladezeiten zu reduzieren.

  • Verwendung von Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in deinem VBA-Code, um die Benutzererfahrung zu verbessern.

  • Verwende Module: Organisiere deinen Code in Module, um die Wartbarkeit zu verbessern und die Übersicht zu behalten.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Bilder in einer Userform verwalten?
Du kannst eine Collection oder ein Array verwenden, um mehrere Bildpfade zu speichern und diese dann dynamisch in der Userform anzuzeigen.

2. Gibt es eine Begrenzung der Bildgröße?
Ja, die maximale Größe hängt von der Bildschirmauflösung und der verwendeten Excel-Version ab. Teste verschiedene Bildgrößen, um die besten Ergebnisse zu erzielen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige