XL 2010 Image Tcd

Axiale

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

job75

XLDnaute Barbatruc
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+
 

Axiale

XLDnaute Nouveau
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+
Bonjour Job75,
Merci pour ton retour, c'est parfait.
Bonne journée.
 

Discussions similaires


Haut Bas