Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

Je débute en VBA Word et j'aimerai récupérer la position absolue (c-à-d les coordonnées (X, Y), en cm ou pouces selon ce qui est le plus simple), par rapport à la feuille d'une Shape Word.

J'ai trouvé les propriétés left et top mais elle donne une position relative et je n'arrive pas à passer à la position absolue. Une recherche sur Google n'a rien donné d'exploitable

A+

[Heureux-oli]

Salut,

La position d'un Shape est toujours relative et est données en points.

On convertit ces points en pouces ou centimètre à l'aide d'une fonction intégrée.

Code :

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

pointstocentimeters

Cette position est données par rapport aux marges verticales et horizontales.

[Sepia]

Salut Marot_r

Le problème des Shapes dans Word est qu'elles peuvent avoir beaucoup de paramètres de positionnement et d'habillage. La solution la plus efficace serait que tu nous indiques ce que tu utilises comme code de base en VBA pour récupérer la position et, si tu peux, mettre un exemple avec ta shape de base pour que l'on puisse avancer.

@+

[marot_r]

Voilà

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub ListField()
    Dim o As Object
    Dim s As Shape
    Dim f As Field
    
    On Error GoTo Err_ListField
    
    For Each f In ActiveDocument.Fields
        Debug.Print Replace(Replace(f.Code, Chr(21), "}"), Chr(19), "{")
    Next f
    
    For Each s In ActiveDocument.Shapes
        Debug.Print s.Name, s.Top, s.left
        Debug.Print s.RelativeVerticalPosition, s.RelativeHorizontalPosition 'Essai pour voir ce que cela renvoi
        
        Debug.Print s.TextFrame.TextRange.Fields.Count
        
        For Each f In s.TextFrame.TextRange.Fields
            Debug.Print Replace(Replace(f.Code, Chr(21), "}"), Chr(19), "{")
        Next f
NextShape:
    Next s
    
Exit_ListField:
    Exit Sub
    
Err_ListField:
    Select Case Err.Number
        Case 5917
            Resume NextShape
            
        Case Else
            MsgBox "Erreur : " & Err.Number & ", " & Err.Description
    End Select
    
End Sub

A+

[Heureux-oli]

Salut,

Cette propriété ne renvoie pas une valeur mais une constante spécifiant par rapport à quoi l'image est positionnée dans le document.

[marot_r]

Merci Heureux-oli mais la ligne qui m'interesse est celle-ci.

Code :

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

Debug.Print s.Name, s.Top, s.left

où s est la shape en cours.

Je pense que ta réponse concerne

Code :

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

Debug.Print s.RelativeVerticalPosition, s.RelativeHorizontalPosition

qui en effet renvoit des constantes. (2 dans mon cas).

A+

[marot_r]

Bon suite à une autre demande j'ai trouvé cela.

Code :

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

1
2
3
 
positionShapeX = Selection.Information(wdHorizontalPositionRelativeToPage)
positionShapeY = Selection.Information(wdVerticalPositionRelativeToPage)

Dans l'ensemble ça marche mais parfois cela donne un nombre négatif.

A+

[ALEXISPOL]

Bonjour,
Je reviens sur cette ancienne discussion qui se termine par "parfois celà donne un nombre négatif".
J'ai constaté ce problème. Y a- t-il une solution trouvée depuis?