Note: The other languages of the website are Google-translated. Back to English
Registo de cliente  \/ 
x
or
x
Registe-se  \/ 
x

or

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 de 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 de PictureSizeMode 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 Sub

Importante: 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 Desenvolvedor > 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 Sub

15. Clique Desenvolvedor > 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:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Seth · 1 years ago
    I'm having difficulties, can someone explain the code for me?