[已解决]窗体复选框

爱疯

Sub cheb1()    '窗体复选框
    Me.Shapes("Check Box 1").LinkFormat = True
    Me.Shapes("Check Box 1").LinkFormat = False
    Me.CheckBoxes("Check Box 1").LinkFormat = True
End Sub

eOc510yv.rar (5.65 KB, 下载次数: 94)

2010-9-14 09:10 上传

点击文件名下载附件
窗体复选框

问题：shapes()方式的可以，为什么checkboxes()的不行？如果LinkFormat = True替换为select，两者都可以

谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2010-9-14 16:14

要学会用监视窗口或者本地窗口找属性哦。

试试看Value

跳转到最佳答案楼层

chensir

[em01]

爱疯

也不是啊，我经常不小心，自己搞错的情况很多。

一起学习[em04]

爱疯

Sub cheb1()    '窗体复选框
    Me.Shapes("Check Box 1").LinkFormat = True
'    Me.Shapes("Check Box 1").LinkFormat = False
'    Me.CheckBoxes("Check Box 1").LinkFormat = True

    Me.Shapes("Check Box 1").Select
    Selection.Characters.Text = "aaa"
End Sub

这样，只能以shapes()方式表示，只能分两次完成吗？

[em11]

amulee

你添加监视看看就知道了，实际访问到的是两个层面的东西。

5楼的问题：Me.CheckBoxes("Check Box 1").Caption = "AAA"

amulee

窗体控件，我的理解就是Excel重新给加了个外壳，使操作更为方便，添加了一些新的属性，可能代替了原来的属性，而控件原本的一些属性就没办法访问到了。

好比组装电脑，主板上的开关，装上机箱后开关变漂亮了，你是通过机箱壳上的开关去开关电脑，而你装好机箱后就只能通过机箱上的开关操作了，再没办法去直接按主板上的开关了。要按主板上的开关，就必须拆开机箱。

窗体控件也是一样，CheckBox的Caption属性在穿上Shape的外衣后变成了其他属性，你无法直接通过Shapes去访问Caption属性，如果要访问就必须把外壳剥掉，直接访问到OLE原型。

爱疯

QUOTE:

以下是引用amulee在2010-9-14 13:44:00的发言：

窗体控件，我的理解就是Excel重新给加了个外壳，使操作更为方便，添加了一些新的属性，可能代替了原来的属性，而控件原本的一些属性就没办法访问到了。

好比组装电脑，主板上的开关，装上机箱后开关变漂亮了，你是通过机箱壳上的开关去开关电脑，而你装好机箱后就只能通过机箱上的开关操作了，再没办法去直接按主板上的开关了。要按主板上的开关，就必须拆开机箱。

窗体控件也是一样，CheckBox的Caption属性在穿上Shape的外衣后变成了其他属性，你无法直接通过Shapes去访问Caption属性，如果要访问就必须把外壳剥掉，直接访问到OLE原型。

谢谢阿木！

就像制服一样吧：

• 穿上制服，你当前属性可能是军人、警察、医生 ....
• 退下制服，你当前属性可能是阿童木、版主、孩子他爸 ....

还就1楼问题，如果变成Me.CheckBoxes("Check Box 1")，就不能用LinkFormat属性了，那打钩怎么办呢？

amulee

要学会用监视窗口或者本地窗口找属性哦。

试试看Value

爱疯

感觉不好找，我再找找同类看看吧

[em04]

mhuan_aaa

窗体的可以用Me.CheckBoxes("Check Box 1").value
或者me.shapes("check box 1").linkformat