Macro vba pour créer des shape dans une cellule de tableau [Résolu]

lolokun 1241 Messages postés mardi 10 octobre 2006Date d'inscription 27 août 2013 Dernière intervention - 17 févr. 2009 à 09:24 - Dernière réponse : lolokun 1241 Messages postés mardi 10 octobre 2006Date d'inscription 27 août 2013 Dernière intervention
- 17 févr. 2009 à 09:42
Bonjour à tous,

Je réexplique mon souci, il s'agit en fait, lors de modification de procédure d'installation, de pouvoir rajouter dans la 1ère colonne d'un tableau à 2 colonnes, le numéro auto ainsi qu'un shape, permettant au technicien de cocher l'étape qu'il vient de réaliser.

Ce message fait suite à un post que j'avais déjà ouvert :
http://www.vbfrance.com/forum/sujet-MACRO-CREER-LISTE-NUMEROS-PUCES-DANS-TABLEAU_1268753.aspx

Voici donc où j'en suis maintenant :

Dim haut, Gauche, lignecourante As Integer
Dim shp As Shape


ActiveDocument.Tables(1).Rows.Add BeforeRow:=Selection.Rows(1)     'ajoute une ligne au dessus de la ligne sur laquelle se situe le curseur
lignecourante = Selection.Information(wdStartOfRangeRowNumber)         'récupérer le numéro de ligne active
'MsgBox Left(ActiveDocument.Tables(1).Cell(lignecourante, 2).Range.Text, Len(ActiveDocument.Tables(1).Cell(lignecourante, 2).Range.Text) - 2)  'test pour afficher le contenu de la 2nde colonne
lignecourante = lignecourante - 1      'récupère le numéro de la ligne nouvellement créée
'MsgBox Left(ActiveDocument.Tables(1).Cell(lignecourante, 2).Range.Text, Len(ActiveDocument.Tables(1).Cell(lignecourante, 2).Range.Text) - 2)
'MsgBox ActiveDocument.Tables(1).Cell(lignecourante, 1).Height
'MsgBox ActiveDocument.Tables(1).Cell(lignecourante, 1).Width
haut = CInt(ActiveDocument.Tables(1).Cell(lignecourante, 1).Height / 2)
Gauche = CInt(ActiveDocument.Tables(1).Cell(lignecourante, 1).Width / 2)

Set shp = ActiveDocument.Shapes.AddShape(msoShapeRectangle, Gauche, haut, 14, 7.5)

J'arrive donc à créer une ligne dans le tableau , à la sélectionner (d'ailleurs si quelqu'un aurait une autre méthode...Je n'ai pas réussi à utiliser moveup pour récupérer ensuite le numéro de la nouvelle ligne..)
Mon shape est bien créé, mais en haut de la feuille et non pas dans la 1ère cellule de ma ligne créée.

Il me semble que cela est dû au dernier paramètre [Anchor] pour spécifier que la position du shape doit se faire à partir  de la cellule et non du bord en haut à gauche de la feuille.

Comment faire pour que mon shape soit placé au bon endroit?
Merci par avance de votre attention.

L'expérience, c'est une connerie par jour, mais jamais la même..
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
lolokun 1241 Messages postés mardi 10 octobre 2006Date d'inscription 27 août 2013 Dernière intervention - 17 févr. 2009 à 09:42
3
Merci
Bon hé bien j'ai fini par trouver la solution,comme je le supposais c'est ce paramètre là qu'il fallait modifier, et lui passer un objet de type range.
Cela fonctionne donc comme ceci :

Set shp = ActiveDocument.Shapes.AddShape(msoShapeRectangle, Gauche, haut, 14, 7.5, ActiveDocument.Tables(1).Cell(lignecourante, 1).Range)

Par contre, tant qu'à faire après avoir posté ce message, et étant novice en vba word, si quelqu'un a une proposition pour optimiser ce code, je suis preneur.

L'expérience, c'est une connerie par jour, mais jamais la même..

Merci lolokun 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de lolokun

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.