Taille d'image non proportionnelle sous Excel [Résolu]

Signaler
Messages postés
37
Date d'inscription
mardi 30 septembre 2008
Statut
Membre
Dernière intervention
26 avril 2011
-
Messages postés
37
Date d'inscription
mardi 30 septembre 2008
Statut
Membre
Dernière intervention
26 avril 2011
-
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

1 réponse

Messages postés
37
Date d'inscription
mardi 30 septembre 2008
Statut
Membre
Dernière intervention
26 avril 2011
1
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