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 IfNext iCells(3, 1).SelectEnd Sub谢谢！