Au début, une question : insérer une image sur une cellule.. Ok Pouvoir avoir cette image aggrandie Ok aussi, notre ami Spit. te donne une solution...
Pour t'aider, utilise l'enregistreur de macro. Outils/Macro/Nouvelle Macro. Tu verras, il sait faire plein de choses...montre nous ce que tu as déjà fait
Sub AddPictureToCommentII()
''SOURCE:http://blogs.officezealot.com/charles/archive/2004/09/27/3019.aspx
Dim rng As Range
Dim shp As Comment
Dim img As String
img = "C:\Earth1.jpg"
Set rng = ActiveCell
Set shp = rng.AddComment("")
shp.Shape.Fill.UserPicture (img)
End Sub
Sub Macro3()
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.BackColor.SchemeColor = 80
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Fill.UserPicture _
"C:\Earth1.jpg"
Selection.ShapeRange.ScaleWidth 1.62, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.12, msoFalse, msoScaleFromTopLeft
End Sub
tatiak à dit:Bonjour "moi.mc", bonjour à tous les amis du forum,
Un fichier contenant des données avec une mini photo importée automatiquement, un clic sur un nom pour afficher une photo agrandie, des possibilités de tri?
Je te suggère de télécharger la démo du 25 avril 2007 : Catalogue texte/photo qui répond précisemment à ce cahier des charges!