Discussion :

[thais781]

Bonjour,

J'ai une presentation powerpoint que je souhaite modifier via une macro.
Pour prendre un exemple simple, imaginons un trombinoscope avec pour chaque personne 2 zones de textes indiquant Nom, Tel
Sauf que certaine de ces personnes sont mineurs et je voudrais pourvoir via une macro changer la couleur du texte de leurs zones de texte Tel pour le mettre de la même couleur que le fond de la zone

Je me sis dis qu'avec les shapes il n'y aurais pas de soucis, mais 2 petites questions toute de même :
1. Plutôt que de nommer chaque zone de texte avec un nom ou numero unique, peut on les nommer par un "code" générique ? dans mon exemple : "mineur"
2. Comment on nomme les zones de textes sous ppt ?

Merci pour votre aide

Thais

PS : pour info, je suis sous Powerpoint Mac 2011 v 14.6.4

[jurassic pork]

hello,
tu peux faire comme ceci par exemple ( je suis en powerpoint 2010 windows) :
- Dans le ruban onglet Accueil aller tout à droite cliquer sur Sélectionner et choisir Volet Sélection.
- Normalement les noms des formes (dont celui des zones de texte) apparaîssent.
- Cliquer sur le nom à modifier et modifier alors le nom.

Ami calmant, J.P

[thais781]

Merci pour on aide.

Le soucis est que je n'ai pas la partie selectionner dans l'onglet accueil .... (cf. impression ecran de mon bandeau)


Une autre idée ...

Thais

[jurassic pork]

hello,
mauvaise nouvelle pour toi voilà ce que je viens de voir dans un forum :

As of now the feature to rename an object is not available in PowerPoint 2011 for Mac.

tu peux utiliser la macro suivante en la lançant après avoir sélectionner l'objet à renommer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub RenameShape()
Dim oSh as Shape
Set oSh = ActiveWindow.Selection.ShapeRange(1)
oSh.Name = InputBox("Nouveau nom","Renommage !", oSh.Name)
End Sub

Ami calmant, J.P

[thais781]

Bon j'ai trouvé une petite astuce.
J'ai défini un titre dans le texte de remplacement de la zone .... et je peux y accéder en vba via S.Title sachant que Dim S As Shape

Donc ca semble marché ;-)))

Thais