Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder speichern in Userform

Forumthread: Bilder speichern in Userform

Bilder speichern in Userform
23.09.2020 10:04:47
Klaus
Hallo zusammen,
ich lade per Schaltfläche in einer Userform ein Bild hoch. Jetzt möchte ich dieses Bild in der Userform gerne speichern, damit es nach dem Schließen und beim nächsten Öffnen der Userform wieder angezeigt wird. Mit dem Zusatz ThisWorkbook.Save im makro funktioniert es leider nicht.
Vielen Dank schon mal für Eure Hilfe!
LG
Klaus
Hier noch der Code mit dem ich das Bild lade:

Private Sub cmdBild_Click()
Dim varBild As Variant
varBild = Application.GetOpenFilename("Bilder (*.jpg), *.jpg")
If Not varBild = False Then
Image1.Picture = LoadPicture(varBild)
End If
End Sub
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bilder speichern in Userform
23.09.2020 10:58:30
Beverly
Hi Klaus,
lade es einfach im Activate-Ereignis des UserForms wieder neu: schreibe es dazu in deinem Click-Ereignis auf eine Public-Variable.

AW: Bilder speichern in Userform
23.09.2020 11:23:28
Klaus
Hi Beverly,
da hab ich auch schon drüber nachgedacht. Das Problem ist aber, dass das Bild variabel ist. Dahinter liegt eine Lisste mit verschiedenen Projekten und je nachdem in welcher Zeile ich mich gerade befinde ist halt ein anderes Bild relevant. Ich möchte über eine Einbaemaske allen Kollegen die Möglichkeit geben, ein neues Projekt anzulegen und in diesem Zuge auch ein Bild dazu zu speichern, welches ich beim späteren Aufruf über die Eingabemaske wieder angezeigt bekomme.
LG
Klaus
Anzeige
AW: Bilder speichern in Userform
23.09.2020 11:50:07
Beverly
Hi Klaus,
das Bild holst du mit deinem Code ins UserForm und wenn dieses Bild auf die Variable geschrieben wird, kannst du beim nächsten Start des UF genau auf dieses Bild in der Variablen zugreifen. Sobald mit deinem Code das nächste Bild geladen wird, schreibt es dein Code wieder auf die Variable und beim nächsten Start des UF wird dann das neu ausgewählte Bild geladen - ist das nicht variabel genug? Oder meinst du etwas anderes?

Anzeige
AW: Bilder speichern in Userform
23.09.2020 12:56:40
Nepumuk
Hallo Klaus,
ich würde den Pfad in einem unsichtbaren Namen speichern.
Option Explicit

Private Const PICTURE_PATH As String = "PicturePath"

Private Sub CommandButton1_Click()
    Dim vntPath As Variant
    vntPath = Application.GetOpenFilename("Bilder (*.jpg), *.jpg")
    If Not vntPath = False Then
        Set Image1.Picture = LoadPicture(vntPath)
        Call ThisWorkbook.Names.Add(Name:=PICTURE_PATH, RefersTo:=vntPath, Visible:=False)
    End If
End Sub

Private Sub UserForm_Initialize()
    Dim objName As Name
    Dim strFilePath As String
    For Each objName In ThisWorkbook.Names
        If objName.Name = PICTURE_PATH Then Exit For
    Next
    If Not objName Is Nothing Then
        strFilePath = Evaluate(PICTURE_PATH)
        Set Image1.Picture = LoadPicture(Filename:=strFilePath)
        Set objName = Nothing
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Bilder speichern in Userform
23.09.2020 13:29:32
Klaus
Hallo Nepumuk,
vielen Dank! Der Code funktioniert super. Jetzt aber die Schwierigkeit:
in der Userform mit dem Image habe ich die Möglichkeit mittels Schaltfläche die Zeile in der dahinterliegenden Tabelle zu wechseln. Injeder Zeile steht ein Anderes Projekt, mit einem anderen Bild. Jetzt sollte beim Wechsel der Zeile auch das Bild im Image1 entsprechned gewchselt werden.
LG
Klaus
Anzeige
AW: Bilder speichern in Userform
23.09.2020 13:48:04
Nepumuk
Hallo Klaus,
dann würde ich den Pfad zum Bild in der jeweiligen Zeile speichern. Die Spalte kannst du ja ausblenden.
Gruß
Nepumuk
;

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
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Formel in bedingter Formatierung
ludicla

Hallo Profis,
ich möcht folgende "bedingte Formatierung2 umsetzen und krieg die Kurve nicht.
Ich hab in einer Zeile in diversen Feldern (nicht zusammenhängend) z. B. B1+B3+B5+B7
ein Maximum.
Nun möcht ich z. B. den Wert in B3 farbig markieren wenn er kleiner als 80 %
des Ma...
28.10.2008 11:54:23
Thread-ID: 1019875
6 Beiträge
Anzeige
VBA - Ganzer Bildschirm ein/aus
Klaus

Verehrte EX-Gurus!
Ich habe mir in Excel ein CD-Archiv angelegt, das ich bequem über einfache Makros auf meine Bedürfnisse abgestimmt steuern kann.
Unter anderem kann ich den "Ganzen Bildschirm" ein- und ausschalten - ich wollte diese Prozedur mit Variable und Not Variable auf ein Makro...
08.11.2008 08:21:33
Thread-ID: 1022845
3 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
Zellenformat in Formeln
Larass

Hallo,
ich möchte in einer Zelle links von einem Ergebnis einen string anzeigen, jedoch nur wenn auch ein ergebnis in der Zelle steht.
Konkret habe ich z.B. als Ergebnis eine Spannung Sigma,st
Sobald ich eine Formel eingebe wird aber die Formatierung zerschossen, sprich das Sigma wi...
16.12.2008 16:42:12
Thread-ID: 1033346
6 Beiträge
Formatproblem in Formel
martin

Hallo nochmal! :-)
Mein Problem:
In Zelle A1 steht ein Datum. Formatiert auf "Datum, Typ: 14.03.01"
In Zelle A2 soll neben Text auch das Datum (+14 Tage) dargestellt werden.
Also so:
="Bitte überweisen Sie den Betrag bis zum "&A1+14&" auf ....."
Das Problem: Das...
19.12.2008 15:18:41
Thread-ID: 1034180
3 Beiträge
Formatierung mit in die Formel einarbeiten
Jochen

Hallo,
habe folgende Formel:
=WENN(A8"";VERKETTEN(SVERWEIS(A8;B2:E5;2;FALSCH);ZEICHEN(10);SVERWEIS(A8;B2:E5;3;FALSCH);" / "; SVERWEIS(A8;B2:E5;4;FALSCH));"") .
Diese Formel verkettet "Name" - "Vorname" - "/" und eine weitere "Bezeichnung" miteinander.
Die Zelle ist Fett und Schr...
12.01.2009 10:57:00
Thread-ID: 1038800
4 Beiträge
Anzeige
Formeleditor in Userform???
Martin

Hallo zusammen,
ich nehme in einer Userform verschiedene Berechnungen vor, nun sollte ich wenn mit der Maus über ein Ergebnis gefahren wird per MouseMove die zugehörige Berechnugsformel in einem Textfeld anzeigen.
Ist es möglich dies per Formeleditor zu machen um die Formeln vernünftig...
15.01.2009 21:19:00
Thread-ID: 1040313
8 Beiträge
Anzeige
Formelergebnisse in UserForm eintragen
Hans

Hallo,
Ich brauche ein meiner UserForm insgesamt 12 Formelergebnisse in den Label. Das heißt 12 Label, für je ein Ergebniss
Die Ergebnisse dienen als Vorabinformation (über verschiedene Berechnungsvarianten) für den User, der dann in der UF eine Variante mit einem "OptionButton" auswähl...
03.03.2009 22:03:23
Thread-ID: 1056120
6 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

Beliebteste Forumthreads (12 Monate)

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