Bild via Button auswählen und in Userform.Image einfügen

[steschnu]

Ich möchte via Button ein Bild in ein Userform Image einfügen.

Mit meinem Code fügt es das Bild leider in den Sheet ein.. was mache ich fasch?

Code:

    Dim Path As String
    Path = Application.Dialogs(xlDialogInsertPicture).Show
    Load Userform1
    If Path = True Then
    Userform1.Image1.Picture = LoadPicture(Path)
Userform1.show

Gruss & Danke schon mal

Stefan

[schauan]

Hallöchen,

wenn Du Deinen Code anschaust sollte zumindest auffallen, dass Du versuchst, ein Bild mit dem Namen "True" zu laden. Darüber hinaus gibst Du da auch keinen Pfad an, wo es liegt ...

Beim Test hast Du ja auch schon gemerkt, dass das Bild ins Blatt eingefügt wird. Das leigt an dem Dialog, den Du verwendest. Du brauchst aber einen, der Dir Pfad und Namen der gewählten Datei zurückgibt. Schaue mal nach Application.GetOpenFilename


PS: gehe bitte das nächste mal mit einer Frage ins Excel-Forum und nicht in unseren Beispielbereich ...

[WillWissen]

Moin,

PS: gehe bitte das nächste mal mit einer Frage ins Excel-Forum und nicht in unseren Beispielbereich ...

ich hab's verschoben.

[volti]

Hallo Stefan,

ein Beispiel:

Code:

Sub Bild_einfügen_Aus_Datei_In_Userform()
'Fügt ein Bild aus einer Datei ein
 Dim sPath As String
    
 sPath = Application.GetOpenFileName _
    ("Bilder (*.gif; *.jpg; *.bmp; *.tif; *.jxr; *.png), *.gif; *.jpg; *.bmp; *.tif; *.jxr; *.png", _
     , "Bild auswählen")
  If sPath Like "falsch" Then Exit Sub
  
  UserForm1.Image1.Picture = LoadPicture(sPath)
  UserForm1.Show
 
End Sub

______________________
viele Grüße aus Freigericht
Karl-Heinz

[steschnu]

Danke euch, und entschuldigt für die falsche Platzierung.

Danke Karl-Heinz, es funktioniert. :)

Schliesse hier ab.

[steschnu]

Danke euch, und entschuldigt für die falsche Platzierung.

Danke Karl-Heinz, es funktioniert. :)

Schliesse hier ab.

Oder doch nicht..

Gibt es die Möglichkeit, dass das geladene Bild anschliessend auch im Image verbleibt? nach dem speichern und erneutem öffnen ist das Bild nicht mehr da.

Das Ziel wäre aber, dass das geladene Bild als Image.Picture in der Eigenschaft verbleibt..

[schauan]

Hallöchen,
Eigentlich nicht. Du kannst aber den Pfad zum Bild und den Namen irgendwo speichern. Beim Star des UF fragst Du dann ab, ob da der Pfad usw gespeichert wurde und wenn ja, holst Du es automatisch rein.