onjour à tous
Je cherche à pivoter de 90° toutes les images qui sont au format paysage d'un dossier.
Je voulais faire un truc du genre:
mais bien sur, il me manque certains élèments comment modifier un fichier image etc.
car je veux ajouter plusieurs images en inlineshapes.
et je veux qu'elles soient correctement positionner d'avance.
Cela évite de les transformer en shape et de tous dézinguer toutes mes images
quelqu'un a une idée ?
Merci à vous
Je cherche à pivoter de 90° toutes les images qui sont au format paysage d'un dossier.
Je voulais faire un truc du genre:
Code:
Sub Pivoter_images_paysage()
Dim sDossier As String
Dim sFichier As String
sDossier = ThisDocument.Path & "\" & "images"
sFichier = Dir$(sDossier & "\")
Do While sfichier.Height < sfichier.Width then 'tant qu'il y a des images avec une hauteur inférieure à la largeur on fait une rotation de l'image
rotation 90°
loop
end submais bien sur, il me manque certains élèments comment modifier un fichier image etc.
car je veux ajouter plusieurs images en inlineshapes.
et je veux qu'elles soient correctement positionner d'avance.
Cela évite de les transformer en shape et de tous dézinguer toutes mes images
quelqu'un a une idée ?
Merci à vous