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

cs_LaNono
Messages postés
37
Date d'inscription
mardi 30 septembre 2008
Dernière intervention
26 avril 2011
- 28 nov. 2008 à 11:36 - Dernière réponse : cs_LaNono
Messages postés
37
Date d'inscription
mardi 30 septembre 2008
Dernière intervention
26 avril 2011
- 28 nov. 2008 à 14:03
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
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
cs_LaNono
Messages postés
37
Date d'inscription
mardi 30 septembre 2008
Dernière intervention
26 avril 2011
- 28 nov. 2008 à 14:03
2
Merci
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

Merci cs_LaNono 2

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 86 internautes ce mois-ci

Commenter la réponse de cs_LaNono

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.