Como inserir uma imagem em uma caixa de texto?

Por padrão, podemos inserir uma imagem ou figura em uma planilha rapidamente 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.

Inserir uma imagem ou figura em uma caixa de texto com código VBA

Inserir uma imagem ou figura em uma caixa de texto com código VBA

Para inserir uma imagem em uma caixa de texto, o seguinte código VBA pode ajudá-lo; por favor, siga estas instruções:

1. Insira uma caixa de texto clicando em Inserir > Caixa de Texto e, em seguida, desenhe uma caixa de texto, veja a captura de tela:

2. Em seguida, pressione as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Inserir uma imagem em uma 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

Observação: No código acima, Planilha4 é o nome da planilha que contém a caixa de texto onde você deseja inserir a imagem, e C:\Users\DT168\Desktop\pictures\Apple.JPG é o caminho da imagem que você deseja inserir. Altere-os conforme sua necessidade.

4. E então pressione a tecla F5 para executar este código, a imagem específica será inserida na caixa de texto imediatamente, e você poderá editar a caixa de texto conforme necessário, veja a captura de tela:

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Artigos relacionados:

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

Como permitir apenas a entrada de números em uma caixa de texto?

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

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