Discussion :

[Sceeji82500]

Bonjour à tous,

Contexte:

J'ai dans word une image. A cette image je souhaite associer un bouton qui déclenchera une macro. Cette macro en fait ne fera que rajouter un cercle rouge autour d'une zone définie dans l'image.

Jusque là tout va bien.

Mon problème: lorsque j'active la macro en appuyant sur le bouton, il m'affiche bien mon cercle rouge autour de ma zone choisie, MAIS il est en mode selection. (donc avec la possibilité de changer sa taille etc...)

Voilà ma question (je vais essayer d'être le plus clair possible):
Comment faire pour que lorsque j'execute la macro, il m'affiche mon cercle rouge mais sans ce mode selection???

j'ai repéré la ligne de commande qui créer le cercle :

Code :

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

1
2
ActiveDocument.Shapes.AddShape(msoShapeOval, 125.25, 185.25, 91.5, 18.75) _
        .Select

Voilà le problème c'est le .Select
Merci par avance pour votre aide.
Sincères salutations,
Sceeji.

[Heureux-oli]

Salut,

Le problème est que tu dois avoir une sélection pour ajouter ta forme.
Mais on peut réduire ou déplacer la sélection.

Pour la réduire, c'est

Code :

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

Selection.collapse Direction:=wdcollapseEnd

Ou encore, déplacer la sélection vers la fin ou le début du document

Code :

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

Selection.HomeKey Unit:=wdStory

[Sceeji82500]

Merci enormement pour cette réponse! Ma question est réglée

J'abuserais de votre aide peut-être en vous demandant qu'elle est la ligne de commande pour que lorsqu'on réappuie sur le bouton, qui active donc la macro, que la macro cesse??

Je sais qu'il faut toujours rechercher avant de poster, mais le temps me fait défaut pour terminer mon travail.

Sincères salutations,
Sceeji.

[Heureux-oli]

Salut,

Normalement, elle ne s'exécute qu'une seule fois.

[Sceeji82500]

Pardon, je me suis mal exprimé. En fait, lorsque j'appuie sur mon "bouton" qui exécute la macro, elle s'applique pas de souci un ovale rouge apparaît là où je le désire. Cependant lorsque je reclique dessus, ça recrée un ovale rouge au même endroit, et l'ancien n'est pas effacé... donc à force de cliquer je peux avoir plein de couches ^^ mais ce n'est pas ce que je désire. Je souhaiterais que lorsque j'appuie une première fois sur le bouton, l'ovale apparaît et lorsque je reclique dessus, il disparaisse ^^
Merci pour votre aide !

[Heureux-oli]

Salut,

C'est pas si simple.
L'ovale a donc deux états : visible et pas visible.
Il serait peut-être utile d'explorer cette piste, soit on le voit soit on le voit pas, mais qu'il soit toujours là.


Pour le cacher :

Code :

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

ActiveDocument.Shapes(1).Visible = msoFalse

Et pour l'afficher, ce sera msoTrue