Importer une photo sur une feuille

Bonjour,

Je souhaite importer 1 photo sur une feuille excel dans un emplacement déterminé en sélectionnant la photo dans l'explorateur... puis idéalement pouvoir la changer de la même façon....

Pour info en cliquant sur mon activex image j'arrive à ouvrir le répertoire où se trouve les photos mais après pour l'importer en la sélectionnant ....?????

Svp dites moi que c'est possible .... moi qui n'est jamais manipulé des photos dans excel !!!!

Merci d'avance,

Redge

Hello,

Insertion - Image non ?

C'est bien celà mais en vba à partir d'un bouton car le programme est protégé....

re,

le programme est protégé

Quel programme est protégé ?

Mon programme qui doit est utilisé par d'autres personnes.... donc j'ai protégé et je cherche à ce qu'ils puissent importer une photo a partir d'un bouton. J'espère être plus clair !

Merci d'avance

Une première proposition à adapter le chemin + Nom + redimension :

Sub image()

ActiveSheet.Unprotect
ActiveSheet.Pictures.Insert("C:\xxx\xxxx\Pictures\thumb-1920-676442.png" _
        ).Select

Selection.ShapeRange.ScaleWidth 0.3461603237, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.3461603397, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Left = 80
Selection.ShapeRange.Top = 100

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Un grand merci pour ta proposition que je vais tester dès que possible

A bientôt

Redge

Bonjour,

Un grand merci ! Celà fonctionne parfaitement. Je n'ai plus qu'à gérer la mise en plage.