Discussion :

[Alexandre31470]

Bonjour Messieurs

Je souhaite monter des catalogues de produits à partir de photos sur un fichier Powerpoint un fichier de base avec dix emplacements par page en Orientation paysage , je voudrais une faire une programmation VBA qui fasse un rognage de chaque image afin de supprimer le surplus de blanc qui se trouve autour et de définir un redimensionnement automatique puis une fois que les images sont bien placées je voudrais que le nom du fichier ( référence produit ) s'affiche juste en dessous de chaque image .

Est ce que quelqu'un peut m'aider dans la réalisation de ce développement .

Merci d'avance à tous

[Hifu Man]

Bonsoir

Positionne manuellement tes photos sur une slide.

Via vba,
Relève la position de chaque photo i : ActiveWindow.Selection.SlideRange.Shapes(i).Left, .Top, .Width, .Height, .Type.

À partir de là, tu pourras définir la position idéale.

Rogne tes images avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWindow.Selection.ShapeRange.PictureFormat.CropLeft = 200

Pour mettre le nom du fichier en dessous de chaque photo, tu peux mettre une zone de texte et la remplir avec ActivePresentation.Name.

Si tu es débutant, vas-y étape par étape en essayant avec 1 seule photo au lieu de 10....