Discussion :

[oamram]

Bonjour,

Auriez-vous une idée pour changer le nom d'une copie d'un shape, si cette dernière n'est pas placée en fin du document ?

Code :

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

1
2
3
4
5
6
7
8
9
10
    ActiveDocument.Shapes.Range(Array("ZoneA")).Select
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
'    Selection.EndKey Unit:=wdStory
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.Paste
 
' Si le shape copié est mis à la fin du document, l'instruction suivante fonctionne.
' Si la copie n'est pas placée à la fin, cela ne fonctionne pas, car Word réordonne les shapes
    ActiveDocument.Shapes(ActiveDocument.Shapes.Count).Name = "ZoneB"

(Word 2010)

Merci d'avance.

[Heureux-oli]

Salut,

En collant, ton objet est toujours dans la sélection.
Avant de le libérer.

Code :

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

Selection.ShapeRange(1).Name = "MonshapeRange1"

[oamram]

Qu'entends-tu avant de le libérer ?

Que je mette cette ligne de code avant ou après le paste, j'ai la même erreur :

Argument ou appel de procédure incorrect

[Heureux-oli]

Salut,

Voilà le code que j'ai utilisé pour faire mes tests.

Code :

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

1
2
3
4
5
6
7
8
9
 
ActiveDocument.Shapes(1).Select
Selection.Copy
 
Selection.EndKey unit:=wdStory
 
Selection.Paste
 
Selection.ShapeRange(1).Name = "Roi"

Tant qu'on ne fait rien sur la sélection après le paste, l'objet reste sélectionné, il suffit de l'adresser tant qu'il est dans la sélection.

Mais si tu rencontres une erreur, je ne vois pas pourquoi.

[oamram]

BIZARRE !!!

J'ai réalisé un copié collé de ton code (voir fichier joint) et j'ai TOUJOURS la même erreur.
Je dois passer à côté de quelque chose....

[Heureux-oli]

Salut,

C'est pas un shape que tu copies, mais un canevas.

Les test, je les avais faits avec un simple objet graphique.
Dans ce cas, le shape est considéré comme la combinaison de plusieurs objets.

[oamram]

Ok, mais ce canevas (et non ce shape ) porte aussi un nom, et à la recopie comment le changer alors ?

[Heureux-oli]

Salut,

oui, il porte un nom, mais je ne vois pas comment l'adresser avec un simple copier/coller.