Redimentionner d'une image ou forme excel par un chiffre
Fermé
Zemoda
-
14 mars 2014 à 13:49
via55 Messages postés 14090 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 17 mars 2023 - 14 mars 2014 à 15:37
via55 Messages postés 14090 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 17 mars 2023 - 14 mars 2014 à 15:37
A voir également:
- Redimentionner d'une image ou forme excel par un chiffre
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Liste déroulante excel - Guide
- Recherche par image - Guide
- Formule excel - Guide
- Mise en forme conditionnelle excel - Guide
2 réponses
Raymond PENTIER
Messages postés
57133
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
17 162
14 mars 2014 à 14:21
14 mars 2014 à 14:21
Non, ce n'est pas possible.
Mais peut-être qu'un spécialiste de VBA pourrait t'écrire une macro ...
Mais peut-être qu'un spécialiste de VBA pourrait t'écrire une macro ...
via55
Messages postés
14090
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
17 mars 2023
2 572
14 mars 2014 à 15:37
14 mars 2014 à 15:37
Bonjour à vous 2
Comme dit Raymond il faut passer par un code VBA
En supposant la valeur variable de 1 à 100 en C2 et la forme affichée nommée maforme (dans la Zone nom en haut à gauche)
Alt + F11 pour ouvrir l'éditeur VBA
Copier et coller le code suivant dans la fenêtre VBA
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 2 And Target.Column <> 3 Then Exit Sub 'Ne fait rien si changement dans une cellule autre que C2 (ligne 2, colonne 3)
pourcentage = Target.Value / 100 'Prends la valeur en C2 et la dicise par 100
hauteur = 5 ' remplacer 5 ici par la hauteur en cm de l'original de départ
largeur = 12 ' remplacer 12 ici par la largeur en cm de l'original de départ
'Application du pourcentage à la taille image et convesrion des cms en points pour l'affichage
Shapes("maforme").Height = Application.CentimetersToPoints(hauteur * pourcentage)
Shapes("maforme").Width = Application.CentimetersToPoints(largeur * pourcentage)
End Sub
A ADAPTER :
-en changeant le n° de ligne et le n° de colonne dans la 1ere ligne si autre cellule que C2
- en indiquant les dimensions réelles de l'original dans hauteur et largeur
- en remplaçant maforme dans les dernières lignes par le nom réel de ta forme
Cdlmnt
Comme dit Raymond il faut passer par un code VBA
En supposant la valeur variable de 1 à 100 en C2 et la forme affichée nommée maforme (dans la Zone nom en haut à gauche)
Alt + F11 pour ouvrir l'éditeur VBA
Copier et coller le code suivant dans la fenêtre VBA
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 2 And Target.Column <> 3 Then Exit Sub 'Ne fait rien si changement dans une cellule autre que C2 (ligne 2, colonne 3)
pourcentage = Target.Value / 100 'Prends la valeur en C2 et la dicise par 100
hauteur = 5 ' remplacer 5 ici par la hauteur en cm de l'original de départ
largeur = 12 ' remplacer 12 ici par la largeur en cm de l'original de départ
'Application du pourcentage à la taille image et convesrion des cms en points pour l'affichage
Shapes("maforme").Height = Application.CentimetersToPoints(hauteur * pourcentage)
Shapes("maforme").Width = Application.CentimetersToPoints(largeur * pourcentage)
End Sub
A ADAPTER :
-en changeant le n° de ligne et le n° de colonne dans la 1ere ligne si autre cellule que C2
- en indiquant les dimensions réelles de l'original dans hauteur et largeur
- en remplaçant maforme dans les dernières lignes par le nom réel de ta forme
Cdlmnt