Créer une shape et la sélectionner en mode présentation.

Bonjour le forum,

Permettez-moi de solliciter votre aide pour résoudre le problème suivant.
Dans une procédure, je créée une ellipse

Code:

---

Slide3.Shapes.AddShape(msoShapeOval, a, b, c, d).Select

---

, avec a, b, c, d les paramètre calculés.
Que je renomme ensuite

Code:

---

ActiveWindow.Selection.ShapeRange.Name = "sh_orbite"

---

En mode développement (normal view), mon code fonctionne parfaitement.
En mode présentation, par contre, une erreur est générée sur l’instruction de création
“Shape (unknown member): Invalid request: to select a shape its view must be active”
A la réflexion, l’erreur est logique: on ne peut pas sélectionner en mode présentation.
Mais alors, comment faire pour créer un objet « shape » et le renommer en cours de présentation ?
Un membre du forum peut-il m’aider ?

D’avance merci pour vos réponses
Bon weekend

Harry

Bonjour

Il ne faut pas procéder de la sorte mais passer par une variable objet.

Voici un exemple dans ce code : http://powerpoint.developpez.com/faq...nommerControle

Voici un autre exemple commenté en passant par des variables objet.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() ' déclaration Dim objSld As Slide Dim objShp As Shape   ' j'affecte à la variable objet objSld le premier slide Set objSld = ActivePresentation.Slides(1)   ' j'affecte à la variable objet objShp la forme voulue Set objShp = objSld.Shapes.AddShape(msoShapeOval, 20, 20, 50, 60) ' je lui donne un nom objShp.Name = "toto" End Sub

---

Dans ton cas, si tu crées tes formes en mode présentation, il faut utiliser ce genre de code et ne pas utiliser les sélections (qui sont souvent données par l'enregistreur de macros).

Philippe

Bonjour Philippe,
Merci pour la réponse.
L'exemple commenté est très clair et m'a permis de corriger mon code.
Après test, plus d'erreur.

Excellent weekend

Harry