Word VBA changer la taille d'une image

tbft · 10 Août 2022

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

tbft · 10 Août 2022

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 · 10 Août 2022

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...

Word VBA changer la taille d'une image

tbft

XLDnaute Accro

tbft

tbft

XLDnaute Accro

Discussions similaires