Discussion :

[Harry Covair]

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 :

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

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

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

Code :

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

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

[Invité]

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 :

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

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

[Harry Covair]

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