PPT 文本框类出错

daimao446

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
文本框类.7z (38.33 KB, 下载次数: 12)

2018-11-20 09:00 上传

点击文件名下载附件

四大名捕

已搞定，谢谢各位。