Jak zmienić nazwę nowo utworzonego przycisku ActiveX?
Nov 26 2020
Zgodnie z odpowiedzią Mathieu udało mi się utworzyć przycisk ActiveX za pośrednictwem
Sub aaaaaaaa()
Dim newButton As Object
Set newButton = Sheets(sheetname_KvE).OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=800, _
Top:=0, _
Width:=300, _
Height:=30).Object
With newButton
.Caption = "bla"
'.Name = "Button_what" ' - THIS DOES NOT WORK!
End With
End Sub
Jak mogę zmienić nazwę tego przycisku?
Niestety te linki nie doprowadziły mnie do rozwiązania:
Zmiana nazwy pola listy ActiveX programu Excel
https://answers.microsoft.com/en-us/msoffice/forum/all/vba-code-to-modify-the-name-property-of-an-activex/d23b4ee5-aef4-425b-8a19-2899b65651e2
Byłoby to dość wspaniałe, ponieważ umożliwia dodanie odpowiedniego kodu w module arkusza (o ile widzę, zawsze nazywa się odpowiedni podrzędny [insert button name]_Click
).
Odpowiedzi
1 SiddharthRout Nov 26 2020 at 17:03
Czy tego właśnie próbujesz?
Sub Sample()
Dim newButton As OLEObject
Dim ws As Worksheet
Set ws = Sheets(sheetname_KvE)
Set newButton = ws.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=800, _
Top:=0, _
Width:=300, _
Height:=30)
newButton.Object.Caption = "bla"
newButton.Name = "Button_what"
End Sub