Scroll bar Fermé

Question

Bonjour, 

je suis en train d'essayer de faire augmenter la taille une shape en fonction d'une scrollbar, si j'ai trouve en VBA comment augmenter et diminuter la taille la shape (encore que je suis pes entierement satisfait, puisque j'utilise 

pour agrandir
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
    Selection.ShapeRange.ScaleHeight 1.1, msoFalse, _
        msoScaleFromBottomRight
pour diminuer
  ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
    Selection.ShapeRange.ScaleHeight 0.9, msoFalse, _
        msoScaleFromBottomRight

dons c'est un rapport d'augmentation et non lineaire d'apres la forme de base, mais bon ca le fait

par contre je vroudrais lancer les fonction en fonction de l'appui sur la scrollbar, si on appui sur la fleche du bas, la shape diminue si c'est sur la fleche du haut c'est l'inverse, et je ne trouve pas comment differencier les deux fleches .... les valeurs augmentent bien mais comment affecter une macro a la fleche du bas et une autre a la fleche du haut, en resume .... 

Configuration: Windows 7 / Firefox 36.0

Zoul67 · Answer

Bonjour,

Mets plutôt un SpinButton (parmi les contrôles ActiveX). Dans l'éditeur VBA, dans le code de la feuille (tu as accès à la saisie assistée - SpinButton1 plutôt que Worksheet) :
Private Sub SpinButton1_SpinDown()
    MsgBox "+ petit"
End Sub

Private Sub SpinButton1_SpinUp()
    MsgBox "+ grand"
End Sub

A+

Scroll bar

1 réponse

Discussions similaires

Newsletters