Imagens no Excel: inserir, redimensionar, guardar e eliminar múltiplas imagens ou fotografias no Excel

É fácil para a maioria de nós inserir imagens armazenadas no computador na folha de cálculo. Siga estes passos:

1. Na folha de cálculo, clique onde pretende inserir a imagem.

2. Em seguida, clique em Inserir > Imagens > Este Dispositivo. Veja a captura de ecrã:

3. Na janela Inserir Imagem que surge, abra a pasta que contém as imagens e, em seguida, mantenha premida a tecla Ctrl para selecionar as imagens que pretende inserir. Veja a captura de ecrã:

4. Em seguida, clique no botão Inserir. As imagens selecionadas serão inseridas na folha. Agora, pode ajustar ou redimensioná-las nas células pretendidas — veja a captura de ecrã:

Se tiver o Excel 2013 ou versões posteriores, pode inserir imagens diretamente da Web ou do OneDrive. Basta seguir estes passos:

1. Na folha de cálculo, clique no local onde pretende inserir a imagem.

2. Em seguida, clique em Inserir > Imagens > Imagens Online. Veja a captura de ecrã:

3. Será apresentada uma janela. Na secção Imagens Online, introduza o que procura na caixa de texto e, em seguida, prima a tecla Enter. Todas as imagens correspondentes serão pesquisadas imediatamente — veja a captura de ecrã:

4. Em seguida, selecione as imagens pretendidas e clique no botão Inserir. Após inserir as imagens, redimensione-as ou ajuste-as à posição desejada.

O código VBA seguinte permite-lhe inserir várias imagens nas células, ajustando-as automaticamente ao respetivo tamanho. Siga estes passos:

1. Ajuste o tamanho das células onde pretende inserir a imagem e, em seguida, selecione-as.

2. Em seguida, mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

3. Clique em Inserir > Módulo e cole a macro seguinte na janela do Módulo.

Código VBA: Inserir várias imagens com base no tamanho da célula

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Em seguida, prima a tecla F5 para executar este código. Na janela Abrir, escolha a pasta que contém as imagens, selecione as imagens que pretende inserir e, em seguida, clique no botão Abrir. Todas as imagens selecionadas são inseridas na sua seleção, ajustadas ao tamanho da célula. Veja a captura de ecrã:

Se não estiver familiarizado com código VBA, pode utilizar uma funcionalidade avançada – Importar Imagens do Kutools para Excel. Com esta funcionalidade útil, pode importar várias imagens para as células de forma rápida e fácil.

1. Clique em KUTOOLS PLUS > Importar/Exportar > Importar Imagens. Veja a captura de ecrã:

2. Na caixa de diálogo Importar Imagens que surge, realize as seguintes operações:

• Especifique a ordem das imagens a partir da lista pendente Ordem de Importação, pode escolher Preencher por Coluna, depois por Linhaou Preencher por Linha, depois por Coluna;
• Em seguida, clique no botão Adicionarpara selecionar o Arquivos de Imagem ou a pasta onde pretende adicionar as imagens na Lista de Imagens;
• Clique no botão Tamanho de Importação na caixa de diálogo Tamanho da Imagem ao Importar e selecione a opção Tamanho da Célula Correspondente.
• 

3. Após concluir as definições, clique no botão Importar e, de seguida, surge outra janela Importar Imagens. Especifique as células de destino onde a imagem será importada — veja a captura de ecrã:

4. Em seguida, clique no botão OK. Todas as imagens selecionadas foram inseridas de forma a corresponder ao tamanho das células específicas, como mostra a seguinte captura de ecrã:

O código VBA seguinte permite-lhe inserir várias imagens correspondentes aos respetivos nomes de forma rápida. Siga estes passos:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole a macro seguinte na janela do Módulo.

Código VBA: Inserir várias imagens correspondentes aos respetivos nomes

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

Nota: No código acima, pode ajustar a altura e a largura da imagem nos comandos «.ShapeRange.Height = 60» e «.ShapeRange.Width = 60», conforme necessário.

3. Em seguida, prima a tecla F5 para executar este código. Na janela aberta, selecione a pasta que contém as imagens que pretende inserir. Veja a captura de ecrã:

4. Depois, clique no botão OK. Surge uma caixa de diálogo — por favor, selecione as células que contêm os nomes das imagens. Veja a captura de ecrã:

5. Continue a clicar no botão OK. Surge outra caixa de diálogo; por favor, selecione as células onde pretende inserir as imagens. Veja a captura de ecrã:

6. Por fim, clique em OK e as imagens serão inseridas nas células com base nos respetivos nomes de imediato. Veja a captura de ecrã:

Se tiver o Kutools para Excel, com a sua funcionalidade Correspondência de Importar Imagens, poderá inserir imagens com base no nome da imagem de forma rápida e fácil.

1. Clique em KUTOOLS PLUS > Importar/Exportar > Correspondência de Importar Imagens. Veja a captura de ecrã:

2. Na caixa de diálogo Corresponder Imagem ao Importar que surge, realize as seguintes operações:

• Especifique a ordem das imagens na lista pendente Ordem de Importação; pode escolher Preencher por Coluna, depois por Linhaou Preencher por Linha, depois por Coluna;
• Depois, na caixa de texto Intervalo de Correspondência, selecione os nomes das imagens com base nos quais pretende Inserir Imagem;
• Em seguida, clique no botão Adicionarpara selecionar o Arquivos de Imagem ou a pasta onde pretende adicionar as imagens na Lista de Imagens;
• De seguida, deverá especificar o tamanho das imagens. Clique no botão Tamanho de Importação na caixa de diálogo Tamanho da Imagem ao Importar e selecione o tamanho pretendido.
• 

3. Após concluir as definições, clique no botão Importar. Na caixa de diálogo Correspondência de Importar Imagens que surge, escolha uma célula ou uma lista de células para indicar onde colocar as imagens. Veja a captura de ecrã:

4. Em seguida, clique em OK e todas as imagens cujos nomes correspondem aos valores das células serão inseridas. Veja a captura de ecrã:

Aplique o seguinte código VBA para inserir imagens com base numa lista de URLs.

2. Primeiro, ajuste o tamanho da célula adjacente onde pretende inserir as imagens.

2. Primeiro, ajuste o tamanho da célula adjacente onde pretende inserir as imagens. Em seguida, prima as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole a macro seguinte na janela do Módulo.

Código VBA: Inserir imagens a partir de uma lista de URLs

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Notas: No código acima, A2:A5 é o intervalo de células que contém os endereços URL das imagens que pretende extrair. Ajuste as referências das células conforme necessário.

4. Em seguida, prima a tecla F5 para executar este código. As imagens correspondentes serão extraídas dos URLs para a coluna adjacente e centradas nas respetivas células. Veja a captura de ecrã:

Kutools para Excel dispõe de uma funcionalidade extraordinária – Inserir Imagens a Partir do Caminho (URL). Com esta funcionalidade, as imagens correspondentes são extraídas dos URLs de forma rápida e fácil.

1. Clique em Kutools > Inserir > Inserir Imagens a partir do Caminho (URL). Veja a captura de ecrã:

2. Na caixa de diálogo Inserir Imagens a partir do Caminho (URL) que surge, configure as seguintes opções:

• Selecione a lista de células com URLs e o intervalo de células onde pretende colocar as imagens;
• Especifique o tamanho das imagens conforme necessário na secção Tamanho da Imagem.
• 

3. Em seguida, clique no botão Ok e todas as imagens terão sido extraídas dos URLs. Veja a captura de ecrã:

Pode aplicar o seguinte código VBA para inserir imagens com base no respetivo caminho do arquivo.

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.

Código VBA: Inserir Imagem a partir de um intervalo de Caminho do Arquivo

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Após inserir o código acima, prima a tecla F5 para executar este código. Surge uma caixa de diálogo; por favor, selecione as células do Caminho do Arquivo. Veja a captura de ecrã:

4. Em seguida, clique no botão OK e todas as imagens com base no Caminho do Arquivo serão apresentadas na coluna seguinte, conforme mostrado na captura de ecrã:

A funcionalidade Kutools para Excel’s Inserir Imagens a partir do Caminho (URL) também lhe permite apresentar as imagens correspondentes a partir do caminho do ficheiro.

1. Clique em Kutools > Inserir > Inserir Imagens a partir do Caminho (URL). Na caixa de diálogo que surge, especifique o intervalo dos caminhos dos ficheiros, o intervalo onde inserir as imagens e o tamanho das imagens, conforme necessário. Veja as capturas de ecrã:

2. Após configurar as opções, clique no botão Ok e as imagens serão inseridas de imediato nas células selecionadas. Veja a captura de ecrã:

Dicas: Por vezes, poderá reparar que a imagem se sobrepõe à área de dados da folha de cálculo, como mostra a captura de ecrã abaixo. Isto acontece porque a imagem é demasiado grande e não é redimensionada automaticamente para caber na caixa do cabeçalho ou do rodapé.

Para resolver este problema, basta redimensionar a imagem no cabeçalho ou rodapé. Siga os passos seguintes:

1. Clique na secção do cabeçalho ou rodapé onde se encontra a imagem e, em seguida, clique em Formatar Imagem no separador Estrutura. Veja a captura de ecrã:

2. Na caixa de diálogo Formatar Imagem, no separador Tamanho, ajuste o tamanho da imagem para que caiba na caixa do cabeçalho ou do rodapé. Veja a captura de ecrã:

3. Em seguida, clique em OK e obterá o resultado pretendido.

1. Abra a folha de cálculo onde pretende inserir uma imagem de fundo.

2. Em seguida, clique em Esquema da Página > Fundo. Veja a captura de ecrã:

3. Na janela Inserir Imagens que surge, selecione uma imagem do seu computador, de um site ou do OneDrive, conforme necessário. Veja a captura de ecrã:

4. Agora, a imagem foi inserida na folha de cálculo como fundo, tal como mostrado na captura de ecrã abaixo:

Com o método acima, não é possível alterar a transparência da imagem de fundo inserida. Assim, se a cor da imagem de fundo for intensa, tornar-se-á incómodo ler os dados da folha de cálculo. Nesta secção, explicarei como inserir uma imagem transparente atrás das células.

1. Clique em Inserir > Formas e selecione uma forma retangular. Veja a captura de ecrã:

2. Em seguida, desenhe uma forma com as dimensões pretendidas na folha de cálculo ativa.

3. Após desenhar a forma, o separador Ferramentas de Desenho é apresentado no Friso. Clique em Formatar > Contorno da Forma > Sem Contorno. Veja a captura de ecrã:

4. Em seguida, clique com o botão direito na forma e escolha Formatar Forma no menu de contexto. Veja a captura de ecrã:

5. No painel expandido Formatar Forma, sob o separador Preenchimento e Linha, realize as seguintes operações:

• Na secção Preenchimento, selecione a opção Preenchimento com imagem ou textura;
• Clique no botão Inserirna secção Origem da imagem, e escolha a imagem que pretende inserir;
• Depois, ajuste a transparência da imagem conforme necessário na secção Transparência.
• 

6. Em seguida, verá que a forma preenchida com imagens se assemelha a uma imagem de fundo, conforme mostrado na captura de ecrã acima.

Nota: Após inserir este tipo de imagem de fundo, não poderá introduzir texto na área da imagem.

Ambos os métodos acima têm as suas próprias limitações: o primeiro não permite ajustar a transparência da imagem e o segundo não permite inserir texto nas células dentro da área da imagem. Para resolver estes problemas, a funcionalidade Kutools para Excel’s Inserir Marca d'água pode ajudá-lo.

1. Clique em Kutools > Inserir > Inserir Marca d'água. Veja a captura de ecrã:

2. Na caixa de diálogo Inserir Marca d'água que surge, selecione Marca d'água de Imagem e, em seguida, clique no botão Selecionar Imagem para escolher a imagem que pretende inserir. Depois, especifique a escala da imagem e ative a opção Desbotar — veja a captura de ecrã:

3. Em seguida, clique no botão Ok e a imagem será inserida na folha de cálculo como fundo.

No Excel, pode utilizar a função Copiar como Imagem para copiar e inserir um intervalo de células como imagem.

1. Selecione o intervalo de células que pretende copiar e inserir como imagem.

2. Em seguida, clique em Base > Copiar > Copiar como Imagem. Veja a captura de ecrã:

3. Na caixa de diálogo Copiar Imagem que surge, selecione Imagem na secção Formato. Veja a captura de ecrã:

4. Em seguida, clique no botão OK e, de seguida, basta premir Ctrl + V para colar a imagem em qualquer local do livro.

No Excel, existe uma ferramenta Câmara que o pode ajudar a tirar uma “fotografia” dos seus dados selecionados e colá-la como imagem. Sempre que os dados originais forem alterados, a imagem copiada é atualizada dinamicamente.

Primeiro, deve exibir a ferramenta Câmara no Friso e, em seguida, utilizá-la.

1. Clique no ícone Personalizar Barra de Ferramentas de Acesso Rápido e, em seguida, clique na opção Mais Comandos. Veja a captura de ecrã:

2. Na caixa de diálogo Opções do Excel aberta, realize as seguintes operações:

• Selecione Todos os Comandosna lista pendente Escolher comandos de;
• Em seguida, percorra a lista e selecione Câmarana caixa de lista;
• Depois, clique no botão Adicionarpara adicionar esta ferramenta à Barra de Ferramentas de Acesso Rápido Personalizada;
• Por fim, clique em OK para fechar esta caixa de diálogo.
• 

3. E a ferramenta Câmara já está visível no Friso — veja a captura de ecrã:

4. Em seguida, selecione o intervalo de células do qual deseja obter uma imagem.

5. Em seguida, clique na ferramenta Câmara, vá até à folha de cálculo e clique em qualquer local; o intervalo de dados será inserido como uma imagem, conforme demonstrado abaixo:

Se tiver o Kutools para Excel, com a sua funcionalidade Biblioteca de Recursos, pode guardar os dados selecionados no painel Biblioteca de Recursos e, posteriormente, utilizá-los como imagem ou texto sempre que desejar.

1. Selecione o intervalo de dados que pretende inserir como imagem.

2. Em seguida, clique em Kutools > Navegação. Veja a captura de ecrã:

3. No painel expandido Navegação, clique no ícone Biblioteca de Recursos e, em seguida, clique no ícone Adicionar Conteúdo Selecionado ao AutoTexto. Veja a captura de ecrã:

4. Na caixa de diálogo Adicionar ao AutoTexto, especifique um nome para este item e selecione o grupo em que o pretende incluir. Veja a captura de ecrã:

5. Em seguida, clique no botão Adicionar para o adicionar ao painel Biblioteca de Recursos. Se pretender inserir este intervalo como imagem, basta clicar numa célula para posicionar a imagem e, em seguida, localizar o item guardado no painel Biblioteca de Recursos e clicar em Inserir como > Imagem (EMF) na lista pendente do item. O intervalo de dados será então inserido na folha como uma imagem. Veja as capturas de ecrã:

Normalmente, no Excel, pode criar um intervalo nomeado dinâmico e, em seguida, utilizar a imagem ligada para resolver esta tarefa no Excel.

1. Comece por criar duas colunas com os nomes dos produtos e as respetivas imagens — veja a captura de ecrã:

2. Em seguida, crie uma lista pendente com os valores das células. Clique numa célula para exibir a lista pendente e, depois, clique em Dados > Validação de Dados > Validação de Dados, conforme mostra a captura de ecrã:

3. Na caixa de diálogo Validação de Dados que surge, no separador Definições, escolha Lista na lista pendente Permitir e, em seguida, selecione as células a partir das quais pretende criar a lista pendente na caixa de texto Origem, conforme mostra a captura de ecrã:

4. Clique em OK e a lista pendente com os valores das células será criada. Selecione um item da lista pendente, conforme mostra a captura de ecrã:

5. Em seguida, clique em Fórmulas > Definir Nome, conforme mostra a captura de ecrã:

6. Na caixa de diálogo Novo Nome, realize as seguintes operações:

• Introduza um nome chamado myimage na caixa de texto Nome;
• Depois, copie e cole esta fórmula:=ÍNDICE(Folha11!$A$2:$B$6;CORRESP(Folha11!$E$2;Folha11!$A$2:$A$6;0);2)na caixa de texto Referência.

  

  Nota: Na fórmula acima:

  • Sheet11!$A$2:$B$6: é a folha de cálculo e o intervalo que contêm os valores e as imagens que pretende utilizar;
  • Sheet11!$E$2: é a célula na folha de cálculo onde criou a lista pendente;
  • Sheet11!$A$2:$A$6: é a lista de células com base na qual criou a lista pendente;
  • O número variável 2 corresponde à coluna que contém as imagens. Se as suas imagens estiverem na coluna C, introduza 3.

7. Em seguida, clique no botão OK e copie e cole a imagem correspondente — com base no valor da célula E2, a partir do intervalo original — para a célula F2, conforme mostra a captura de ecrã:

8. De seguida, selecione a imagem na célula F2 e introduza a fórmula =myimage (myimage é o nome da célula que criou no passo 6) na Barra de Fórmulas, conforme mostra a captura de ecrã:

9. Após introduzir a fórmula e premir a tecla Enter, ao selecionar um item da lista pendente, a respetiva imagem será apresentada imediatamente. Consulte a captura de ecrã:

O método acima poderá ser complicado para a maioria de nós. Por isso, apresentamos uma funcionalidade prática – a Lista Suspensa de Imagens do Kutools para Excel, que lhe permite criar várias listas pendentes com as respetivas imagens em apenas alguns cliques.

1. Comece por criar duas colunas na sua folha de cálculo: uma com os nomes dos produtos e outra com as respetivas imagens.

2. Em seguida, clique em Kutools > Lista suspensa > Lista Suspensa de Imagens, conforme mostra a captura de ecrã:

3. Na caixa de diálogo Lista Suspensa de Imagens, se já tiver criado as colunas com os valores das células e as imagens, ignore o passo 1. Em seguida, selecione o intervalo original de dados e imagens e a área de colocação da lista, conforme mostra a captura de ecrã:

4. Em seguida, clique no botão Ok e as listas pendentes com imagens serão criadas nas células selecionadas. Ao selecionar um item na lista pendente, a respetiva imagem aparece imediatamente, conforme demonstrado abaixo:

Normalmente, pode utilizar a funcionalidade Guardar Como para guardar todas as imagens do livro. Siga estes passos:

1. Clique em Ficheiro > Guardar Como. Na janela Guardar Como, especifique uma pasta para guardar os ficheiros exportados e, em seguida, selecione Página da Web (*.htm; *.html) na lista pendente Tipo de ficheiro, conforme mostra a captura de ecrã:

2. Em seguida, clique no botão Guardar. Aceda à pasta especificada e encontrará dois ficheiros: um é o ficheiro em formato HTML e o outro é uma pasta que contém as imagens, gráficos ou outros objetos do livro. Veja a captura de ecrã:

3. Depois, pode arrastar apenas as imagens para outra pasta, conforme necessário.

Nota: Ao utilizar esta funcionalidade Guardar Como, obtém cada imagem duas vezes — uma versão mais pequena e outra maior — podendo assim guardar as imagens com resolução mais elevada, conforme necessário.

Para guardar todas as imagens de um ficheiro do Excel, também pode alterar a extensão do ficheiro para RAR. Proceda da seguinte forma:

1. Altere a extensão do ficheiro xlsx para rar, conforme mostra a captura de ecrã:

2. Em seguida, descomprima o ficheiro e encontrará 3 pastas e 1 ficheiro na pasta, conforme mostra a captura de ecrã:

3. Em seguida, clique para abrir a pasta xl e, depois, abra a pasta media. Verá que todas as imagens estão armazenadas aqui sem duplicados, conforme mostra a captura de ecrã:

Se tiver o Kutools para Excel, com a sua funcionalidade Exportar Gráfico, pode exportar rapidamente objetos específicos — como imagens, gráficos ou formas — diretamente para o formato de imagem pretendido.

1. Clique em KUTOOLS PLUS > Importar/Exportar > Exportar Gráfico, conforme mostra a captura de ecrã:

2. Na caixa de diálogo Exportar Gráfico, realize as seguintes operações:

• Escolha a opção Imagensna lista pendente Tipos;
• Especifique uma pasta para guardar as suas imagens exportadas;
• Depois, clique na lista pendente em Formato de exportação para escolher um formato para as suas imagens.
• 

3. Por fim, clique no botão Ok e todas as imagens do Livro de Trabalho Atual serão guardadas na pasta que especificou, conforme mostra a captura de ecrã:

Para eliminar as imagens do Planilha Atual, o código VBA abaixo pode ajudá-lo. Proceda da seguinte forma:

1. Ative a folha de cálculo que contém as imagens que pretende remover.

2. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

3. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.

Código VBA: Eliminar todas as imagens do Planilha Atual

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4. Em seguida, prima a tecla F5 para executar este código e todas as imagens na folha de cálculo ativa serão eliminadas de imediato.

Se precisar de eliminar as imagens apenas de um intervalo de células, aqui está outro código simples que o pode ajudar.

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.

Código VBA: Eliminar as imagens de um intervalo de células

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Nota: No código acima, B4:C6 é o intervalo do qual pretende eliminar as imagens.

3. Em seguida, prima a tecla F5 para executar este código e as imagens no intervalo selecionado serão eliminadas de imediato. Veja as capturas de ecrã:

Se tiver o Kutools para Excel, com a sua funcionalidade Excluir Imagens e Objetos, poderá eliminar rapidamente as imagens de uma folha de cálculo, de algumas planilhas selecionadas ou de toda a pasta de trabalho.

1. Clique em Kutools > Eliminar > Excluir Imagens e Objetos. Veja a captura de ecrã:

2. Na caixa de diálogo Excluir Imagens e Objetos aberta, marque a opção Imagens na secção Eliminar e especifique, de seguida, o âmbito em que pretende eliminar as imagens na secção Procurar em. Veja a captura de ecrã:

3. Em seguida, clique no botão OK e todas as imagens serão removidas da folha de cálculo, das planilhas selecionadas ou de toda a pasta de trabalho, conforme especificado.