Como inserir uma imagem na caixa de texto?

Por padrão, podemos inserir uma imagem ou imagem em uma planilha com a mesma rapidez usando a função Inserir, mas esse recurso não se aplica à inserção de uma imagem em uma caixa de texto. Com este artigo, posso ajudá-lo a inserir uma imagem em uma caixa de texto conforme necessário.

Insira uma imagem ou imagem em uma caixa de texto com o código VBA

Insira uma imagem ou imagem em uma caixa de texto com o código VBA

Para inserir uma imagem em uma caixa de texto, o seguinte código VBA pode ajudá-lo, faça o seguinte:

1. Insira uma caixa de texto clicando em inserção > caixa de textoe desenhe uma caixa de texto, veja a captura de tela:

2. Em seguida, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

3. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: insira uma imagem na caixa de texto:

Sub ShapePicture()
    Dim xSh As Shape
    Dim xPic As IPictureDisp
    Dim xFileName As String
    xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
    Set xPic = LoadPicture(xFileName)
    Set xSh = Sheets("Sheet4").Shapes(1)
    xSh.Height = xPic.Height / xPic.Width * xSh.Width
    Set xPic = LoadPicture("")
    Set xPic = Nothing
    xSh.Fill.UserPicture xFileName
End Sub

Note: No código acima, Sheet4 é o nome da folha que contém a caixa de texto que você deseja inserir a imagem, e C: \ Users \ DT168 \ Desktop \ pictures \ Apple.JPG é o caminho da imagem que você deseja inserir, você deve alterá-los de acordo com sua necessidade.

4. E, em seguida, pressione F5 chave para executar este código, a imagem específica será inserida na caixa de texto de uma vez, e você pode editar a caixa de texto conforme necessário, consulte a captura de tela:

Artigos relacionados:

Como definir um valor padrão em uma caixa de texto?

Como permitir que apenas números sejam inseridos na caixa de texto?

Como aplicar a verificação ortográfica na caixa de texto?

Como alterar a cor da caixa de texto com base no valor no Excel?