De référence pour Boutons de Commande Ajoutés au Cours de l'Exécution de VBA dans Excel

Au cours de l'exécution, l'utilisateur est en mesure d'ajouter un nombre quelconque de ActiveX boutons de commande de la Feuille 1. J'ai besoin d'avoir une référence à ces nouveaux boutons avec VBA, mais je ne suis pas sûr de savoir comment.

Je sais une progression logique qui les noms de boutons, exposition: ex.

(Nœud#x2)-2=bouton de commande#=i

J'ai besoin de quelque sorte se référer à ces nouveaux boutons, je pense, est dans la ligne de ce:

Sheet1.Controls("CommandButton" & i).Select

Si quelqu'un connaît la syntaxe correcte ou une autre méthode, veuillez en informer!

Mise à JOUR

Public Sub Node_Button_Duplication()
'
'Comments: Copies and pastes Node 1's button to the appropriate column

' Copy Node 1 button and paste in appropriate location
    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


End Sub

Suivi

Public Sub Node_Button_Duication()
'
'Comments: Copies and pastes Node 1's button to the appropriate column

Dim shp As Shape

' Copy Node 1 button and paste in appropriate location
    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

    Debug.Print Selection.Name

    Set shp = ActiveSheet.Shapes(Selection.Name)

    With shp.OLEFormat.Object.Object
        .Caption = "Test"
        .Left = 15
        .Top = 15
    End With

End Sub

Cela me donne une erreur d'Exécution "438: cet Objet ne gère pas cette propriété ou cette méthode. Je n'ai pas particulièrement de comprendre

shp.OLEFormat.Object.Object

Comment est-ce que l'utilisateur crée les boutons de commande? Manuellement ou Via le Code?
Lorsque l'utilisateur clique sur un "Nœud" bouton, un bouton ActiveX (qui existe au début de l'exécution) sera copié et collé à un endroit approprié. J'ai besoin d'avoir accès à ces nouveaux boutons afin que je puisse modifier leur comportement au cours de l'exécution. J'ai aussi bien que sur la création de boutons à plusieurs reprises avec VBA, mais vous ne savez pas ce qui est préférable.
Pouvez-vous mettre à jour le code ci-dessus que vous utilisez pour copier et coller le bouton existant? Ah je viens de réaliser. Est-il le même qu'il y a dans votre question précédente?

InformationsquelleAutor Ehudz | 2012-05-17

Public Sub Node_Button_Duplication()
    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

    '~~> This will give you the name
    Debug.Print Selection.Name
End Sub

SUIVI

Si vous connaissez le nom du bouton de commande, puis vous pouvez modifier les propriétés de ce type.

Option Explicit

Sub Sample()
    Dim shp As Shape

    '~~> Since you already have the name replace "CommandButton1" by
    '~~> the name that you have
    Set shp = ActiveSheet.Shapes("CommandButton1")

    With shp.OLEFormat.Object
        .Object.Caption = "Test"
        .Left = 15
        .Top = 15
    End With
End Sub

Vous pouvez également combiner les deux ci-dessus comme ceci

Public Sub Node_Button_Duplication()
    Dim shp As Shape

    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

    '~~> This will give you the name
    Debug.Print Selection.Name

    Set shp = ActiveSheet.Shapes(Selection.Name)

    With shp.OLEFormat.Object
        .Object.Caption = "Test"
        .Left = 15
        .Top = 15
    End With

End Sub

Et si vous avez besoin d'itérer sur tous les boutons, puis utiliser ce code.

Sub CommanButtons()
    Dim wks As Worksheet
    Dim OLEObj As OLEObject

    '~~> set it as per the relevant sheet
    Set wks = Worksheets("sheet1")

    For Each OLEObj In wks.OLEObjects
        If TypeOf OLEObj.Object Is MSForms.CommandButton Then
            Debug.Print OLEObj.Object.Caption
        End If
    Next OLEObj
End Sub

Je connais déjà le nom du bouton de commande, mais je voudrais avoir accès à plus tard. Par exemple, je dispose de 5 boutons, et je voudrais bouton d'accès 3, mais ne connais pas la syntaxe VBA. Ma conjecture est quelque chose comme indiqué dans ma question. Le numéro de la touche est une variable de type entier. Essentiellement, je voudrais savoir comment concaténer la variable "bouton de commande" dans quelque chose comme la feuille Sheet1.Bouton de commande&je.Sélectionnez
Qu'entendez-vous par y Accéder? Le sélectionnant? Ou quelque Chose comme Application.Caller?
Je voudrais changer le bouton de commande de propriétés, telles que le titre, la macro, la suppression, etc.
Ah, je vois. À un moment, mettre à jour le code ci-dessus
Ok merci! Je vais lui donner un essai.
Le code est très bien. En outre, si, je voudrais avoir quelque chose comme ActiveSheet.Les formes("bouton de commande"&Str(i)).Sélectionnez l'endroit où je concaténer une variable de type entier, la chaîne "bouton de commande", donc je peux accéder à n'importe quel bouton le cas, j'en valeur de la variable.
J'ai inclus le code que j'ai utilisé, mais me donne une erreur d'exécution
Oups.. une faute de frappe.. mis à Jour le code ci-dessus
Parfait! Merci encore!

InformationsquelleAutor Siddharth Rout

0

Supposons que vous avez un bouton de commande (objet OLE) avec le nom de "cmdOriginal' et vous souhaitez copier ce bouton et de le coller sur la même workheet et modifier le nom et la légende du bouton nouveau dans "cmdButtonCopy" et "Ceci est une copie".
Le bouton nouvellement ajouté a l'indice le plus élevé dans le OLEObjects collection!
Placez le code suivant dans la section de code de la feuille de calcul
```
Sub x1()
    Me.OLEObjects("cmdOriginal").Copy
    Me.Paste
    With Me.OLEObjects(Me.OLEObjects.Count)
        .Name = "cmdButtonCopy"
        .Caption = "This is a copy"
    End With
End Sub
```
InformationsquelleAutor elmer

Vous devez vous connecter pour publier un commentaire.