Word VBA changer la taille d'une image

  • Initiateur de la discussion Initiateur de la discussion tbft
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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...
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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
518
Retour