Makro Bilder auswählen
14.01.2004 10:53:35
Florian
Wende mich mal wieder vertrauensvoll an Euch. Folgendes Problem: Ich will mittels eines Makros einen Ordner öffnen, in welchem verschiedene Bilder abgespeichert sind (Miniaturansicht). Hier soll eine Auswahl möglich sein: Bei Anklicken eines Bildes soll dieses in mein Tabellenblatt eingfügt werden.
Ist so etwas möglich? Wäre spitze wenn ihr mir helfen könntet!!
Habe auf der CD etwas gefunden was in diese Richtung gehen könnte, bin aber leider (noch;-)zu schlecht um es auf meine Bedürfnisse umzumodeln.In diesem Beispiel werden die Bilder eines Verzeichnisses in einem DropDown Feld aufgelistet.
ClassModule: frmBilderZeigen
Private Sub cbbBilder_Change()
imgBild.Picture = LoadPicture(cbobilder.Value)
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim iCounter As Integer
Dim sPath As String
sPath = Range("B1").Value
With Application.FileSearch
.LookIn = Range("B1").Value
.Filename = "*.gif"
.Execute
For iCounter = 1 To .FoundFiles.Count
cbobilder.AddItem .FoundFiles(iCounter)
Next iCounter
End With
If cbobilder.ListCount > 0 Then
cbobilder.ListIndex = 0
End If
End Sub
StandardModule: basMain
Sub CallForm()
frmBilderZeigen.Show
End Sub
Schöne Grüße,
Florian
Anzeige