Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tisane
Bonjour Ivan,
si je n'arrive pas trop tard...
Comment peut-on donner un nom à une forme pour pouvoir ensuite l'exploiter sous VBA ?
Pour connaître le nom des objets à tout moment : - ajoute l'outil "Sélectionner plusieurs objets" dans la barre d'outils Dessin (menu Personnaliser, onglet [Commandes], catégorie Dessin) - quand tu cliques sur cet outil, une boîte de dialogue affiche la liste des objets présents sur ta diapo.
Pour renommer un objet, voici un petit bout de code à mettre en oeuvre : - <Alt><F11> pour accéder à la fenêtre Visual Basic Editor - menu Insertion | Module - copie/colle les lignes suivantes : Sub RenommeObjet() strNouveauNom = InputBox("Donnez un nom à l'objet sélectionné") With ActiveWindow.Selection.ShapeRange .Name = strNouveauNom End With End Sub
Pour l'utiliser : - sélectionne l'objet à renommer - menu Outils | Macro | Macros - exécute la macro "RenommeObjet"
Bon dimanche,
Tisane
Bonjour Ivan,
si je n'arrive pas trop tard...
Comment peut-on donner un nom à une forme pour pouvoir ensuite l'exploiter
sous VBA ?
Pour connaître le nom des objets à tout moment :
- ajoute l'outil "Sélectionner plusieurs objets" dans la barre d'outils
Dessin (menu Personnaliser, onglet [Commandes], catégorie Dessin)
- quand tu cliques sur cet outil, une boîte de dialogue affiche la liste des
objets présents sur ta diapo.
Pour renommer un objet, voici un petit bout de code à mettre en oeuvre :
- <Alt><F11> pour accéder à la fenêtre Visual Basic Editor
- menu Insertion | Module
- copie/colle les lignes suivantes :
Sub RenommeObjet()
strNouveauNom = InputBox("Donnez un nom à l'objet sélectionné")
With ActiveWindow.Selection.ShapeRange
.Name = strNouveauNom
End With
End Sub
Pour l'utiliser :
- sélectionne l'objet à renommer
- menu Outils | Macro | Macros
- exécute la macro "RenommeObjet"
Comment peut-on donner un nom à une forme pour pouvoir ensuite l'exploiter sous VBA ?
Pour connaître le nom des objets à tout moment : - ajoute l'outil "Sélectionner plusieurs objets" dans la barre d'outils Dessin (menu Personnaliser, onglet [Commandes], catégorie Dessin) - quand tu cliques sur cet outil, une boîte de dialogue affiche la liste des objets présents sur ta diapo.
Pour renommer un objet, voici un petit bout de code à mettre en oeuvre : - <Alt><F11> pour accéder à la fenêtre Visual Basic Editor - menu Insertion | Module - copie/colle les lignes suivantes : Sub RenommeObjet() strNouveauNom = InputBox("Donnez un nom à l'objet sélectionné") With ActiveWindow.Selection.ShapeRange .Name = strNouveauNom End With End Sub
Pour l'utiliser : - sélectionne l'objet à renommer - menu Outils | Macro | Macros - exécute la macro "RenommeObjet"
