Makro für Bilderwechsel
23.06.2005 13:58:24
Karl-Heinz
Ich habe folgendes Problem. Beim Aufruf der gespeicherten Fotos mit dem SpinButton werden diese immer übereinandergelagert. Ich möchte, dass beim Bildwechsel, das vorher aufgerufene Bild automatisch gelöscht wird. Was muß ich bei meinem Makro ergänzen ?
Karl-Heinz
Sub SpinButton2_Change()
Dim verz As String
Dim Fotos As Variant
Dim i_zähler As Long
Dim i_Zähler2 As Long
SpinButton2.Min = 1
verz = "c:\Fotos\" & Range("f1") & ""
With Application.FileSearch
.Filename = "*.jpg"
.LookIn = verz
.Execute
i_zähler = .FoundFiles.Count
End With
SpinButton2.Max = i_zähler
ReDim Fotos(i_zähler)
With Application.FileSearch
.Filename = "*.jpg"
.LookIn = verz
.Execute
For i_Zähler2 = 1 To i_zähler
Fotos(i_Zähler2) = .FoundFiles(i_Zähler2)
Next i_Zähler2
End With
ActiveSheet.Pictures.Insert(Fotos(SpinButton2.Value)).Name = "p"
Range("e7").Select
TextBox2.Text = SpinButton2.Value
End Sub
Private Sub TextBox2_Change()
SpinButton2.Value = TextBox2.Value
End Sub
Anzeige