我在工作表中有几种形状(自动形状,连接器,标签,旋转按钮),并希望将每个形状的几个参数写入另一个工作表。但我无法通过下面的代码获取旋转按钮值(消息显示:对象不承认此属性或方法)。但是,如果我将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