Scroll bar

Pierlecz -  
 Pierlecz -
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 ....

A voir également:

1 réponse

Réponse 1 / 1
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
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+
0
Pierlecz
 
j'essaye de suite
0
Pierlecz
 
ca marche mais avec la scroll bar j'avais des valeurs qui s'affichaient et sur lesquelle je pouvais travailler, avec le spinbutton, surement aussi, mais je ne sais pas comment ....., en tout cas merci
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Si tu tiens à la Scrollbar, méthode similaire, procédure ScrollBar1_Change et il faut utiliser ScrollBar1.Value.

Tu peux borner les valeurs prises par la ScrollBar dans la barre de propriétés VBA.
0
Pierlecz
 
j'essayerai ce soir et te tiens au courant des resultats,

merci

Pierre
0

Discussions similaires

A quoi sert la touche "scroll lock" ?
LAKESSE -
loutre -

5 réponses
activer/désactivé touche scroll
GII -
pwei -

9 réponses
éteindre la touche scroll lock
twal -
depassage -

4 réponses
Est-ce grave si je déssinstalle " bing bar "?
manga-neko -
damahus -

17 réponses
Touche arrêt défil sur clavier
munette -
inconnusoldat -

48 réponses