VBA para inserir legendas em imagens no Word
Enviado: 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
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