daimao446 发表于 2018-11-20 09:00:31

PPT 文本框类出错

Private Sub CommandButton1_Click()
Dim COL As Collection
Dim i As Integer
For i = 1 To 3
Dim myc As 类1
Set myc = New 类1
Set myc.TBb = Me.Shapes("TextBox" & i).OLEFormat.Object
COL.Add myc
Next i
Set myc = Nothing
End Sub

四大名捕 发表于 2018-11-20 12:02:40

已搞定，谢谢各位。
页: [1]
查看完整版本: PPT 文本框类出错