Taille d'image non proportionnelle sous ExcelRésolu

Question

Bonjour tout le monde!

Je travaille sous VB 2005 et je doit créer et remplir un fichier Excel. jusque là, pas trop de problèmes. 

Mon problème est le suivante, lorsque j'insère des images dans mon fichier Excel, elles s'insèrent automatiquement en mode "Taille proportionnelle" c'est à dire que si je la redimensionne sous VB, elle garde une taille proportionnelle alors que je ne le voudrait pas.

Quelqu'un connait-il la propriété d'une image Excel qui permet de modifier celà?

merci d'avance,

PS : VOici mon code d'ajout d'image et de redimensionnement 

        'Ajout de l'image
        With m_ExcelApplication.ActiveSheet.Pictures.Insert("c:\Image.bmp")
            'Définition de la position de l'image
            .Left = m_ExcelApplication.Range(m_ExcelApplication.Cells(1,1), _
                    m_ExcelApplication.Cells(10,10)).Left
            .Top = m_ExcelApplication.Range(m_ExcelApplication.Cells(1,1), _
                   m_ExcelApplication.Cells(10,10)).Top

            'Définition de la taille de l'image
            .Height = m_ExcelApplication.Range(m_ExcelApplication.Cells(1,1), _
                      m_ExcelApplication.Cells(10,10)).Height
            .Width = m_ExcelApplication.Range(m_ExcelApplication.Cells(1,1), _
                     m_ExcelApplication.Cells(10,10)).Width

        End With

cs_LaNono · Accepted Answer

Je me réponde à moi-même car j'ai trouvé la solution. 

Si ça peut en aider certains voici la solution : Ajouter dans le with 

.ShapeRange.LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoFalse

Avant de changer la largeur et la hauteur de l'image

VOili

Taille d'image non proportionnelle sous Excel

1 réponse

Votre réponse

Discussions similaires