Change Name of ActiveX Command Button using VBA in Excel

by

Is this what you are trying?

Set shp = ActiveSheet.Shapes(Selection.Name)
shp.Name = "Node" & Str(NumNodes)

With shp.OLEFormat.Object
    .Object.Caption = "Node" & Str(NumNodes)
End With

FOLLOWUP

Just tried this and it works…

Public Sub Node_Button_Duication()
    Dim shp As Shape
    Dim NumNodes As Long

    ActiveSheet.Shapes("CommandButton1").Select
    Selection.Copy
    Cells(5, 10 + 7 * (NumNodes - 1) - 1).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 47.25
    Selection.ShapeRange.IncrementTop -13.5

    NumNodes = 5

    Set shp = ActiveSheet.Shapes(Selection.Name)
    shp.Name = "Node" & Str(NumNodes)

    With shp.OLEFormat.Object
        .Object.Caption = "Node" & Str(NumNodes)
    End With
End Sub

MORE FOLLOWUP

Try this

    Set shp = ActiveSheet.Shapes(Selection.Name)

    With shp.OLEFormat.Object
        .Object.Caption = "Node" & Str(NumNodes)
        .Name = "Node" & NumNodes
    End With

Notice, I changed Str(NumNodes) to NumNodes?

The ActiveX Control Names cannot have spaces 🙂

Try now.

SNAPSHOT

enter image description here

More Related Contents:

  1. How to run a string as a command in VBA
  2. How do you change the value of a cell in excel by clicking on it using VBA? [closed]
  3. How to avoid using Select in Excel VBA
  4. How do I use FileSystemObject in VBA?
  5. Cycle through sub-folders and files in a user-specified root directory [duplicate]
  6. Convert Text to Date?
  7. Run Excel Macro from Outside Excel Using VBScript From Command Line
  8. Importing text file into excel sheet
  9. Loop through each cell in a range of cells when given a Range object
  10. Checking for #N/A in Excel cell from VBA code
  11. Non-web SQL Injection
  12. Error: “Could Not Find Installable ISAM”
  13. Filling any empty cells with the value above
  14. Is there a way to slow down a Web Scraper so it will pick up the code?
  15. Create a folder and sub folder in Excel VBA
  16. One-dimensional array from Excel Range
  17. VBA Excel sort range by specific column
  18. Renaming Files with Excel VBA
  19. Delete cells in an Excel column when rows = 0
  20. Is there a way to import data from .csv to active excel sheet?
  21. Break out of a While…Wend loop
  22. How to make safe API Timers in VBA?
  23. How to copy data from closed workbooks (keeping them closed) into master workbook using VBA?
  24. EntireRow.Delete performance issue
  25. How do I reference tables in Excel using VBA?
  26. Function Overloading and UDF in Excel VBA
  27. VBA: Modify chart data range
  28. VBA Excel simple Error Handling
  29. How to do a “Save As” in vba code, saving my current Excel workbook with datestamp?
  30. How to save semi-colon delimited csv file using VBA?

Leave a Comment