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.
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?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins