Adapter une image dans une cellule

  • Initiateur de la discussion Initiateur de la discussion joums
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

joums

XLDnaute Occasionnel
Bonjour,

A l'aide d'une macro, j'insère une image dans une cellule

Je souhaite que cette image s'adapte à la taille de la taille.
J'ai utliser le code ci-dessous mais ca ne marche pas
Code:
Set Mycell = Range("B15")
Mycell.Select
Set MyPicture = ActiveSheet.Pictures.Insert(image)
With MyPicture.ShapeRange
LockAspectRatio = msoFalse
.Height = Mycell.Height
.Width = Mycell.Width

Merci de votre aide
 
Re : Adapter une image dans une cellule

Hello,

Comme ça...
Code:
    Application.ScreenUpdating = False
    
    Set MyCell = Range("B15")

    MyCell.Select
    [B]Image = "F:\Mes images\Phototchoules\Fonds d'écran\Bass1.jpg" 'À adapter[/B]
    
    Set MyPicture = ActiveSheet.Pictures.Insert(Image)
    
    With MyPicture
        LockAspectRatio = msoFalse
        [B].Left = MyCell.Left[/B]
        [B].Top = MyCell.Top[/B]
        .Width = MyCell.Width
        .Height = MyCell.Height
    [B]End With[/B]
    
    Application.ScreenUpdating = True
Apparemment tu avais oublié le End With et il faut indiquer le chemin de l'Image.
 
Dernière édition:
Re : Adapter une image dans une cellule

Hello,

Comme ça...
Code:
    Application.ScreenUpdating = False
    
    Set MyCell = Range("B15")

    MyCell.Select
    [B]Image = "F:\Mes images\Phototchoules\Fonds d'écran\Bass1.jpg" 'À adapter[/B]
    
    Set MyPicture = ActiveSheet.Pictures.Insert(Image)
    
    With MyPicture
        LockAspectRatio = msoFalse
        [B].Left = MyCell.Left[/B]
        [B].Top = MyCell.Top[/B]
        .Width = MyCell.Width
        .Height = MyCell.Height
    [B]End With[/B]
    
    Application.ScreenUpdating = True
Apparemment tu avais oublié le End With et il faut indiquer le chemin de l'Image.

Bonjour,
Merci pour votre réponse,
effectivement j'avais oublié de mettre le End With...
cela marche parfaitement
Encore merci
A bientôt
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
11
Affichages
839
Retour