Ir ao conteúdo
  • Cadastre-se
Vinicius Passsos

Word Apagar ou colar desenhos no word via VBA

Recommended Posts

Olá pessoal, 

 

A situação é aparentemente simples: 

 

Suponha que eu tenha um arquivo com estas 3 imagens, como o anexo. Como eu faço via VBA para apagá-las do word.

 

Sendo mais específico: Eu quero poder, dependendo das condições do VBA, apagar a figura correspondente: 

por exemplo

 

se a=1 apagar a imagem 1

se a=2 apagar a imagem 2

se a=3 apagar a imagem 3

 

Será que vocês conseguem me ajudar nisso?

 

 

O caminho inverso também serve:

 

se a = 1 cola a imagem 1

se a = 2 cola a imagem 2

se a = 3 cola a imagem 3

-------esse caminho é ainda melhor e mais adequado embora pareça ser o mais difícil

 

Qualquer ajuda serei grato

 

 

 

 

 

teste forum.docx

Compartilhar este post


Link para o post
Compartilhar em outros sites

Segue exemplo 

 

Sub Remove_Especifica_imagem()
    Dim Pic     As InlineShape
    Dim a       As String
    Dim num     As String
    Dim divList As Variant
    Dim ttImg   As String
    
    ttImg = ActiveDocument.InlineShapes.Count
    
    num = vba.InputBox("informe o numero da imagem que quer deletar", "Removendo Imagens", "De 1 a " & ttImg)
    
    If num = "" Then Exit Sub
    
    For Each Pic In ActiveDocument.InlineShapes
        
        divList = VBA.Split(Pic.AlternativeText, "\")
        a = divList(UBound(divList, 1))
        If Vba.InStr(a, num) > 0 Then
            Pic.Delete
        End If
        
    Next Pic
    
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×