none
Rotacionar uma figura RRS feed

  • Pergunta

  • Bom dia!

    Não estou conseguindo girar uma figura. O que penso é fazer um Loading, já sei que tenho que fazer um loop para a imagem ficar rodando, porém primeiro preciso saber como fazer ela girar.

    obrigado!

    sábado, 25 de fevereiro de 2012 13:22

Respostas

  • Sua imagem está em um UserForm ou em alguma Planilha?

    Caso seja na planilha dê uma olhada nesse código que irá te auxiliar.

    Sub Rotacao()
    
        For i = 1 To 10
        
            newHour = Hour(Now())
            newMinute = Minute(Now())
            newSecond = Second(Now()) + 1
            waitTime = TimeSerial(newHour, newMinute, newSecond)
            Application.Wait waitTime
            Selection.ShapeRange.IncrementRotation 15.35
        
        Next i
    
    End Sub
    

    obs.: antes de executar o código deixe sua imagem selecionada.

    sábado, 25 de fevereiro de 2012 18:00