Página 1 de 1
Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 10:51
por guilhermeSchuwarten
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
Código: Selecionar todosDim 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
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?
Se alguém não entendeu me mande a mensagem que eu tento explicar melhor
Aguardo ajuda, abraços!
Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 10:56
por Vidal
puxa...acabei de deletar um video aqui que tinha uma aula interessante sobre isso... vou ver se encontro e... se der por aqui eu anexo e envio, ok?! ou então vejo se encontro de novo na net e posto o link pra vc...apenas aguarde um pouco!

Re: Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 11:03
por guilhermeSchuwarten
Vidal escreveu:puxa...acabei de deletar um video aqui que tinha uma aula interessante sobre isso... vou ver se encontro e... se der por aqui eu anexo e envio, ok?! ou então vejo se encontro de novo na net e posto o link pra vc...apenas aguarde um pouco! 
Valeu hahahaah

Re: Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 11:33
por Vidal
Pronto, meu amigo! Já encontrei a vídeo aula e agora vou tentar anexar aqui na mensagem pra vc.. caso não dê certo, vá até o
www.youtube.com e procure por:
Como trocar um texto por uma imagem usando Validação do Microsoft Excel
...é o título do vídeo, ok?!
Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 11:35
por Vidal
Amigo.. não consegui anexar o vídeo aqui. mas tudo bem.. conforme eu disse.. basta vc ir no youtube e procurar por usando aquele título ali que eu postei pra vc na msg anterior:
Como trocar um texto por uma imagem usando Validação do Microsoft Excel
Re: Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 11:52
por guilhermeSchuwarten
Vidal escreveu:Amigo.. não consegui anexar o vídeo aqui. mas tudo bem.. conforme eu disse.. basta vc ir no youtube e procurar por usando aquele título ali que eu postei pra vc na msg anterior:
Como trocar um texto por uma imagem usando Validação do Microsoft Excel
Vidal não tem como você colocar a url aqui?
Abraços!
Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 11:55
por Vidal
Aqui no computador do trabalho não tenho acesso ao youtube, amigo... mas faça vc mesmo... vá até
www.youtube.com
lá vc terá um campo pra executar procura dentro do youtube.. aí vc copia aquele texto que te passei:
Como trocar um texto por uma imagem usando Validação do Microsoft Excel
esse é o texto.. que tbm é o título do vídeo! Faça isso...
Re: Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 12:02
por guilhermeSchuwarten
Vidal escreveu:Aqui no computador do trabalho não tenho acesso ao youtube, amigo... mas faça vc mesmo... vá até http://www.youtube.com
lá vc terá um campo pra executar procura dentro do youtube.. aí vc copia aquele texto que te passei:
Como trocar um texto por uma imagem usando Validação do Microsoft Excel
esse é o texto.. que tbm é o título do vídeo! Faça isso...
Beleza, consegui achar o vídeo vou assistir!
Abraços!
Re: Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 14:02
por guilhermeSchuwarten
Vidal gostei do vídeo, mas não é isso que eu queria eu tenho esse código:
Private Sub CommandButton1_Click()
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 = "Descrição antiga" Then
Selection.ShapeRange.AlternativeText = "Descrição nova"
End If
Next i
End Sub
o problema é que eu fiz um for para percorrer minha lista de imagens com esse código:
ActiveSheet.Shapes.Range(Array("Picture " + aux)).Select
repare que o aux é uma variável que vai mudando para eu percorrer todas as imagens só que se eu tento acessar por exemplo a Picture 30 e não existe o nome dessa imagem ele dá um erro e eu gostaria de saber como pegar a lista de todas as imagens para eu saber até quanto tem que ir meu for.
Estou colocando o meu imagem para você dar uma olhada.
Se você quiser me avisa que te mando o excel.
Aguardo respostas,
Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 14:26
por Vidal
Desculpe, meu amigo! em VBA eu não poderei te ajudar... ao menos por enquanto. Eu consigo resolver muitas coisas criando fórmulas.. amo isso.. mas fazia isso diretamente nas células... com VBA eu iniciei o aprendizado a pouco tempo .. estou assistindo vídeos do Leannder que foram disponibilizados no youtube e tbm uma matéria muito interessante que o AlexandreVBA disponibilizou para mim.. estou aprendendo bastante e curtindo muito... mas não poderei ainda te ajudar. Creio que os próprios Leannder e AlexandreVBA sejam os caras mais qualificados para ajudá-lo neste quesito, ok?!
Forte abraço e tenha uma ótima tarde!
Utilizando Imagens no Excel
Enviado: 03 Set 2015 às 15:05
por guilhermeSchuwarten
Alguém pode me ajudar em relação a essa dúvida?
Abraços!
Re: Utilizando Imagens no Excel
Enviado: 08 Set 2015 às 11:39
por guilhermeSchuwarten
Alguém pode me ajudar em relação a essa dúvida?
Abraços!