Redimensionner une image dans Excel (VBA) grâce à des cellules
Résolu
STVNA
Messages postés
32
Statut
Membre
-
STVNA Messages postés 32 Statut Membre -
STVNA Messages postés 32 Statut Membre -
Bonjour à tous !
En 2015, j'ai posté cette question : https://forums.commentcamarche.net/forum/affich-31772094-redimensionner-une-image-automatiquement-avec-excel-vba
On aimerait maintenant redimensionner une image dans Excel de cette manière : lorsque l'on met une largeur et une hauteur dans des cellules, une image se redimensionne toute seule en fonction de ces valeurs et donc en utilisant VBA.
Merci d'avance !
En 2015, j'ai posté cette question : https://forums.commentcamarche.net/forum/affich-31772094-redimensionner-une-image-automatiquement-avec-excel-vba
On aimerait maintenant redimensionner une image dans Excel de cette manière : lorsque l'on met une largeur et une hauteur dans des cellules, une image se redimensionne toute seule en fonction de ces valeurs et donc en utilisant VBA.
Merci d'avance !
1 réponse
-
Bonjour,
En supposant qu'il n'y ait qu'une seule image sur la feuille, mets cette macro dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If [A1] <> "" And [A2] <> "" And IsNumeric([A1]) And IsNumeric([A2]) Then If Target.Address = "$a$1" Or Target.Address = "$a$2" Then With ActiveSheet.Pictures(1) .Height = [A1] .Width = [A2] End With End If End If End Sub
A1=hauteur
A2= largeur
Avec les valeurs en points.
Cordialement.-
-
-
-
Pas besoin de renommer l'image. Par contre, il doit y en avoir qu'une sur la feuille.
Le point vaut 1/72 de pouce et le pouce vaut 2.54 cm. Le classeur doit être enregistré au format .xlsm et les macros doivent activées. Si tu as toujours un problème, mets ton classeur sur mon-partage.fr et poste le lien obtenu.
Daniel -
-
