macro pour insérer photo dans fichier Excel Fermé

Question

Bonjour,

Je voudrais pouvoir insérer des photos dans un fichier Excel protégé.
Je ne dispose pas de l'adresse des photos,
Pour cela j'ai besoin d'une macro qui enleve la protection du fichier; ouvre une boite de dialogue pour l'insertion de photos, permette a l'utilisateur de choisir le chemin vers la photo, puis remette la protection du fichier. (je connais le mot de passe, mais je ne tiens pas à le diffuser). si en plus je peux savoir comment manipuler la photo pour lui donner la taille souhaitée ça serait super!

Est-ce que c'est possible?
QUel est le code de la macro?

J'ai essayé d'en enregistrer une; mais elle reprend le chemin vers l'image que j'ai choisie et elle insère la photo (pas d'ouverture de dialogue pour que je puisse choisir)

MERCI BEAUCOUP

Weiwei en Chine

phil232 · Answer

http://www.commentcamarche.net/forum/affich 2661132 macro excel pour inserer une image

ThanquoL · Answer

Bonjour à tous,
Je cherche à faire une feuille word ou excel qui servirai de base de présentation produit dans ma boite. En gros j'ai besoin de faire une macro qui m affiche une boite de dialogue de demandant de sélectionner mon fichier image, le redimensionne si possible et l'insère dans le document, puis une deuxièmre boîte de dialogue pour entrer les commentaires de l'image.
Je ne sais pas du tout si il est possible de réaliser cela avec excel ou word en vba mais j'aimerai savoir si cela est possible et si quelqu'un as une idée pour la réalisations (au moins la fonction pour faire la sélection de l'image grâce au parcourir).

Merci Beaucoup

Julien

Frenchyfrog · Answer

Je pense qu'il existe une commande direct pour l'insertion d'image mais je ne la connais pas.
Toutefois le code si dessous fonctionne.

Sub Insertion_Image()
'
' Insertion_Image
'
    ActiveSheet.Unprotect
    
    Range("B13:R54").Select
    
    Dim Rep As String, Fichier
    Rep = CurDir$
    ChDir "C:"
    Fichier = Application.GetOpenFilename
    If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation)
    ChDir Rep

    ActiveSheet.Pictures.Insert(Fichier).Select
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
    
End Sub

Macro pour insérer photo dans fichier Excel

3 réponses

Discussions similaires