Discussion :

[BernardBouree]

Bonjour

Je cherche un moyen de modifier une série d'images incluses dans un fichier word pour en modifier la taille et la position.
J'ai donc essayer d'enregistrer une première macro en utilisant le menu Recherche puis Rechercher graphismes.
Cela à l'air de marcher, je vois les images être sélectionnées une par une mais la macro est vide!!

Merci pour votre aide.

Bernard

[Heureux-oli]

Salut,

L'enregistrement d'une macro pour des objets graphiques ne fonctionne pas.

L'idée serait de faire une boucle sur les deux types d'objets graphiques que l'on rencontre, les InlineShapes et les Shapes.

[BernardBouree]

Bonjour

Merci pour l'info.
Aurais-tu un bout de code pour ces deux objets?

Merci
Bernard

[Heureux-oli]

Salut,


A la volée

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
Dim oSH as Shape
Dim iSH as InlineShape
 
 
For Each oSh in Activedocument.Shapes
 
    ......
 
Next oSh
 
For Each iSH in Activedocument.InlineShapes
 
    ......
 
Next iSh

[BernardBouree]

Bonjour

Merci !

Bernard

[BernardBouree]

Bonjour

Je renvoie mon message qui semble t il n'est pas parti!

Je reviens vers mon problème que je n'ai pas eu le temps de faire avancer.

J'ai une série d'images dans un fichier word que je souhaite redimensionner et repositionner dans le texte avec
Format image/Habillage/Encadré/Droite
puis
Format image/Position/ Horizontal/Position absolue/-2 cm à droite de Marge droite
puis
Format image/Position/Vertical/Position absolue / 1 cm au desoous de Paragraphe.

J'ai donc repris le code d'Heureux-Oi en le complétant avec des lignes issues de l'enregistrement.

La première boucle ne détecte aucune Shape.
La seconde boucle détecte des InlineShape et redimensionne correctement les images.
Mais les lignes de code concernant le positionnement donnent des erreurs car les propriétés appelées n'existent que pour des Shapes.
Donc comment faire?
J'ai vu dans l'aide que l'on peut convertir une InlineShape en Shape mais qu'il fallait ajouter un noeud ??

Quelle différence y a t il entre une InlineShape et une Shape?

Merci pour votre aide.

Bernard

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
Sub RedimensionnerImages()
Dim oSH As Shape
Dim iSH As InlineShape
 
For Each oSH In ActiveDocument.Shapes
    oSH.Select
Next oSH
 
For Each iSH In ActiveDocument.InlineShapes
With iSH
    .Select
    .Height = 30
    .Width = 30
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
    .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
End With
Next iSH

End Sub