XL 2010 Image Tcd

job75 à dit:

Bonjour Axiale, bienvenue sur XLD,

Pour insérer une image dans un TCD ça se passe comme pour n'importe quelle cellule :

VB:

Sub InsertImage()
Dim fichier
fichier = Application.GetOpenFilename 'choix du fichier Image
If fichier = False Then Exit Sub
With ActiveSheet.Pictures.Insert(fichier)
    .ShapeRange.LockAspectRatio = msoTrue
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Width = ActiveCell.Width
End With
End Sub

A+

Cliquez pour agrandir...