Question

我一直试图改变以编程方式创建的滚动条的背景颜色。我可以创建控件但是我收到错误：

438 error of object not supporting the property or method

以下是代码：

Private Sub CommandButton1_Click()
    Set s = ScrollBars.Add(630, 220, 220, 38) '(left,top,width,height)
    s.BackColor = RGB(100, 100, 100) 'error happens here
End Sub

Answer 1

好吧，也许我可以稍微提一下我的问题。无论如何，我需要设置以编程方式创建的ActiveX滚动条的颜色。这就是我提出的并且有效：

Sub CustomScrollbar（）

ActiveSheet.OLEObjects.Add（ClassType：=＆＃34; Forms.ScrollBar.1＆＃34;，Link：= False，_ DisplayAsIcon：= False，左：= 300，上：= 225，宽度：= 10，高度：= _ 60）。选择

Selection.ShapeRange.ScaleWidth 10，msoFalse，msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 2，msoFalse，msoScaleFromTopLeft

ActiveSheet.OLEObjects（＆＃34; ScrollBar1＆＃34;）。Object.BackColor =＆amp; HC00000

End Sub

vba excel更改动态创建的滚动条的背景颜色

1 个答案: