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 :

Comment centrer une image dans une cellule? [XL-97]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Janvier 2005
    Messages
    152
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 152
    Par défaut Comment centrer une image dans une cellule?
    Bonjour à tous,

    Dans une boucle qui récupère un nom de fichier d'image dans une liste je cherche à insérer, cellule après cellule, l'image correspondante.
    Le problème, c'est que l'image s'insère dans le coin supérieur gauche, et que je souhaite que l'image soit centrée dans la cellule.
    J'imagine que c'est très simple, mais je ne sais pas comment faire.

    Un petit coup de main, s'il vous plaît?

    Merci beaucoup!

    BTB

  2. #2
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Exemple (à adapter) pour placer l'image 1 au centre de la cellule A1
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    With Sheets(1).Shapes("Image 1")
        .Left = Range("A1").Left + (Range("A1").Width / 2) - (.Width / 2)
        .Top = Range("A1").Top + (Range("A1").Height / 2) - (.Height / 2)
    End With

  3. #3
    Membre confirmé
    Inscrit en
    Janvier 2005
    Messages
    152
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 152
    Par défaut
    Bonjour Fring, et merci pour ta réponse.

    Par contre j'ai un doute sur l'appel de l'image, avec le code que j'ai fait:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
            Fichier = sPath & oRst("LIST") & ".JPG"
            xlSheet.Pictures.Insert Fichier
                   
            With xlSheet.Shapes("Image 1")
                .Left = ActiveCell.Left + (ActiveCell.Width / 2) - (.Width / 2)
                .Top = ActiveCell.Top + (ActiveCell.Height / 2) - (.Height / 2)
            End With
    Dois-je importer l'image d'une autre manière, pour pouvoir donner à l'image un nom et ainsi permettre que xlSheet.Shapes puisse l'appeler?

  4. #4
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Avec tes autres variables, tu déclares une variable de type Objet
    Et ensuite tu peux faire comme ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Fichier = sPath & oRst("LIST") & ".JPG"
    Set oImg = xlSheet.Pictures.Insert(Fichier)
    oImg.Left = ActiveCell.Left + (ActiveCell.Width / 2) - (oImg.Width / 2)
    oImg.Top = ActiveCell.Top + (ActiveCell.Height / 2) - (oImg.Height / 2)

  5. #5
    Membre confirmé
    Inscrit en
    Janvier 2005
    Messages
    152
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 152
    Par défaut
    Merci, c'est parfait!

  6. #6
    Invité de passage
    Homme Profil pro
    Schlutier
    Inscrit en
    Avril 2016
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vosges (Lorraine)

    Informations professionnelles :
    Activité : Schlutier
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2016
    Messages : 1
    Par défaut Merci
    11 ans après, le code marche toujours !

    Merciiiiiiiiiiiiiiiiiiiiiiii.......

    Désolé pour le déterrage, mais j'ai l'âme d'un archéologue....

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

Discussions similaires

  1. [Débutant] Manipulation d'images : intégrer une image dans une image
    Par noscollections dans le forum VB.NET
    Réponses: 2
    Dernier message: 17/10/2014, 11h51
  2. Comment placer une image dans une table de une base de données
    Par Arnold Falanga dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 22/07/2012, 09h29
  3. Mettre une Image dans une Image
    Par shadowhocine dans le forum SWT/JFace
    Réponses: 2
    Dernier message: 19/12/2006, 18h40
  4. Réponses: 3
    Dernier message: 30/10/2006, 11h21
  5. Insérer une légende dans une image avec une police plus petite
    Par Paulinho dans le forum Tableaux - Graphiques - Images - Flottants
    Réponses: 3
    Dernier message: 29/04/2006, 14h19

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