Manipuler des "formes automatiques" excel avec VBA

Question

J'essaye d'écrire une macro dans VBA (Excel) qui est assignée à une case à cocher. Chaque fois que la case est cochée, une "forme automatique" changera sa "commande" de "Envoyer vers l'arrière" vers "Envoyer vers l'avant". Fondamentalement, j'essaye de créer un tableau de bord avec plusieurs panneaux, de sorte que les utilisateurs puissent accéder à l'information sans passer d'une feuille à l'autre. Chaque panneau aura une forme automatique rectangulaire comme arrière-plan et les composants du panneau seront "groupés" dans l'autoshape.

Est-ce que cela peut être fait? J'apprécierais grandement des idées dans l'écriture du code.

Merci,

Answer 1

Je ne suis pas tout à fait suivant votre objectif plus grand, mais pour apporter une forme à l'utilisation avant ceci:

If MyCheckBox.Value = True Then 
    MySheetName.Shapes("MyShapeName").ZOrder msoBringToFront 
End If 

Vous devez sélectionner votre mouvement ZOrder désiré de la MsoZOrderCmd énumération et votre code doit être dans la routine d'événement Change pour votre contrôle case à cocher.

---

EDIT:

Vous pouvez également faire référence à la forme par son numéro d'index. Par exemple:

MySheetName.Shapes(0).ZOrder msoBringToFront 

De plus, pour obtenir le nom d'une forme, soit cliquez et regardez dans le nom de la boîte dans le coin supérieur gauche d'Excel (sous les barres d'outils), ou itérer à travers toutes les formes comme si :

Sub Macro1() 

Dim MyShape As Shape 

For Each MyShape In Sheet1.Shapes 

    Debug.Print MyShape.Name 

Next MyShape 

End Sub