Gruppe
Ereignis
Bereich
BeforeSave
Thema
Beim Speichern Schaltfläche erstellen
Problem
Nach dem Speichern der Arbeitsmappe soll eine Schaltfläche erstellt werden, die nach deren Aufruf wieder gelöscht wird.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
StandardModule: basMain
Sub Message()
MsgBox ThisWorkbook.FullName
ActiveSheet.Buttons(2).Delete
End Sub
Private Sub CreateButton()
Dim btn As Button
Dim dWidth As Double, dHeight As Double
dWidth = Range("C6").Width + Range("D6").Width
dHeight = Range("C6").Height + Range("C7").Height
Set btn = Tabelle1.Buttons.Add(Range("C6").Left, _
Range("C6").Top, dWidth, dHeight)
btn.OnAction = "Message"
btn.Caption = "Klick mich"
btn.Visible = True
End Sub
Sub Speichern()
ThisWorkbook.Save
Call CreateButton
End Sub