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
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
Bonjour Axiale, bienvenue sur XLD,
Pour insérer une image dans un TCD ça se passe comme pour n'importe quelle cellule :
A+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