Como Adicionar Texto Alternativo em Lote a Todas as Imagens do PowerPoint com VBA

Adicionar texto alternativo (alt text) a cada imagem em uma apresentação do PowerPoint melhora a acessibilidade para usuários de leitores de tela. Fazer isso manualmente para dezenas ou centenas de slides leva muito tempo. Você pode usar uma macro VBA (Visual Basic for Applications) para adicionar alt text a todas as imagens de uma vez. Este artigo explica como criar e executar uma macro VBA que insere um texto alternativo padrão em cada imagem da sua apresentação.

O que a Macro VBA Faz para o Texto Alternativo

A macro percorre todos os slides da apresentação ativa. Em cada slide, verifica cada forma para saber se é uma imagem. Se a forma for uma imagem e o campo de alt text estiver vazio, a macro escreve um texto alternativo padrão. Você pode editar o texto padrão no código para atender à política de acessibilidade da sua organização.

Antes de executar a macro, salve sua apresentação. A macro altera o arquivo da apresentação. Se você cometer um erro, pode fechar o arquivo sem salvar e reabrir o original. Nenhum complemento ou download externo é necessário. O VBA já está incluído no PowerPoint para Windows.

Passos para Adicionar Texto Alternativo em Lote a Todas as Imagens do PowerPoint com VBA

Siga estes passos para criar e executar uma macro VBA que adiciona alt text a cada imagem da sua apresentação.

1. Abra o editor VBA
   No PowerPoint, pressione Alt + F11 no teclado. A janela do Microsoft Visual Basic for Applications será aberta.
2. Insira um novo módulo
   Na barra de menus do editor VBA, clique em Insert e depois em Module. Uma janela de código em branco aparecerá.
3. Cole o código da macro
   Copie o código a seguir e cole na janela do módulo em branco:

   Sub BulkAddAltText()
       Dim sld As Slide
       Dim shp As Shape
       Dim altText As String
       
       altText = "Imagem decorativa"
       
       For Each sld In ActivePresentation.Slides
           For Each shp In sld.Shapes
               If shp.Type = msoPicture Then
                   If shp.AlternativeText = "" Then
                       shp.AlternativeText = altText
                   End If
               End If
           Next shp
       Next sld
       
       MsgBox "Texto alternativo adicionado a todas as imagens."
   End Sub
   

4. Edite o texto alternativo padrão (opcional)
   Na linha altText = "Imagem decorativa", substitua o texto entre aspas pelo texto alternativo desejado. Por exemplo: altText = "Foto de demonstração do produto"
5. Execute a macro
   Pressione Alt + F8 para abrir a caixa de diálogo Macro. Selecione BulkAddAltText na lista. Clique em Run. Uma caixa de mensagem confirmará que o alt text foi adicionado.
6. Verifique o texto alternativo
   Clique com o botão direito em qualquer imagem da sua apresentação. Selecione Formatar Imagem. No painel Formatar Imagem, clique em Tamanho e Propriedades (o ícone com um quadrado e setas). Expanda Texto Alternativo. O texto definido aparecerá no campo Descrição.

Como Modificar a Macro para Pular Imagens com Texto Alternativo Existente

O código acima verifica If shp.AlternativeText = "" antes de escrever. Isso significa que imagens que já possuem alt text não serão sobrescritas. Se você quiser sobrescrever todo o alt text independentemente, remova as linhas If e End If ao redor da atribuição.

Como Adicionar Texto Alternativo Único por Imagem

A macro deste artigo define o mesmo texto alternativo para todas as imagens. Para adicionar texto alternativo único, você precisa de uma abordagem diferente. Você pode escrever uma macro que leia o nome do arquivo de cada imagem inserida e use o nome do arquivo como alt text. Alternativamente, você pode percorrer as imagens e solicitar ao usuário que insira o alt text para cada uma. A macro básica acima é o método mais rápido para adicionar em lote uma string de texto alternativo consistente.

Problemas Comuns ao Usar a Macro VBA

Erro: “A macro não pode ser encontrada ou foi desabilitada”

Esse erro ocorre quando a apresentação é salva como arquivo .pptx após a adição da macro. O formato .pptx não armazena macros. Para corrigir, salve a apresentação como Apresentação do PowerPoint Habilitada para Macro com a extensão .pptm. Vá em Arquivo > Salvar Como e escolha Apresentação do PowerPoint Habilitada para Macro na lista de tipos de arquivo.

A macro não faz nada e nenhum erro aparece

A macro é executada, mas nenhum alt text é adicionado. Isso geralmente significa que as formas não são reconhecidas como imagens. Algumas imagens são inseridas como imagens vinculadas ou como objetos OLE. Imagens vinculadas têm shp.Type = msoLinkedPicture. Objetos OLE têm um tipo diferente. Para lidar com imagens vinculadas, altere If shp.Type = msoPicture Then para If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then.

O texto alternativo aparece no campo Título em vez do campo Descrição

A propriedade shp.AlternativeText escreve no campo Descrição no painel Texto Alternativo. Se você quiser escrever no campo Título, use shp.Title em vez disso. Leitores de tela geralmente leem o campo Descrição primeiro. É uma boa prática usar o campo Descrição para texto alternativo significativo.

Comparação: Texto Alternativo em Lote com VBA vs. Manual

Item	Macro VBA	Inserção Manual
Tempo para 100 imagens	Menos de 5 segundos	15 a 30 minutos
Exclusividade do alt text	Mesmo texto para todas as imagens, a menos que modificado	Pode escrever texto único para cada imagem
Risco de erros	Baixo se o código estiver correto	Alto devido à digitação repetitiva
Requer arquivo habilitado para macro	Sim, formato .pptm	Não, qualquer formato de arquivo funciona
Conformidade com acessibilidade	Consistente, mas pode precisar de revisão	Pode atender exatamente às diretrizes WCAG

Agora você pode usar VBA para adicionar texto alternativo a todas as imagens de uma apresentação do PowerPoint em segundos. A macro economiza tempo em decks grandes e garante que nenhuma imagem fique sem alt text. Para cenários mais avançados, modifique a macro para ler nomes de arquivos de imagem ou solicitar texto personalizado por slide. Sempre teste a macro em uma cópia da sua apresentação primeiro.