Gruppe
Ereignis
Problem
Nach dem Speichern der Arbeitsmappe soll eine Schaltfläche erstellt werden, die nach deren Aufruf wieder gelöscht wird.
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