Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

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


seta azul bolha direita 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:

doc inserir imagem na caixa de texto 1

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

Importante: 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:

doc inserir imagem na caixa de texto 2


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?


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Harvey Hecker · 1 years ago
    Yes, I changed both. I did not get any errors when I ran the macro using the F5 key.

    I tried to place the macro in different folders of the workbook, worksheet, module,class module but the results were the same: no picture in the text box.


    Thanks for writing back. The last name is Hecker, BTW....typo
  • To post as a guest, your comment is unpublished.
    harvey heckef · 1 years ago
    Tried this macro on Excel 365. It did not work. Did not receive error message. Macro ran to completion. Picture is not shown in textbox.
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello,harvey,
      Do you change the sheet name and picture path to your own in the code? Please chek it, thank you!

      Note: In the above code, Sheet4 is the sheet name which contains the text box you want to insert picture, and C:\Users\DT168\Desktop\pictures\Apple.JPG is the picture path of the picture you want to insert, you should change them to your need.

      • To post as a guest, your comment is unpublished.
        Alex Pineda · 2 months ago
        It work perfectly. Only change the Text box name as shown:

        Set xSh = Sheets("Sheet1").Shapes("TextBox 2")