Girar uma imagem

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Girar uma imagem

Mensagem por alexandrevba em Sex Out 11, 2013 1:05 pm

Boa tarde!!

Como girar uma imagem
Código:
Sub GirarImagem()
  Dim shp As Shape
  Dim spin As Long
  Dim i As Long        'indice do loop
  Dim start As Single  'tempo inicial
  Set shp = Sheets("Plan1").Shapes("Retângulo 1")
  'faz a rotação
  Randomize
  spin = Application.Ceiling(Int(720 * Rnd + 1), 10) 'multiplo de 10
  For i = 1 To spin Step 10
      'para o efeito da animação
      start = Timer
      Do While Timer < start + 0.1
        DoEvents
      Loop
      'gira a figura
      shp.Rotation = i
  Next
  Set shp = Nothing
End Sub
Laughing 

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum