Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro für Bilderwechsel

Makro für Bilderwechsel
23.06.2005 13:58:24
Karl-Heinz
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für Bilderwechsel
23.06.2005 14:40:03
UweD
Hallo
so dürfte es klappen:
'...
On Error Resume Next
ActiveSheet.Shapes("p").Delete
ActiveSheet.Pictures.Insert(Fotos(SpinButton2.Value)).Name = "p"
'...
das On Error ist nur für den Fall, das keine Bild da ist.
Gruß UweD
AW: Makro für Bilderwechsel
23.06.2005 15:23:01
Karl-Heinz
Hallo Uwe,
es funktioniert. Ich bin begeistert.
Vielen Dank und viele Grüße
Karl-Heinz
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige