IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro pour redimenssionner une Image


Sujet :

Macros et VBA Excel

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Août 2007
    Messages
    684
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 684
    Points : 153
    Points
    153
    Par défaut Macro pour redimenssionner une Image
    Bonsoir,

    Avec une macro, je voudrais redimenssionner une Image
    mais avec une taille précise.

    Comment faire ?

    Merci à tous pour votre aide

  2. #2
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Points : 24 327
    Points
    24 327
    Par défaut
    Eternelles mêmes questions:
    Qu'as-tu déjà fait?
    As-tu tapé "image" dans la recherche de l'aide en ligne?
    As-tu utilisé l'enregistreur de macro?
    Obtiens-tu un message d'erreur?
    Si oui, lequel?
    Si non, quel est le comportement anormal constaté?

  3. #3
    Membre habitué
    Profil pro
    Inscrit en
    Août 2007
    Messages
    684
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 684
    Points : 153
    Points
    153
    Par défaut
    Bonjour,

    Voici mon code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Selection.ShapeRange.ScaleHeight 0.26, msoFalse, msoScaleFromBottomRight, msoTrue
     
    Selection.ShapeRange.ScaleWidth 0.295, msoFalse, msoScaleFromBottomRight, msoTrue
    Cela réduit bien l'image, mais l'image reste proportionnelle c'est a dire
    que quand elle est bonne en hauteur, elle n'est plus bonne en largeur
    et vice et versa !

    Dans les propriétées de l'image, proportionnel reste coché
    Car je ne souhaite pas forcément garder les proportions d'origine

    Comment faire ?

  4. #4
    Membre habitué
    Profil pro
    Inscrit en
    Août 2007
    Messages
    684
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 684
    Points : 153
    Points
    153
    Par défaut
    Merci à tous,

    C'est OK

    @ +

  5. #5
    Membre actif
    Profil pro
    chomeur
    Inscrit en
    Août 2006
    Messages
    343
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : chomeur

    Informations forums :
    Inscription : Août 2006
    Messages : 343
    Points : 246
    Points
    246
    Par défaut
    J'ai le meme souci mais a la différence que je recherche comment redimensionner une image dans un objet Image que j'ai mis sur un userform.

    Code le code que j'utilise : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    set Image1.Picture = LoadPicture(stChemin & stFicher, Color)
    image1.Height = 10
    image1.Width = 20

    Comment faire? sachant que j'ai déjà essayé de la dimensionner dans le loadpicture...

  6. #6
    Membre actif
    Profil pro
    chomeur
    Inscrit en
    Août 2006
    Messages
    343
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : chomeur

    Informations forums :
    Inscription : Août 2006
    Messages : 343
    Points : 246
    Points
    246
    Par défaut
    j'ai résolu mon 'tit souci alors sait on jamais je met la réponse si quelqu'un un jour en avait besoin.
    il faut utiliser la propriété : image.PictureSizeMode = fmPictureSizeModeStretch.

    @micalement

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Macro pour inverser une image en miroir
    Par Carlos31 dans le forum VBA PowerPoint
    Réponses: 6
    Dernier message: 11/02/2015, 15h40
  2. [XL-2007] Macro pour modifier une image
    Par yvespi dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 20/12/2011, 14h00
  3. [XL-2003] Une macro pour enregistrée une image d'un USF
    Par creolia dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 29/03/2010, 08h33
  4. Macro pour rogner une image
    Par malabarbe dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 10/08/2007, 22h57
  5. Réponses: 13
    Dernier message: 23/12/2004, 18h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo