How to clear the interior colour of a textbox

[danbates]

Hi,

I have this following code which is my 'CLEAR' button on a search userform.

Private Sub CommandButton3_Click() Dim z As Control
 For Each z In Search.Controls
 If TypeName(z) = "TextBox" Then
 z.Value = ""
 End If
 Next z
 TextBox1.SetFocus
 End Sub

I would like to adapt it so when I press the 'CLEAR' button , not only does it clear the textboxes it also clears the interior colour of textbox7.

Any help would be much appreciated.

Kind Regards

Dan

 

[PatOBrien198]

    dim ws as Worksheet
    set ws = ActiveSheet  ' assumes your text box is on the active sheet

     With ws.Shapes.Range("TextBox 7").Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
    End With

 

[danbates]

Hi,

Thank you for you response but my TextBox7 isn't on the active sheet. It is used in a userform called 'Search'

HTH

Regards

Dan

 

[NoSparks]

try using something like

TextBox7.BackColor = vbWindowBackground

Here's a list of VB color constants

 

[danbates]

Hi NoSparks,

That's just what I was after, Thank You.

Regards

Dan