Notifications
Clear all

Girar Imagem

10 Posts
2 Usuários
0 Reactions
3,969 Visualizações
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

boa tarde

Gostaria de inserir uma imagem dentro de um ControlImages, a imagem tem o tamanho exato só que na vertical e o controle imagem está deitado na horizontal. é possível girar a imagem 90º para a esquerda antes de inseri-lá .

Obrigado.

 
Postado : 26/09/2014 10:39 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Você que esse processo de girar a imagem seja feito via VBA?

Se não seu poste não tem nenhuma relação com excel e VBA!

Att

 
Postado : 26/09/2014 11:56 am
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

sim estou fazendo através de vba. tenho uma rotina que seleciona uma imagem aleatória e insere no ControlImages e eu queria rotacionar a imagem antes de inserir.

 
Postado : 26/09/2014 12:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu não sei se vou conseguir te ajuda, pois eu ainda não entendi muito bem...

Vou postar um modelo, criado por um MVP cujo objetivo é alterar a direção (rotação) de uma imagem.

Via VBA tem uma função UDF...verifique o raciocínio e tente adaptar.

Att

 
Postado : 26/09/2014 1:40 pm
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

Alexandre a minha rotina que inseri a imagem é a seguinte:

For LIN = 1 To QUANT_SORT
         
         i = i + 1
        
        '.Rotation = 90#
        Me.Controls("Image" & iControlImages).Picture = LoadPicture(ThisWorkbook.Path & "Rider-Waite" & V(i) & ".jpg")
        
        
        iControlImages = iControlImages + 1
        
        
        T(C) = V(i)
        C = C + 1
    
    Next

No caso das variavel iControlImages2 e iControlImages12 eles estão deitados para as imagens ficarem corretas precisaria girar ela em 90º graus.

 
Postado : 26/09/2014 1:55 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Cara use o comando...ShapeRange.IncrementRotation ou ShapeRange.Rotation = 90....

ActiveSheet.Shapes("Picture 2").Select 
    Selection.ShapeRange.IncrementRotation 90# 

Att

 
Postado : 26/09/2014 2:12 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Veja se te ajuda em alguma coisa...
http://usuariosdoexcel.forumeiros.com/t ... uma-imagem

Att

 
Postado : 27/09/2014 7:26 am
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

Segue em anexo minha planilha, o que eu quero fazer é trazer a imagem de uma pasta para um controleimagem. a imagem não entra na planilha. o problema é o contoleimagem "Imagem 2" e o controle imagem "imagem 12" que estão na horizontal e eu queria deitar a imagem.

.

 
Postado : 30/09/2014 4:56 am
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

Pessoal alguém sabe se isso é possível ???

 
Postado : 01/10/2014 1:34 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não sei nas versões mais atuais isto é possível diretamente no Controle, mas de uma olhada no exemplo abaixo, é uma solução paliativa.

Este exemplo foi montado com a dica do site abaixo:
Fonte:
Rotate a saved image with vba

http://stackoverflow.com/questions/2100 ... e-with-vba

Girar Figura 90° em Controle Image

Se pesquisar no Google por: rotation control image excel vba , encontrara varias outras dicas, mas não cheguei a ver nenhuma com rotação direta.

[]s

 
Postado : 01/10/2014 5:45 pm