Como copiar a imagem da planilha para o formulário do usuário no Excel?
Este artigo mostrará os métodos de cópia de uma imagem da planilha ativa para o formulário do usuário no Excel.
Copie a imagem da planilha para o formulário do usuário, copiando e colando
Copie a imagem da planilha para o formulário do usuário com o código VBA
Copie a imagem da planilha para o formulário do usuário, copiando e colando
Faça o seguinte para copiar uma imagem da planilha para o Userform.
1. Mude para a planilha que contém a imagem que você precisa copiar para o formulário do usuário e pressione o botão outro + F11 chaves juntas para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, por favor clique inserção > Formulário de usuário. Veja a imagem:
3. Agora, insira um controle de imagem no formulário de usuário. Por favor clique no Imagem botão no Caixa de ferramentas caixa de diálogo, em seguida, desenhe um controle de imagem no UserForm manualmente. Veja a imagem:
4. Clique com o botão direito no controle de imagem inserido e clique em Propriedades no menu de contexto, conforme a captura de tela abaixo mostrada:
5. Então você pode ver um Propriedades painel é exibido no lado esquerdo do Microsoft Visual Basic para Aplicações janela.
6. Volte para a planilha e selecione a imagem que deseja exibir no formulário do usuário e, em seguida, copie a imagem pressionando Ctrl + C chaves.
7. Entre no Microsoft Visual Basic para Aplicações novamente, role para baixo para clicar no Imagem e cole o nome da imagem copiada nele na guia Alfabético.
Agora, a imagem na planilha é copiada para o formulário do usuário.
Copie a imagem da planilha para o formulário do usuário com o código VBA
Esta seção mostrará uma solução alternativa para copiar várias imagens da planilha para um formulário do usuário e, em seguida, exibir a imagem correspondente no formulário do usuário, selecionando o nome da imagem em uma caixa de combinação. Faça o seguinte.
1. Siga as etapas 1 e 2 acima para inserir um formulário de usuário em sua planilha.
2. Em seguida, insira um Controle de quadro no UserFrom, conforme a captura de tela abaixo mostrada:
3. Clique com o botão direito do mouse no quadro inserido e selecione Propriedades no menu de contexto. No lado esquerdo Propriedades painel, por favor selecione Falso do Visível campo. Veja a imagem:
4. Insira vários controles de imagem no quadro conforme a captura de tela abaixo mostrada.
5. Volte para a planilha e selecione a imagem que deseja exibir no formulário do usuário e pressione o botão Ctrl + C chaves para copiá-lo.
6. Entre no Microsoft Visual Basic para Aplicações janela, clique com o botão direito no primeiro controle de imagem e selecione Propriedades no menu do botão direito. Veja a imagem mostrada.
7. No Propriedades painel, por favor clique no Imagem campo e pressione o Ctrl + V para colar a imagem que você copiou na etapa 5 e selecione 1 - fmPictureSizeModeStrtch do Modo Tamanho da imagem lista suspensa conforme a captura de tela mostrada abaixo.
8. Repita as etapas 5 - 7 para colar outras imagens da planilha para os controles de imagem à esquerda no formulário de usuário. E o resultado será exibido conforme a captura de tela abaixo.
9. Mova o quadro controle para o canto do formulário de usuário, em seguida, insira um novo Imagem controle e um Caixa combo controle no formulário de usuário. Veja a imagem:
10. Clique com o botão direito no UserFormE clique em Ver código. Em seguida, copie e cole o código VBA abaixo para substituir o original na janela Código.
Código VBA 1: Copiar imagem da planilha para o formulário do usuário
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 SubNote: No código, UserForm1 é o nome do UserForm inserido, Image4 é o nome do controle de imagem no qual você exibirá as imagens. E a 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 formulário do usuário. Altere-os para os seus.
11. Feche o Microsoft Visual Basic para Aplicações janela.
12. Insira um botão de comando na planilha clicando em Developer > inserção > 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. Em seguida, copie e cole o código VBA abaixo na janela de código. E finalmente feche a janela.
Código VBA 2: Copiar imagem da planilha para o formulário do usuário
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub15. Clique Developer > Modo de design para desligar o modo Design.
A partir de agora, ao clicar no botão de comando, aparecerá o UserForm. Você pode exibir a imagem selecionando o nome da imagem na caixa de combinação. Veja a imagem:
Selecionar nomes diferentes na caixa de combinação exibirá imagens diferentes no formulário de usuário.
Artigos relacionados:
- Como centralizar uma imagem em uma célula do Excel?
- Como verificar se uma célula contém imagem no Excel?
- Como inserir imagem ou figura dinamicamente na célula com base no valor da célula no Excel?
- Como ampliar a imagem ao clicar nela no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!
