Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

VBA para inserir legendas em imagens no Word

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Alexandre Moroni
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Sex Set 14, 2018 11:05 am

VBA para inserir legendas em imagens no Word

Mensagem por Alexandre Moroni » Sex Set 14, 2018 11:58 am

Bom dia. Sou novo nesse Fórum.

Preciso de uma VBA que insira as legendas de imagens no Word de forma automática. Consegui baixar uma na internet. Mas o problema está que quando inserido mais alguma imagem e mando executar essa VBA ela duplica as legendas.

Se alguém puder me ajudar.

Essa é a VBA.


' Macro que insere uma legenda sequencial em todas as imagens do documento

Sub Inserir_Legendas()

Dim objPic As InlineShape
For Each objPic In ActiveDocument.InlineShapes
objPic.Select
CaptionLabels.Add "Figura"
Selection.InsertCaption Label:="Figura", TitleAutoText:="", Title:="", _
Position:=wdCaptionPositionBelow + 1, ExcludeLabel:=0
Next objPic
End Sub



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder