Tüm activex nesnelerinin arka planını değiştirme

[blackhill]

Arkadaşlar makro ile şöyle bir şey yapabilir miyim?

Bir word dökümanındaki tüm activex textbox ların arka planını kırmızıya boyayabilir miyim?

 

[hamitcan]

Bu şekilde deneyin.

Sub Boya()
Dim f As Object
Dim tb As TextBox
For Each f In ActiveDocument.Fields
If f.OLEFormat.ClassType = "Forms.TextBox.1" Then
Set tb = f.OLEFormat.Object
 tb.BackColor = vbRed
End If
Next f
End Sub