- 03 Set 2015 às 10:51
#2742
Bom dia pessoal, tudo bem??
Estou com esse problema um tempo e não estou conseguindo resolver.
O meu problema é o seguinte eu tenho várias imagens e cada imagem contém sua descrição e essa descrição mudou, e eu preciso mudar de todas de forma automatizada, como no exemplo abaixo
Se alguém não entendeu me mande a mensagem que eu tento explicar melhor
Aguardo ajuda, abraços!
Estou com esse problema um tempo e não estou conseguindo resolver.
O meu problema é o seguinte eu tenho várias imagens e cada imagem contém sua descrição e essa descrição mudou, e eu preciso mudar de todas de forma automatizada, como no exemplo abaixo
Código: Selecionar todos
o problema é que fiz um for e quando acaba minhas imagens ele dá um erro dizendo que a imagem não existe e eu gostaria de saber como eu faço para fazer de alguma forma que eu consiga saber se existe ou não a imagem?Dim aux As String
Dim i As Integer
For i = 2 To 30
aux = CStr(i)
ActiveSheet.Shapes.Range(Array("Picture " + aux)).Select
If Selection.ShapeRange.AlternativeText = "Comparando com a descrição antiga" Then
Selection.ShapeRange.AlternativeText = "Trocando para a descrição nova"
ElseIf Selection.ShapeRange.AlternativeText = "Comparando com a descrição antiga" Then
Selection.ShapeRange.AlternativeText = "Trocando para a descrição nova"
End If
Next i
Se alguém não entendeu me mande a mensagem que eu tento explicar melhor
Aguardo ajuda, abraços!