excel VBA无法获得spinbutton值

时间:2015-06-13 19:08:34

标签: excel-vba button vba excel

我在工作表中有几种形状(自动形状,连接器,标签,旋转按钮),并希望将每个形状的几个参数写入另一个工作表。但我无法通过下面的代码获取旋转按钮值(消息显示:对象不承认此属性或方法)。但是,如果我将sShape.Value替换为SB_FR.Value(SB_FR是我的某个旋转按钮的特定名称),则代码可以正常工作。 Value属性与其他属性不同,如Top,Width还是Left?

dim sShape as Shape
i = 0
For Each sShape In Worksheets("sheet1").Shapes
    Worksheets("sheet2").Cells(i + 1, 1) = sShape.Name
    Worksheets("sheet2").Cells(i + 1, 2) = sShape.Top
    Worksheets("sheet2").Cells(i + 1, 3) = sShape.Left
    ss = Split(sShape.Name, "_")
    if (ss(0)="SB") then            'if the shape is a spin button 
        Worksheets("sheet2").Cells(i + 1, 4) = sShape.Value  'Here the problem
    End If
    i=i+1
Next

0 个答案:

没有答案