VBA設定文本框控制元件為不可見沒有效果,代碼如下:
Private Sub Document_Open()
test
End Sub
Public Sub test()
On Error Resume Next
Dim tbox As Object
For Each tbox In ActiveDocument.Shapes
If tbox.OLEFormat.ClassType = "Forms.TextBox.1" Then
'MsgBox tbox.Name & ":" & tbox.TextFrame.TextRange.Text
tbox.Visible = msoFalse
End If
Next
End Sub
請大神指點!
uj5u.com熱心網友回復:
tbox.Visible = False轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/26853.html
標籤:VBA
上一篇:Visual Basic與Visual Studio上的Visual Basic區別有多大?
下一篇:Excel vba的時候一直抱運行時錯誤‘1004’,如何修改,ActiveSheet.Shapes(picture_name).Select這句之后出錯的
