[發問] 刪除控制項

以OLEObjects.Add方法加入Checkbox控制項，
若要刪除工作表內之前加入的Checkbox，該如何寫呢？
Dim OB As OLEObject
For Each OB In ActiveSheet.OLEObjects
If OB.progID = "Forms.checkbox.1" Then OB.Delete
Next

樓主熱帖

寶寶

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-4-20 13:28 | 只看該作者

回復 1# caichen3
Forms.CheckBox.1 大小寫要ㄧ致

TOP

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

3^#

發表於 2012-4-24 14:14 | 只看該作者

回復 2# GBKEE

程式碼 "Forms.Checkbox.1"已是大寫但還是無法清除原先的控制項，請大大幫我看看！
Private Sub CommandButton1_Click()
Dim x As Integer
Dim xxx As String
Dim yyy As String
Dim OB As OLEObject

x = UserForm1.ComboBox1.Value
Range("G1").Value = x

For i = 10 To 200
xxx = i
Range("A" & xxx).Value = ("")
Range("B" & xxx).Value = ("")
Range("C" & xxx).Value = ("")
Next
ActiveSheet.Range("A10:F200").Borders.LineStyle = XILinestyleNone

For j = 1 To x
yyy = 9 + j
Range("C" & yyy).Value = j
Next

ActiveSheet.Range("A10:F" & yyy).Borders.LineStyle = xlContinuous
'ActiveSheet.Range("A10:F" & yyy).Borders(xlEdgeBottom).Weight = xlThick
'ActiveSheet.Range("A10:F" & yyy).Borders(xlEdgeRight).Weight = xlThick

For Each OB In ActiveSheet.OLEObjects
If OB.progID = "Forms.Checkbox.1" Then OB.Delete
Next
n = 1
For Each a In Range("C:C").SpecialCells(xlCellTypeConstants)
For k = 1 To 3

Select Case k
      Case "1"
      MyStr = n & "功能性需求"
      Case "2"
      MyStr = n & "感官性需求"
      Case "3"
      MyStr = n & "隱藏性需求"
End Select

With a.Offset(, k)
   Set OB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Checkbox.1", Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
      OB.Object.Caption = MyStr
      OB.Object.GroupName = n

End With
Next
  n = n + 1
Next
End Sub