Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Beim Speichern Schaltfläche erstellen

Gruppe

BeforeSave

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