Macro excel d'insertion image
Fermé
Dr Funk
-
5 mars 2008 à 21:35
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 5 mars 2008 à 22:12
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 5 mars 2008 à 22:12
A voir également:
- Excel vba shapes.addpicture
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
5 mars 2008 à 22:03
5 mars 2008 à 22:03
Salut docteur,
tiré de l'aide Ms
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
"c:\microsoft office\clipart\music.bmp", _
True, True, 100, 100, 70, 70
AddPicture, méthode
Cette méthode crée une image à partir d'un fichier existant. Elle renvoie un objet Shape qui représente la nouvelle image.
Syntaxe
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression Obligatoire. Expression qui renvoie un objet Shapes.
FileName Argument de type String obligatoire. Fichier à partir duquel l'objet OLE doit être créé.
LinkToFile Argument de type Long obligatoire. Cet argument a la valeur True pour lier l'image au fichier à partir duquel elle a été créée. Il a la valeur False pour transformer l'image en une copie indépendante du fichier.
SaveWithDocument Argument de type Long obligatoire. Cet argument a la valeur True pour enregistrer l'image liée avec le document dans lequel elle est insérée. Il a la valeur False pour stocker seulement les informations de liaison dans le document. Cet argument doit avoir la valeur True si l'argument LinkToFile a la valeur False.
Left, Top Argument de type Single obligatoire. Position (en points) du coin supérieur gauche de l'image par rapport au coin supérieur gauche du document.
Width, Height Argument de type Single obligatoire. Largeur et hauteur de l'image, en points.
A+
Michel
tiré de l'aide Ms
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
"c:\microsoft office\clipart\music.bmp", _
True, True, 100, 100, 70, 70
AddPicture, méthode
Cette méthode crée une image à partir d'un fichier existant. Elle renvoie un objet Shape qui représente la nouvelle image.
Syntaxe
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression Obligatoire. Expression qui renvoie un objet Shapes.
FileName Argument de type String obligatoire. Fichier à partir duquel l'objet OLE doit être créé.
LinkToFile Argument de type Long obligatoire. Cet argument a la valeur True pour lier l'image au fichier à partir duquel elle a été créée. Il a la valeur False pour transformer l'image en une copie indépendante du fichier.
SaveWithDocument Argument de type Long obligatoire. Cet argument a la valeur True pour enregistrer l'image liée avec le document dans lequel elle est insérée. Il a la valeur False pour stocker seulement les informations de liaison dans le document. Cet argument doit avoir la valeur True si l'argument LinkToFile a la valeur False.
Left, Top Argument de type Single obligatoire. Position (en points) du coin supérieur gauche de l'image par rapport au coin supérieur gauche du document.
Width, Height Argument de type Single obligatoire. Largeur et hauteur de l'image, en points.
A+
Michel
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
5 mars 2008 à 22:12
5 mars 2008 à 22:12
bonjour
Tu peux remplacer toutes tes lignes par celle-ci qui devrait fonctionner.
Quand tu enregistres, l'enregistreur rajoute des "select" pour tout mémoriser mais en fait tu n'en as pas besoin.
Tu peux remplacer toutes tes lignes par celle-ci qui devrait fonctionner.
ActiveSheet.Pictures.Insert ([B15]) ou pour la postionner à un endroit précis ActiveSheet.Shapes.AddPicture [B15], True, True, 100, 100, 70, 70 en faisant varier les positions par exemple ActiveSheet.Shapes.AddPicture [B15], True, True, [A10].Left, [A10].Top, [A10].Width , [A10].Height pour positionner en A10
Quand tu enregistres, l'enregistreur rajoute des "select" pour tout mémoriser mais en fait tu n'en as pas besoin.
