Como converter todas as imagens vinculadas em incorporadas num documento do Word?
Quando envia um documento do Word com imagens ligadas, estas desaparecem no computador do destinatário, aparecendo conforme ilustrado na imagem seguinte. Como converter todas as imagens ligadas em incorporadas de uma só vez antes de enviar o documento? Este artigo apresenta um método VBA para resolver este problema.

Converter imagens ligadas em incorporadas com código VBA
Converter imagens ligadas em incorporadas com código VBA
Aplique o código VBA abaixo para converter todas as imagens vinculadas num documento em imagens incorporadas.
1. Abra o documento do Word que contém as imagens ligadas que pretende converter em imagens incorporadas. Prima as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela do Módulo. Veja a imagem:

Código VBA: Converter todas as imagens ligadas em incorporadas de uma só vez
Sub convert_all_inline_shapes()
'Updated by Extendoffice 20180906
Dim xIShape As InlineShape
For Each xIShape In ActiveDocument.InlineShapes
With xIShape
If .Type = wdInlineShapeLinkedPicture Then
.LinkFormat.SavePictureWithDocument = True
.LinkFormat.BreakLink
End If
End With
Next
End Sub 3. Prima a tecla F5 para executar o código.
Todas as imagens vinculadas no Documento Atual são convertidas simultaneamente em imagens incorporadas.
As Melhores Ferramentas de Produtividade para o Office
Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!
🤖Funcionalidades do KUTOOLS AI: Assistente de IA / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA…
📘Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Vários Formatos (PDF, TXT, DOC, HTML...) / Conversão em Lote para PDF...
✏Edição de Conteúdos: Localizar e Substituir em Lote em Múltiplos Ficheiros / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela em Texto...
🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...
➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...
🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......
⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...
🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Office Tab– Traz a interface com separadores para o Office, tornando 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 múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!
✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!
Inclui Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint
📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade
As Melhores Ferramentas de Produtividade para o Office
Kutools para Word– Ferramentas 100+ para o Word
- 🤖KUTOOLS AI Funcionalidades:Assistente de IA/Assistente em Tempo Real/Super Polir/Super Traduzir/Redação por IA/Revisão por IA
- 📘Domínio de Documentos:Dividir Páginas/Mesclar Documentos/Conversão em Lote para PDF
- ✏Edição de Conteúdos:Localizar e Substituir em Lote/Redimensionar Todas as Imagens
- 🧹Limpeza sem Esforço:Remover Espaços Extra/Remover Quebra de Seção
- ➕Inserções Criativas:Inserir Separadores de Milhares/Inserir Caixa de Seleção/Criar Códigos QR
- 🌍Suporta mais de 40 idiomas: O Kutools fala a sua língua – com suporte a mais de 40 idiomas!