XL 2010 VBA - Insérer image proportionnelle à la taille de la cellule

[Titi456]

Bonjour,

Est-ce possible d'insérer des images (en cliquant dans une cellule) qui prennent automatiquement les dimensions de ma cellule et qui s'étirent si je modifie la largeur de ma colonne ou la hauteur de la ligne? Et si je masque la colonne l'image est masquée également?

Mes meilleures salutations,

Thierry

 

[Nain porte quoi]

Hello,

pas à ma connaissance avec 2010, mais c'est OK avec 365

 

[job75]

Bonjour Titi456, Nain porte quoi,

Dans la cellule que vous voulez insérez une image ActiveX nommée Image1.

Propriété Picture de l'image => chargez le fichier JPEG que vous voulez

Propriété PictureSizeMode de l'image => 1 - fmPictureSizeModeStretch

La macro dans le code de la feuille :

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Image1.TopLeftCell
    Image1.Top = .Top
    Image1.Left = .Left
    Image1.Height = .Height
    Image1.Width = .Width
End With
End Sub

Modifiez la hauteur ou la largeur de la cellule et cliquez sur l'image.

Le lien sur cjoint.com :

https://www.cjoint.com/c/OAkpxIOaiT7

A+

 

[Dudu2]

Bonjour,
Je m'étais fait une fonction d'insertion.

 

[job75]

Bon si l'image est de dimensions nulles il faut une seconde macro :

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Image1.TopLeftCell
    Image1.Top = .Top
    Image1.Left = .Left
    Image1.Height = .Height
    Image1.Width = .Width
End With
End Sub

Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
Image1_MouseDown 1, 1, 0, 0
End Sub

L'image se redimensionne quand on clique sur une cellule quelconque.

Classeur1.xlsm

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

A+

 

[Titi456]

Bonjour à tous et merci pour vos propositions.
@job75 je n'arrive malheureusement pas à tester votre code; pourriez-vous m'envoyer un fichier test svp?

Mes meilleures salutations et bon début de semaines.

Thierry

 

[job75]

Bonjour Titi456, le forum,

@job75 je n'arrive malheureusement pas à tester votre code; pourriez-vous m'envoyer un fichier test svp?

J'ai déposé mon fichier sur cjoint.com téléchargez-le.

A+

 

[Titi456]

Ah oui pardon j'avais pas remarqué le lien de ce site que je ne connaissais pas.

C'est exactement ce que je cherche à faire cependant je ne vois pas comment faire pour remplacer l'image et en mettre d'autres en dessous mais c'est très bien comme ça je vais bine trouver la solution.

Merci beaucoup pour votre aide

 

[job75]

J'ai écrit clairement au post #3 :

Dans la cellule que vous voulez insérez une image ActiveX nommée Image1.

Propriété Picture de l'image => chargez le fichier JPEG que vous voulez

Vous pouvez modifier la propriété Picture de Image1