ich bitte um eure Hilfe. Irgendwie verenne ich mich im Moment und komme einfach nicht weiter.
Ich habe ein Steuerelemt Image1 im Sheet(1). Jetzt soll beim speichern das Bild aus dem Image gelöscht werden, damit die Dateigröße nicht so groß wird.
Das funzt auch mit dem folgendem Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Image1.Picture = LoadPicture("")
End Sub
Jetzt hätte ich aber gerne, dass nach dem speichern wieder das Bild in das Image geladen wird. Dies würde mit folgendem Code passieren:
Call Sheets(1).TextBox2_Change
Ich bekomme es leider nicht hin. Kann mir jemand helfen?
Gruß
Dirk R.