Как изменить пределы для скролла , VBA Excel

Как изменить пределы Min Max для скролла

Option Explicit
 
'Public gvar As Integer
 
Function FScrollBarMinMax(pmin As Double, pmax As Double) As Integer
 
'Sheets("Лист1").Shapes("Scroll2").DrawingObject.Max = pmin
 
ActiveSheet.Shapes("Scroll2").ControlFormat.Min = pmin
ActiveSheet.Shapes("Scroll2").ControlFormat.Max = pmax
 
FScrollBarMinMax = 0
End Function
 
Function FSumma(arg As Double) As Double
Dim res As Integer
res = FScrollBarMinMax(25, 52)
FSumma = arg + 10
End Function

Прикреплённый файлTest.rar (13,95 Кбайт, скачиваний: 118)

Sub qwert()
    With ActiveSheet.Shapes("ScrollBar1").OLEFormat.Object.Object
        .Max = 22000
        .Min = 220
    End With
End Sub

спасибо

В опубликованном файле нет скролла, но есть счётчик а изменить мин. и макс. можно ещё и так :

With ActiveSheet.Spinners("Scroll2")
     .Min = pmin
     .Max = pmax
End With