Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Nach Speicherereignis Makro starten | Herbers Excel-Forum


Betrifft: Nach Speicherereignis Makro starten von: Dirk R.
Geschrieben am: 10.12.2009 09:03:02

Hallo Excelgemeinde,

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.

  

Betrifft: AW: Nach Speicherereignis Makro starten von: Hajo_Zi
Geschrieben am: 10.12.2009 09:12:25

Hallo Dirk,

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets(1).Image1.Picture = LoadPicture("")
    ThisWorkbook.Save
    Call Sheets(1).TextBox2_Change
    Cancel = True
End Sub
GrußformelHomepage


  

Betrifft: AW: Nach Speicherereignis Makro starten von: Dirk R.
Geschrieben am: 10.12.2009 09:15:56

Hallo Hajo,

super genau das war es. Vielen Dank!!!
Gruß
Dirk R.


Beiträge aus den Excel-Beispielen zum Thema "Nach Speicherereignis Makro starten"