Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como inserir a imagem na caixa de texto?

Por padrão, podemos inserir uma imagem ou imagem em uma planilha tão rapidamente usando a função Inserir, mas esse recurso não é aplicado para inserir uma imagem em uma caixa de texto. Com este artigo, posso ajudá-lo a inserir uma imagem em uma caixa de texto conforme você precisar.

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


arrow blue right bubble Insira uma imagem ou imagem 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, faça o seguinte:

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

doc inserir imagem na caixa de texto 1

2. Em seguida, segure 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

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

4. E, em seguida, pressione F5 chave para executar este código, a imagem específica será inserida na caixa de texto ao mesmo tempo, e você pode editar a caixa de texto conforme você precisa, veja 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?


Kutools for Excel - A Melhor Ferramenta de Produtividade no Escritório Aumenta Sua Produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente 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 (salve e aplique 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 ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 60.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.