|
en activant cette macro ... 1) on vérifie la présence d'un commentaire dans la cellule active ... si oui on supprime 2) on ouvre la boite de dialogue "Ouvrir" 3)on insère l'image dans le commentaire de la cellule active ... Code à placer dans un module 
Option Explicit
'format image autorisé
Const ImgFileFormat = "Image Files (*.bmp;*.gif;*.tif;*.jpg;*.jpeg)," & _
"*bmp;*gif;*.tif;*.jpg;*.jpeg"
Sub AjoutImage()
'VeriTi
'http://www.veriti.fr
Dim Image As Variant
Dim Picture As String
'on vérifie si la cellule contient un commentaire
Set Image = ActiveCell.Comment
If Not Image Is Nothing Then ActiveCell.Comment.Delete
Set Image = Nothing
'ouverture boite de dialogue
Picture = Application.GetOpenFilename(ImgFileFormat)
'on insère l'image sélectionnée
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Shape.Fill.Transparency = 0#
.Comment.Shape.Fill.UserPicture Picture
End With
End Sub
dans cette procédure il n'y a pas de test d'erreur, ce qui ne va pas manquer d'en créer si aucune sélection d'image n'est faite ... enfin le but ici, est forcément d'en sélectionner une ...
Date de création : 24/05/2005 - 19:14
Dernière modification : 25/05/2005 - 21:32
Catégorie : Images
Page lue 6243 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 40
Haut 
