none
Bilder-Vorschau

    Frage

  • Gibt es bei vba eine Möglichkeit um eine Liste mit Bildern zum Auswählen zu erstellen welche kleine vorschau zeigt?
    LG Yves Riedener
    Mittwoch, 7. April 2010 05:47

Antworten

Alle Antworten

  • Hallo Yves,

    Du hast in VBA (Excel) das Image Steuerelement das die Picture Eigenschaft enthaltet.

    Dann kannst Du zum Beispiel den Pfad des Bildes aus einer ComboBox nehmen (die Liste der Bilder) und in dem Worksheet anzeigen.

    Sub update_data()
        Sheet1.Cells(2, 2) = Sheet1.ComboBox1.Value
        Sheet1.Image1.Picture = LoadPicture(VBAProject.ThisWorkbook.Path & "\pics\" & Sheet1.ComboBox1.Value & ".jpg")
     End Sub

     

    Eine schönere Methode ist wenn Du die Bilder als BLOB in einer Datenbank hast und die dann im Image Steuerlement anzeigst auf eine UserForm.

    Schau Dir auch mal die folgenden Links an. Vielleicht können Sie Dir weiter helfen.

    ACC: Lesen, Schreiben und Speichern von BLOBs (Binary Large Objects) à http://support.microsoft.com/kb/q103257/

    Lesen und Schreiben von BLOBs mit GetChunk und AppendChunk à http://support.microsoft.com/default.aspx?scid=kb%3ben-us%3b194975

    Schreib uns noch detaillierter was Du machen möchtest.

    Danke und Grüße,

    Robert
    Mittwoch, 7. April 2010 07:35
    Besitzer
  • Ja, danke, aber das ist nicht ganz das wonach ich suche ich suche eher was in der art von ListView, doch die funktioniert bei mir nicht richtig.

    Beim Ordner kann man ja bei Ansicht Symbol, grosses Symbol und so auswählen und dann hat man eine Vorschau des Bildes und ich möchte so ein Element in meinem Programm welches automatisch alle Bilder im Ordner "x" anzeigt und man kann dan ein paar bilder auswählen(beliebig).


    LG Yves Riedener
    Mittwoch, 7. April 2010 11:13
  • Hallo Yves,

    Alles klar. Schau Dir mal den folgenden Link an. Vielleicht kann er Dir weiter helfen.

    http://www.codeproject.com/KB/dialog/OpenFileDialogEx.aspx

    http://social.msdn.microsoft.com/forums/en-US/vbgeneral/thread/571b39c2-0edf-4159-ac8d-1c059f69a978/

    Grüße,

    Robert

    Mittwoch, 7. April 2010 11:56
    Besitzer
  • Um es zu downloaden muss ich mich anmelden, kannst du es nicht hier erklären?
    LG Yves Riedener
    Donnerstag, 8. April 2010 14:28
  • Meinst du so etwas, wie es das bei Bildergalerien gibt? Mit dem Mouse:Hover-Effekt der Vergrößerung?
    Mittwoch, 14. April 2010 19:42
  • ja aber die vergrösserung ist nicht nötig, man sollte ca. 5 x5 bilder haben:

    [01] [02] [03] [04] [05]

    ...

    [21] [22] [23] [24] [25]

    Also dann kann man bis zu 4 Bilder auswählen(nur 4) = Dim pic1,pic2,pic3,pic4 As String

    Die Anzeige bilder sind aus: My.Computer.FileSystem.SpecialDictianoris.MyPictures(nicht ganz korekkter pfad)


    LG Yves Riedener
    Freitag, 16. April 2010 15:08
  • Hallo Yves,

    dein Eintrag ist schon länger her aber nicht als beantwortet markiert.
    Haben dir die Antworten bei der Lösung deines Problems geholfen oder bist du noch dabei?


    Liebe Grüße Stefan
    Sonntag, 11. Juli 2010 01:19
  • Ich habe das Problem anders gelöst aber danke :-)
    LG Yves Riedener
    Montag, 12. Juli 2010 11:37