Msgbox mit Togglebutton löschen
17.08.2005 12:27:24
Karl-Heinz
mein Problem mit VBA.
Ich suche mit dem Togglebutton aus einem Ordner eine Datei (hier eine wmf-Datei) mit dem Suchbegriff in Zelle a1. Die Grafik wird mit dem Togglebutton geöffnet und geschlossen. Wenn jetzt aber keine Wmf-Datei gefunden wird, möchte ich, dass sich eine Msgbox mit einem entsprechenden Hinweis öffnet. Diese Box soll dann aber auch mit dem zweiten Togglebutton click wieder verschwinden.
Wer kann mir helfen ?
Viele Grüße
Karl-Heinz
P.S.
Hier mein bisher gestricktes Makro:
Sub ToggleButton1_Click()
verz = "c:\Zeichnungen\"
typ = ".wmf"
Höhe = 387
ein = verz & Range("a1") & typ
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "aus"
Range("a5").Select
With Application.FileSearch
.Filename = typ
.LookIn = verz
.Execute
End With
Pictures.Insert(ein).Name = "b"
Else
ToggleButton1.Caption = "ein"
Shapes("b").Delete
End If
End Sub