Add background image to textbox

[MarkOW]

Can anyone show how to add an image fill to the textbox I have inserted into a worksheet please.

Private Sub CommandButton1_Click()




Dim myCell As Range
Dim myTextBox As textbox


Set myCell = ActiveCell


'Set Textbox Size & Position


    With myCell
    Set myTextBox = .Parent.TextBoxes.Add(Top:=.Top, Left:=.Left, _
    Width:=130, Height:=50)
    End With
    
'Insert Contents of UserForm ComboBox


    With myTextBox
    .Caption = ComboBox1.Value & Chr(10) & ComboBox2.Value & Chr(10) & Now
    End With


End Sub

Thanks
Mark

 

[Norie]

Mark

Try this, change the path for the image as required.

    With myTextBox
        .Caption = "THIS IS A TEST"
          .ShapeRange.Fill.UserPicture  "C:\Test\Logo.bmp"
    End With

 

[MickG]

Try this:-
Straight from the "Macro Recorder" !!!!!!
Change Path to suit !!!

Private Sub CommandButton1_Click()
Dim myCell As Range
Dim myTextBox As TextBox
Set myCell = ActiveCell
With myCell
    Set myTextBox = .Parent.TextBoxes.Add(Top:=.Top, Left:=.Left, _
    Width:=130, Height:=50)
        With myTextBox.ShapeRange.Fill
            .Visible = msoTrue
            .UserPicture "C:\Users\USER1\Desktop\Bird Pictures\5.jpg"
            .TextureTile = msoFalse
        End With
    
    End With
    With myTextBox
    .Caption = "Testing" 'ComboBox1.Value & Chr(10) & ComboBox2.Value & Chr(10) & Now
    End With