XL 2010 Image Tcd

[Axiale]

Bonjour,
Je souhaiterai savoir comment insérer une image liée dans un tableau croise dynamique
merci de votre retour
Ax

 

[job75]

Bonjour Axiale, bienvenue sur XLD,

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

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+

 

[Axiale]

Bonjour Axiale, bienvenue sur XLD,

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

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+

Bonjour Job75,
Merci pour ton retour, c'est parfait.
Bonne journée.