Como copiar uma imagem de uma folha de cálculo para um formulário (UserForm) no Excel?
Este artigo mostra-lhe como copiar uma imagem da folha de cálculo ativa para um UserForm no Excel.
Copiar imagem da folha de cálculo para o UserForm através de cópia e colagem
Copiar imagem da folha de cálculo para o UserForm com código VBA
Copiar imagem da folha de cálculo para o UserForm através de cópia e colagem
Siga os passos abaixo para copiar uma imagem da folha de cálculo para o UserForm.
1. Mude para a folha que contém a imagem que pretende copiar para o UserForm e, em seguida, prima em simultâneo as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > UserForm. Veja a imagem:
3. Agora insira um Controlo de Imagem no UserForm. Clique no botão Imagem na caixa de diálogo Caixa de Ferramentas e desenhe manualmente um Controlo de Imagem no UserForm. Veja a imagem:
4. Clique com o botão direito do rato no controlo Inserir Imagem e selecione Propriedades no menu de contexto, conforme mostrado na imagem seguinte:
5. Verá agora um painel de Propriedades apresentado no lado esquerdo da janela do Microsoft Visual Basic for Applications.
6. Regresse à folha de cálculo, selecione a imagem que pretende exibir no UserForm e copie-a premindo as teclas Ctrl+C.
7. Volte à janela do Microsoft Visual Basic for Applications, percorra até ao campo Picture e cole nele o nome da imagem copiada, no separador Alfabético.
Agora, a imagem da folha de cálculo foi copiada para o UserForm.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Copiar imagem da folha de cálculo para o UserForm com código VBA
Esta secção apresenta uma solução alternativa para copiar várias imagens da folha de cálculo para um UserForm e exibir a imagem correspondente no UserForm ao selecionar o respetivo nome numa caixa de combinação (Combo Box). Siga os passos seguintes.
1. Siga os passos 1 e 2 indicados acima para inserir um UserForm na sua folha de cálculo.
2. Em seguida, insira um Controlo de Moldura (Frame Control) no UserForm, conforme mostrado na imagem seguinte:
3. Clique com o botão direito do rato na moldura inserida e selecione Propriedades no menu de contexto. No painel esquerdo de Propriedades, defina Visible como False. Veja a imagem:
4. Insira vários controlos de Imagem na Moldura, tal como ilustrado na imagem seguinte.
5. Regresse à folha de cálculo, selecione a imagem que pretende exibir no UserForm e prima as teclas Ctrl+C para a copiar.
6. Abra novamente a janela do Microsoft Visual Basic for Applications, clique com o botão direito do rato no primeiro controlo de imagem e selecione Propriedades no menu de contexto. Veja a imagem seguinte.
7. No painel de Propriedades, clique no campo Picture e, em seguida, prima as teclas Ctrl + V para colar a imagem copiada no passo 5. Depois, selecione 1 – fmPictureSizeModeStretch no campo PictureSizeMode da lista suspensa, conforme mostrado na imagem seguinte.
8. Repita os passos 5 a 7 para colar outras imagens da folha de cálculo nos restantes controlos de Imagem à esquerda no UserForm. O resultado será semelhante ao apresentado na imagem seguinte.
9. Mova o controlo Moldura para o canto do UserForm, depois insira um novo controlo Imagem e um controlo Caixa de Combinação (Combo Box) no UserForm. Veja a imagem:
10. Clique com o botão direito do rato no UserForm e, em seguida, clique em Ver Código. Copie e cole o seguinte código VBA para substituir o original na janela de Código.
Código VBA 1: Copiar imagem da folha de cálculo 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 SubNota: No código, UserForm1 é o nome do UserForm inserido, Image4 é o nome do controlo de imagem onde as imagens serão exibidas. «Image» representa todos os controlos de imagem que contêm as imagens copiadas da folha de cálculo. ComboBox1 é o nome da caixa de combinação inserida no UserForm. Substitua-os pelos nomes que utilizou.
11. Feche a janela do Microsoft Visual Basic for Applications.
12. Insira um botão de Comando na folha de cálculo clicando em Programador > Inserir > Botão de Comando (Controlo ActiveX).
13. Clique com o botão direito do rato no botão de comando e selecione Ver Código no menu de contexto. Em seguida, copie e cole o seguinte código VBA na janela de Código. Por fim, feche esta janela.
Código VBA 2: Copiar imagem da folha de cálculo para o UserForm
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub15. Clique em Programador > Modo de Estrutura para desativar o Modo de Estrutura.
A partir de agora, ao clicar no botão de comando, o UserForm será exibido. Basta selecionar o nome da imagem na caixa de combinação para visualizá-la. Veja a imagem:
Selecionar nomes diferentes na caixa de combinação exibe imagens distintas no UserForm.
Artigos Relacionados:
- Como centralizar uma imagem numa célula do Excel?
- Como verificar se uma célula contém uma imagem no Excel?
- Como inserir uma imagem ou imagem dinâmica numa célula com base no valor dessa célula no Excel?
- Como ampliar uma imagem ao clicar nela no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos