Help Aide Vba pour traitement images

dooblemixte

XLDnaute Nouveau
Fichier joint Projet HH

Bonjour ou bonsoir à tous et toutes

Après avoir vidé deux boites de doliprane, mes neurones me lâchent :confused:
Mes recherches sur le net ne m’a pas permis de trouver une solution adéquate.:(

Je fais appel à vos compétences pour un coup de main sur mon problème VBA

Ma question N° 1

Dans mon USF, je souhaite charger 4 images « Image1 – Image2-Image3-Image4 » qui par un clic sur chaque image ouvre le dossier \images. et sélectionne une image « en Jpg gif bmp »

A l’enregistrement chaque image doit être enregistrée à la dimension d’une cellule « en miniature » dans la procédure …

Extrait

Code:
Worksheets("BDD").Activate
Columns(53).Find("*", , , , , xlPrevious).Offset(1, 0).Select

ActiveCell = Image1
ActiveCell.Offset(0, 1).Select

ActiveCell = Image2
ActiveCell.Offset(0, 1).Select

ActiveCell = Image3
ActiveCell.Offset(0, 1).Select

ActiveCell = Image4
ActiveCell.Offset(0, 1).Selec
t

Dans un autre USF, les 4 images seront chargées avec la possibilité de les remplacer.

Ma question N° 2

Je voudrais faire un aperçu de l’USF avant impression.

Merci par avance de votre bienveillance.
Philippe

PS: Votre participation est pour une bonne cause celle d'une association d'hébergement ou je suis bénévole.
 

Pièces jointes

  • Projet HH.zip
    405.2 KB · Affichages: 74
Dernière édition:

Statistiques des forums

Discussions
312 400
Messages
2 088 090
Membres
103 718
dernier inscrit
jerome.elfenniche@hotmail