So erstellen Sie eine ActiveX-Schaltfläche und fügen Sie code hinzu, um es (sagen Sie es, was sub ausführen) mit vba?

Ich würde gerne zum erstellen einer ActiveX-button in ein Blatt und ordnen Sie einen code zu (D. H. es sagen, was sub zu laufen und sub bereits vorhanden ist).

Kann ich die button: (aufgenommen)

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
    , DisplayAsIcon:=False, Left:=41395.5882352941, Top:=234.705882352941, _
    Width:=119.117647058824, Height:=39.7058823529412).Select

Aber ich würde gerne die Beschriftung zu ändern, und weisen eine sub auf, so dass, wenn jemand klickt auf die neu erstellte activex-Schaltfläche wird ein sub, der lebt bereits in einem Modul in der Arbeitsmappe, die die Schaltfläche erstellt werden. Alles was geschieht und lebt in ThisWorkbook.

Dank!

PS - ich kann nicht verwenden Sie einen Befehl-Taste....Ich kann nur mit ActiveX -

stackoverflow.com/questions/3549586/...

InformationsquelleAutor mountainclimber | 2014-04-25

  1. 5

    Dies funktioniert:

    Sub AddingButtons()

Dim btn As Button
Dim t As Range
Dim Obj As Object
Dim Code As String

Dim ShtNm As String
With ThisWorkbook
    .Worksheets.Add(After:=Worksheets(1)).Name = "My New Worksheet"
    .Sheets("My New Worksheet").Activate
End With

ShtNm = ActiveSheet.Name
Sheets(ShtNm).Select

Set t = ActiveSheet.Range("D3:F4")

'create button
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
       Link:=False, DisplayAsIcon:=False, Left:=t.Left, Top:=t.Top, Width:=t.Width, Height:=t.Height)

'button text
ActiveSheet.OLEObjects(1).Object.Caption = "Show Data Selection Window"

'macro text
Code = "Private Sub CommandButton1_Click()" & vbCrLf
Code = Code & "Call MyTestSub(ShtNm)" & vbCrLf
Code = Code & "End Sub"

MsgBox "Worksheet name is " & ActiveSheet.Name
'add macro at the end of the sheet module
With ActiveWorkbook.VBProject.VBComponents(Worksheets(ShtNm).CodeName).CodeModule
    .insertlines .CountOfLines + 1, Code
End With

End Sub

    Angepasst von:
    http://social.msdn.microsoft.com/Forums/office/en-US/1a48cdfd-42af-486c-a4a5-3d5d5797d00c/adding-an-active-x-command-button-and-its-code-using-in-excel-vba?forum=exceldev

    PS - Tim - hatte die Antwort in seinem Kommentar auf meine ursprüngliche Frage. Thx tim.
    So erstellen Sie eine dynamische Schaltfläche in excel

    InformationsquelleAutor mountainclimber

  2. -1

    Für Excel 2013 klicken Sie auf den Developer/Einfügen/ActiveX-Befehlsschaltfläche. Nach dem einsetzen, rechts klicken Sie auf die Schaltfläche, wählen Sie Eigenschaften für die Beschriftung und andere Manipulationen, wählen Sie " code anzeigen makro-Belegung.

    ...mit vba, wie bereits im Titel der Frage. Tim ' s Kommentar auf meinem ursprünglichen Beitrag oben gibt mir die Antwort, die ich suchte.

    InformationsquelleAutor StandardDeviation

Schreibe einen Kommentar