點擊復選框內容控制元件（是內容控制元件，wdContentControlCheckBox）以后，顯示會改變，我想在點擊以后，根據狀態顯示一些東西，但是沒找到觸發事件的方法，請問是那個？謝謝。
uj5u.com熱心網友回復：
Private Sub CheckBox1_Click()
If Me.Controls("CheckBox1").Value = True Then
'復選框內容想改變資訊
Me.Controls("CheckBox1").Caption = "你點到我了"
Else
'復選框內容原來資訊
Me.Controls("CheckBox1").Caption = "CheckBox1"
End If
End Sub
uj5u.com熱心網友回復：
謝謝你的幫助。只是我用的是內容控制元件（ContentControl），不是CheckBox控制元件。
uj5u.com熱心網友回復：
前臺的啊，Document事件下例是選完離開事件
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Select Case ContentControl.Range.Text
Case "Cat"
Debug.Print "貓"
Case "Dog"
Debug.Print "狗"
End Select
End Sub
uj5u.com熱心網友回復：
我的想法是這樣，在一個word檔案里有個表格，表格的某個格子里有個復選框內容控制元件，當點擊復選框，如果選中則底色變為紅色，如果狀態是未選中則底色為綠色。不知道怎么實作，謝謝。
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
拿去，不謝，記得放document里Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
If ContentControl.Checked Then
ContentControl.Range.Cells(1).Shading.BackgroundPatternColorIndex = wdRed
Else
ContentControl.Range.Cells(1).Shading.BackgroundPatternColorIndex = wdGreen
End If
End Sub
uj5u.com熱心網友回復：
非常，非常感謝，終于解決了這個問題。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/7364.html
標籤：VBA
上一篇：如何用VB選擇性的洗掉檔案夾