Wie kann ich per VBA Schaltflächen neu benennen?

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

für ein Programm muss ich den Text in Schaltflächen (Steuerelement) dynamisch anpassen können.
Leider finde ich keinen Hinweis, wie ich das anstellen kann. Auch lässt sich dieser Vorgang nicht aufzeichnen.

Wer kann helfen?

Gruß
Natator

2

für ein Programm muss ich den Text in Schaltflächen
(Steuerelement) dynamisch anpassen können.
Leider finde ich keinen Hinweis, wie ich das anstellen kann.
Auch lässt sich dieser Vorgang nicht aufzeichnen.

Hallo Natator,

Sub Umbenennen()
'verweis auf Microsoft Forms 2.0 Object Library MUSS gesetzt sein
Dim objOLEObject As OLEObject
For Each objOLEObject In ActiveSheet.OLEObjects
 If TypeOf objOLEObject.Object Is MSForms.CommandButton Then
 objOLEObject.Object.Caption = "Meinname" & \_
 Replace(objOLEObject.Object.Caption, "CommandButton", "")
 End If
Next
End Sub

Gruß
Reinhard

3

Super Reinhard,

das funktioniert.
Vielen Dank vor allem für die extrem schnelle Antwort!

Gruß
Natator