[求助]

dl.lzc · 发表于 2005-2-22 11:47

这个流动条是怎么设置的?

Ue3shgg5.rar (5.39 KB, 下载次数: 25)

fieldsun · 发表于 2005-2-22 12:16

右键滚动条,调置控件格式

dl.lzc · 发表于 2005-2-22 12:50

谢谢版主,这个我找到了,我是想问,为什么在VBA状态下,找不到它的属性窗口,而我做的和它不一样呢?

fPTAAz24.rar (6.6 KB, 下载次数: 16)

fieldsun · 发表于 2005-2-22 13:10

你用的是"窗体"工具栏中的滚动条,如果用的是"控件工具箱"中的滚动条,在VBA状态下才能看到它的属性

注意区分"窗体"工具栏和"控件工具箱"中的控件的不同

dl.lzc · 发表于 2005-2-22 13:21

谢谢版主,我这就好好看看

chenjun · 发表于 2005-2-22 22:38

可以用VBA控制用“窗体工具栏”做的控件的，尽管微软从office97开始推荐用“控件工具”来代替，但还保留对以前的支持，代码如下 Sub ChangeScrollBar() Dim ScrBar As Shape '定义变量为Shape Dim ScrbarCtrFmt As ControlFormat '定义变量为窗体控件属性 Set ScrBar = ActiveSheet.Shapes(1) '设置变量为当前工作表的第1个Shape Set ScrbarCtrFmt = ScrBar.ControlFormat '设置变量为Shape所包含的窗体属性 With ScrbarCtrFmt .Min = 20 '设置滚动条的最小值 .Max = 50 '设置滚动条的最大值 .Value = 30 '设置滚动条的当前值 .SmallChange = 1 '设置步长 .LargeChange = 5 '设置页步长 .LinkedCell = "A1" '设置链接单元格 End With End Sub 例子请看附件。

wLGgZK0b.rar (7.59 KB, 下载次数: 27)

shuiyuan · 发表于 2005-2-22 22:42

不错，很形象

dl.lzc · 发表于 2005-2-23 12:16

谢谢大家的热心帮助

		自动登录	找回密码
密码			免费注册