如何在VBA中设置滚动条值属性

Question

我有一个滚动条和一个输入字段（tempBuiten）。我喜欢滚动条以跟随输入字段中的值。因此，如果用户在该字段中设置了值，我希望滚动条移动到该位置。

这是我到目前为止所做的：

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim ws1 As Worksheet
    Set ws1 = Sheets(1)

    If Not Intersect(Range("tempBuiten"), Target) Is Nothing Then
       ' I use 10 as an test value for now
       ws1.ScrollBarBuiten.Value = 10
    End If

End Sub

我得到：找不到方法或数据成员。

我不确定这是否可行，如果是这样的话怎么办？

Answer 1

要设置滚动条当前值，我确实找到了这个解决方案：

ws1.Shapes("ScrollBarBuiten").ControlFormat.Value = 10