Como copiar uma imagem da planilha para um UserForm no Excel?
Este artigo mostrará métodos para copiar uma imagem da planilha ativa para o UserForm no Excel.
Copie a imagem da planilha para o UserForm com cópia e colagem
Copie a imagem da planilha para o UserForm com código VBA
Copie a imagem da planilha para o UserForm com cópia e colagem
Por favor, siga os passos abaixo para copiar uma imagem da planilha para o UserForm.
1. Alterne para a planilha que contém a imagem que você precisa copiar para o UserForm e, em seguida, pressione as teclas Alt + F11 juntas para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > UserForm. Veja a captura de tela:
3. Agora insira um Controle de Imagem no UserForm. Clique no botão Imagem na caixa de diálogo Toolbox e, em seguida, desenhe manualmente um Controle de Imagem no UserForm. Veja a captura de tela:
4. Clique com o botão direito no controle de Imagem inserido e clique em Propriedades no menu de contexto, conforme mostrado na captura de tela abaixo:
5. Em seguida, você verá um painel de Propriedades exibido no lado esquerdo da janela Microsoft Visual Basic for Applications.
6. Volte para a planilha, selecione a imagem que deseja exibir no UserForm e copie a imagem pressionando as teclas Ctrl + C.
7. Retorne à janela Microsoft Visual Basic for Applications, role para baixo, clique no campo Imagem e cole o nome da imagem copiada nele sob a aba Alfabética.
Agora a imagem da planilha foi copiada para o UserForm.
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.
Copie a imagem da planilha para o UserForm com código VBA
Esta seção mostrará um método alternativo para copiar várias imagens da planilha para um UserForm e, em seguida, exibir a imagem correspondente no UserForm selecionando o nome da imagem em uma Caixa de Combinação. Por favor, siga os passos abaixo.
1. Siga os passos 1 e 2 acima para inserir um UserForm na sua planilha.
2. Em seguida, insira um Controle de Quadro no UserForm, conforme mostrado na captura de tela abaixo:
3. Clique com o botão direito no Quadro inserido e selecione Propriedades no menu de contexto. No painel Propriedades à esquerda, selecione Não no campo Visível. Veja a captura de tela:
4. Insira vários controles de Imagem no Quadro, conforme mostrado na captura de tela abaixo.
5. Volte para a planilha, selecione a imagem que deseja exibir no UserForm e pressione as teclas Ctrl + C para copiá-la.
6. Entre novamente na janela Microsoft Visual Basic for Applications, clique com o botão direito no primeiro controle de Imagem e selecione Propriedades no menu de clique com o botão direito. Veja a captura de tela mostrada.
7. No painel Propriedades, clique no campo Imagem, depois pressione as teclas Ctrl + V para colar a imagem que você copiou na etapa 5 e, em seguida, selecione 1 – fmPictureSizeModeStrtch na lista suspensa PictureSizeMode, conforme mostrado na captura de tela abaixo.
8. Repita os passos 5 a 7 para colar outras imagens da planilha nos controles de Imagem restantes no UserForm. O resultado será exibido conforme mostrado na captura de tela abaixo.
9. Mova o controle de Quadro para o canto do UserForm, depois insira um novo controle de Imagem e um controle de Caixa de Combinação no UserForm. Veja a captura de tela:
10. Clique com o botão direito no UserForm e, em seguida, clique em Ver Código. Depois, copie e cole o código VBA abaixo para substituir o original na janela de Código.
Código VBA1: Copiar imagem da planilha para o UserForm
Private Sub ComboBox1_Change()
UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
Dim xImg As Control
On Error Resume Next
For Each xImg In UserForm1.Controls
If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
UserForm1.ComboBox1.AddItem xImg.Name
End If
Next
End SubObservação: No código, UserForm1 é o nome do UserForm inserido, Image4 é o nome do controle de Imagem onde você exibirá as imagens. E Imagem representa todos os controles de Imagem que contêm as imagens que você copiou da planilha. ComboBox1 é o nome da caixa de combinação que você inseriu no UserForm. Altere-os para os seus próprios nomes.
11. Feche a janela Microsoft Visual Basic for Applications.
12. Insira um botão de Comando na planilha clicando em Desenvolvedor > Inserir > Botão de Comando (Controle ActiveX).
13. Clique com o botão direito no botão de comando e selecione Ver Código no menu de contexto. Depois, copie e cole o código VBA abaixo na janela de Código. E finalmente feche a janela.
Código VBA2: Copiar imagem da planilha para o UserForm
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub15. Clique em Desenvolvedor > Modo de Design para desativar o Modo de Design.
A partir de agora, ao clicar no botão de comando, o UserForm aparecerá. Você pode exibir a imagem selecionando o nome da imagem na caixa de combinação. Veja a captura de tela:
Selecionar diferentes nomes na caixa de combinação exibirá diferentes imagens no UserForm.
Artigos Relacionados:
- Como centralizar uma imagem em uma célula do Excel?
- Como verificar se uma célula contém uma imagem no Excel?
- Como inserir uma imagem ou figura dinamicamente em uma célula com base no valor da célula no Excel?
- Como ampliar uma imagem ao clicar nela 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