Scroll bar
Pierlecz
-
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 ....
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:
- Scroll bar
- Battery bar - Télécharger - Informations & Diagnostic
- Touche scroll lock ✓ - Forum Excel
- Scroll lock ✓ - Forum Matériel & Système
- Touche "scroll lock" - Forum Windows
- Scroll lock - Forum Windows
1 réponse
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) :
A+
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+
Tu peux borner les valeurs prises par la ScrollBar dans la barre de propriétés VBA.
merci
Pierre