Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Userform Image Bild laden | Herbers Excel-Forum


Betrifft: Userform Image Bild laden von: Leitz Gerd
Geschrieben am: 26.01.2012 13:35:07

Hallo!

Habe die Vorstellung, dass ich in eine Userfor/Image Bilder laden will.

Haba aber keine Ahnung wie das gehen soll, z.B wo muß ich die Bilder speichern in einem Tabellenblatt ? und wie kann ich darauf zugreifen mit UserForm1.Image1.Picture =

Bitte um Hilfe

gruß
gerd

  

Betrifft: AW: Userform Image Bild laden von: fcs
Geschrieben am: 26.01.2012 14:23:01

Hallo Gerd,

die Grafiken müssen als separate Dateien in einem Verzeichnis mit Leseberechtigung gespeichert sein.
Die folgenden Grafikformate können in ein Userform-Image-Element geladen werden:
*.bmp, *.cur, *.gif, *.ico, *.jpg, *.wmf

Das Verzeichnis kann beliebig sein. Wenn möglich würde ich die Grafiken in ein Unterverzeichnis zur Exceldatei speichern.

Gruß
Franz

Code-Beispiel für Commandbutton in Userform mit Anzeige Dateiauswahldialog.

'Erstellt unter Windows Vista - Excel 2007
Private Sub cmbBildwaehlen_Click()
  'CommandButton - Bild Auswählen
  Dim strPfad As String
  Dim varAuswahl As Variant
  'Start-Verzeichnis für die ins Image zu ladenden Bildern
  strPfad = ThisWorkbook.Path & Application.PathSeparator & "UF_Grafiken"
  With Application.FileDialog(msoFileDialogOpen)
    .Title = "Bitte Bild für Userform auswählen"
    .InitialFileName = strPfad & Application.PathSeparator
    If .Show = -1 Then
      varAuswahl = .SelectedItems(1)
      Me.Image1.Picture = LoadPicture(varAuswahl)
    Else
    End If
  End With
End Sub



  

Betrifft: AW: Userform Image Bild laden von: Leitz Gerd
Geschrieben am: 26.01.2012 15:16:19

Hallo!

Danke für die Hilfe!

Habe aber damit ein Problem, wie bringe ich die DialogBox weg.

Wenn das gesuchte bild nicht gefunden wird soll ein stndardbild verw. werden.

Sub BildwahlForm2()
  
  Dim strPfad As String
  Dim varAuswahl As Variant
  
  'Start-Verzeichnis für die ins Image zu ladenden Bildern
  strPfad = ThisWorkbook.Path & Application.PathSeparator & "Grafiken"
  
  With Application.FileDialog(msoFileDialogOpen)
    .Title = Form2
    .InitialFileName = strPfad & Application.PathSeparator
    If .Show = -1 Then
      varAuswahl = .SelectedItems(1)
      UserForm1.Image1.Picture = LoadPicture(varAuswahl)
    Else
    End If
  End With
  
End Sub


Gruß
Gerd


  

Betrifft: AW: Userform Image Bild laden von: fcs
Geschrieben am: 26.01.2012 16:21:11

Hallo Gerd,

wenn du den Daeinamen anders auswählst/zuweist, dann muss es etwa so aussehen.

'Erstellt unter Windows Vista - Excel 2007
Sub BildwahlForm2()
  
  Dim strPfad As String
  Dim strDateiname As String
  
  'Start-Verzeichnis für die ins Image zu ladenden Bildern
  strPfad = ThisWorkbook.Path & Application.PathSeparator & "Grafiken"
  'Dateiname einlesen (ohne Pfad) , aus Steuerelement oder sonstwoher
  strDateiname = Form2    'Testzeile
  
  strDateiname = strPfad & Application.PathSeparator & strDateiname
  'Prüfen, ob Datei vorhanden
  If Dir(strDateiname) <> "" Then
    Me.Image1.Picture = LoadPicture(strDateiname)
  Else
    Me.Image1.Picture = LoadPicture(strPfad  & Application.PathSeparator & "StandardBild.jpg")
  End If
  
End Sub



  

Betrifft: AW: Userform Image Bild laden von: Leitz Gerd
Geschrieben am: 27.01.2012 12:38:22

Hallo!!

Herzlichen Dank! funktioniert super!

gruß
Gerd


Beiträge aus den Excel-Beispielen zum Thema "Userform Image Bild laden"