In diesem Beispiel wird eine Bildlaufleiste erstellt, und ihre Werte für "LinkedCell", "Min", "Max", "LargeChange" und "SmallChange" werden festgelegt.
Set sb = Worksheets(1).Shapes.AddFormControl(xlScrollBar, _ Left:=10, Top:=10, Width:=10, Height:=200) With sb.ControlFormat .LinkedCell = "D1" .Max = 100 .Min = 0 .LargeChange = 10 .SmallChange = 2 End With