Discussion :

[poseidonsr]

Bonjour à tous,

Jai une question au sujet de l'ancre d'une image que j'importe dans un tableau word depuis excel. J'utilise la fonction comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
Dim wdIlShp As Word.InlineShape
Dim wdShp As Word.Shape
 
Set wdIlShp = wddoc.Tables(1).cell(4, 2).Range.InlineShapes.AddPicture(fileName:=filePath)
Set wdShp = wdIlShp.ConvertToShape
wdShp.ZOrder msoSendBehindText
wdShp.name = shp.name

Pour plus de précisions sur mon problème, je vous met des captures d'écrans de mon fichier word. La première, celle qui est "problématique". La deuxième, ce que je voudrais comme résultat. Je souhaiterais déplacer l'ancre de mon image par le code comme sur la deuxième capture. Le but étant simplement de centrer le texte de la cellule verticalement.





Merci pour votre aide,

Romain

[Souriane]

Pour déplacer l'ancre de l'image vers le centre de la cellule, vous pouvez utiliser la propriété "Anchor" de l'objet Shape. Vous pouvez utiliser la méthode "Range" de la propriété "Anchor" pour obtenir une référence à la plage de cellules où l'image est liée, puis utiliser la méthode "Cells" de la référence de plage pour obtenir une référence à la cellule centrale.

Voici un exemple de code qui déplace l'ancre de l'image vers le centre de la cellule :

Code :

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

wdShp.Anchor.Range.Cells(1).VerticalAlignment = wdCellAlignVerticalCenter

Il est important de noter que l'alignement vertical de la cellule doit être défini sur "Centre" pour que l'image soit centrée verticalement.