[WD-2003] macro de mise en forme d'image

[cyrildelaunay]

bonjour à tous,

rentrons direct dans le vif du sujet, j'ai de manière très répétitive et régulière, des copier collé d'images à faire depuis powerpoint vers word.

pour ce faire et afin d'avoir une bonne résolution et pour respecter l'alignement dans le document word :

Edition>collage spécial
>Image(métafichier amélioré)
ce qui a pour résultat de me mettre l'image en arrière plan
je sélectionne ensuite l'image et j'ouvre le menu contextuel>format de l'image.

dans l'onglet habillage je sélectionne aligné sur le texte
et dans l'onglet Taille je choisi 60%

j'aimerai donc créer une macro qui me fasse cela de manière automatisée une fois mon image copiée depuis powerpoint.

je n'y connais vraiment rien en VBA et visiblement il n'y as pas le choix,

pourriez vous m'apporter votre aide !

[Heureux-oli]

Salut,

As-tu essayé l'enregistreur de macro ?

[Souriane]

Heureux-Oli : Je l'ai essayé mais ça fonctionne pas, ça utilise le code

Code :

Selection.PasteAndFormat (wdPasteDefault)

cyrildelanay, voici ce que j'ai bidulé pour toi :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Sub CollageImageAlignée()
Dim inLargeur As Integer
Dim inHauteur As Integer
 
'Colle ton image en metafile
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine
 
'Sélectionne ton image et l'appui sur la marge de droite
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
 
'Note la hauteur et la largeur d'origine de ton image
inLargeur = Selection.InlineShapes(1).Width
inHauteur = Selection.InlineShapes(1).Height
 
'Donne à ton image la hauteur et la largeur de départ multiplié par 0.6 qui représente 60%
  Selection.InlineShapes(1).Width = inLargeur * 0.6
  Selection.InlineShapes(1).Height = inHauteur * 0.6
 
End Sub

Tu m'en donneras des nouvelles.

[carden752]

Bonjour,

Je crois que j'ai un code la dessus,
il me semble que l'enregistreur de macro donne quelque chose de bien et tu peux utiliser les propriétés suivantes

Code :

1
2
3
4
5
 
With ActiveDocument.InlineShapes(1)
.LockAspectRatio=msoCTrue
.Height = .Height * 0.6
End With

[cyrildelaunay]

Merci beaucoup je teste ça et je vous redis !

[cyrildelaunay]

ça marche du feu de dieu merci encore !