[VBA-W] Info sur sélection [Résolu]

[Speedrman]

Bonjour à tous,

Qui saurait comment reconnaitre l'objet qui est selectionné dans un document Word ?

S'il s'agit d'une image insérée, d'un objet WordArt ou d'un graphique ... etc

Merci pour votre aide.

[Speedrman]

Ok, finallement j'ai trouvé

au cas où ça serve à qq'un un jour ...

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim nType as Integer
 
nType = Selection.InlineShapes.Type
Select Case nType
    Case wdInlineShapeEmbeddedOLEObject
        'Graphique
    Case wdInlineShapeLinkedPicture
        'Image liée
    Case wdInlineShapePicture
        'Image insérée ou objet wordArt
End Select