Résolu 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
 
Ce fil a été résolu! Aller à la solution…

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+
 
Ce message a été identifié comme étant une solution!

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.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas