Note: The other languages of the website are Google-translated. Back to English

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

Note: In the code, UserForm1 is the name of the inserted UserForm, Image4 is the name of the Image control you will display pictures inside. And Image represents all Image controls which contain the pictures you copied from the worksheet. ComboBox1 is the combobox name you have inserted into the userform. Please change them to your own.

11. Close the Microsoft Visual Basic for Applications window.

12. Insert a Command button into the worksheet by clicking Developer > Insert > Command Button (ActiveX Control).

13. Right-click the command button and select View Code from the Context menu. And then copy and paste the below VBA code into the Code window. And finally close the window.

VBA code2: Copy image from worksheet to Userform

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. Click Developer > Design Mode to turn off the Design Mode.

From now on, when clicking the command button, the UserForm will pop up. You can display picture by selecting the image name from the combo box. See screenshot:

Select different names from the combo box will display different pictures in the UserForm.


Related Articles:


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I'm having difficulties, can someone explain the code for me?
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations