Problème création ComboBox via VBA

Bonjour,

Est-il possible via VBA de désactivé (lors de la création d'un ComboBox) la case "Proportionnelle à l'image d'origine" ? Merci.

Bonjour,

D'après l'enregistreur de macro, il faut jouer sur la propriété LockAspectRatio de votre combobox (msoTrue pour activer, msoFalse pour désactiver)

ActiveSheet.Shapes("Drop Down 6").LockAspectRatio = msoFalse

Si ça ne correspond pas merci de joindre un fichier représentatif avec le code déjà réalisé et la combobox en place.

Cdlt,

Bonjour Ergotamine,

Merci de ton aide. J'ai essayé ton code mais ça ne fonctionne pas.

Ci-joint le fichier.

18help.xlsm (275.19 Ko)

Cordialement,

Bonjour,

C'est bien ce qui me semblait, c'est un OLEOBJECT donc d'après votre code :

CB.ShapeRange.LockAspectRatio = msoFalse

Chez moi cela décoche la case. J'ai une erreur sur :

Sheets("WIDGET").Shapes("POSTE").Copy
ActiveSheet.Paste

Mais sans lien avec la modification apportée. Je vous laisse tester.

Cdlt,

Merci Ergotamine,

Ca fonctionne parfaitement.

Cordialement,