Word VBA changer la taille d'une image

tbft

XLDnaute Accro
Bonjour tout le monde

j'essaye de faire une macro qui redimensionnerai une image (que j'aurais sélectionné avant de lancer la macro) à 50%.
J'ai pu identifier si la sélection était ou pas une image par contre impossible de trouver le bon paramètre pour changer la taille par exemple width ou height
VB:
Sub Change_Taille_Image_Selection_50pourcent()
  If Selection.Type = wdSelectionInlineShape Then
    'changement de taille
    Selection.width=0.5
  End If
End Sub
Avez-vous une idée, s'il vous plait?
D'avance merci
 
Solution
Voila avec un peu de persévérance (et pas mal de chance):
VB:
Sub Change_Taille_Image_Selection_50pourcent()
  If Selection.Type = wdSelectionInlineShape Then
    Selection.InlineShapes(1).ScaleWidth = 50
    Selection.InlineShapes(1).ScaleHeight = 50
  End If
End Sub
Finalement, il suffisait de chercher au bon endroit...

tbft

XLDnaute Accro
Voila avec un peu de persévérance (et pas mal de chance):
VB:
Sub Change_Taille_Image_Selection_50pourcent()
  If Selection.Type = wdSelectionInlineShape Then
    Selection.InlineShapes(1).ScaleWidth = 50
    Selection.InlineShapes(1).ScaleHeight = 50
  End If
End Sub
Finalement, il suffisait de chercher au bon endroit...
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T