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.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

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 Sub

Observaçã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 Sub

15. 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?