excel vba问题：提示运行时错误：1004 不能取得类OLEObjects的Object的属性

代码如下：
Private Sub CommandButton1_Click()
Dim name As String
Dim nameCon As String
name = "BarCodeCtrl"

For i = 3 To 102
nameCon = name & (i - 2)
If (Len(Cells(i, 3)) <> 0) Then

Sheet1.OLEObjects(nameCon).Visible = True
If (Len(Cells(i, 3)) <= 8) Then
Sheet1.OLEObjects(nameCon).Object.Style = "7" ----到这里出现错误

ElseIf (Len(Cells(i, 3)) = 13) Then
Sheet1.OLEObjects(nameCon).Object.Style = "2"
End If
Sheet1.OLEObjects(nameCon).Object.Value = CStr(Cells(i, 3))
Sheet1.OLEObjects(nameCon).Height = 35
Sheet1.OLEObjects(nameCon).Width = 100
Else
Sheet1.OLEObjects(nameCon).Visible = False
End If
Next i

Cells(3, 1).Select
End Sub

谢谢！

把"7"改成7试试?

sheets("summary").cells(8, 3).value = "'=roundup(" & sheets("pricing").cells(10, 12).value & ",4)" 问题的关键是 sheets("summary").cells(8, 3).value 这个单元格是要=roundup（值，4）这个字符串还是要这个公式的值？