我不明白為什么這個 VBA 代碼回傳運行時錯誤 438：
With Worksheets("DATA1").Shapes("CommandButton4")
.TextFrame.Characters.Text = "In Stock"
End With
我需要更改按鈕的標題。
代碼在 Private Sub Workbook_Open() 中。
uj5u.com熱心網友回復：
我問你按鈕型別，但沒有答案。因此，我將為這兩種型別（Form 或 ActiveX）提供解決方案。請檢查下一段代碼：
如果是 ActiveX 按鈕（根據其名稱，更有可能）：
Sub changeActiveXButtonCaption()
Dim bt As MSForms.CommandButton
Set bt = ActiveSheet.OLEObjects("CommandButton4").Object
bt.Caption = "In Stock"
End Sub
如果是表單按鈕，請檢查/使用下一個代碼：
Sub changeFormButtonCaption()
Dim bt As Button
Set bt = ActiveSheet.Buttons("CommandButton4")
bt.Caption = "In Stock"
End Sub
上述任何控制元件都沒有TextFrame屬性。這樣的屬性通常屬于一個形狀。您的“CommandButton4”按鈕是一個形狀嗎？
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/411623.html
標籤：
上一篇：如何在D3中加載兩個外部檔案？
下一篇：自動過濾以包含標題