Bilder-Vorschau

Question

Gibt es bei vba eine Möglichkeit um eine Liste mit Bildern zum Auswählen zu erstellen welche kleine vorschau zeigt?

---

LG Yves Riedener

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

Um es zu downloaden muss ich mich anmelden, kannst du es nicht hier erklären?

---

LG Yves Riedener

Answer 5

Meinst du so etwas, wie es das bei Bildergalerien gibt? Mit dem Mouse:Hover-Effekt der Vergrößerung?

Answer 6

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

Answer 7

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

Answer 8

Ich habe das Problem anders gelöst aber danke :-)

---

LG Yves Riedener