Ir para o conteúdo
Luxo

Rodar imagem

Mensagens Recomendadas

charlie69    0
charlie69

A forma mais fácil para isso será gravares uma macro no excel e veres o código de como rodar x graus.... a partir dai é só alterares o código para como quiseres.

No entanto será algo assim:


Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) = "valor que queres" Then
    ActiveSheet.Shapes("Nome da picturr").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 77.25
    Selection.ShapeRange.Width = 163.5
    Selection.ShapeRange.Rotation = 90#
End If
End Sub

isto para ser alterado automaticamente quando digitares em determinada célula o valor que predeterminares.

Se precisares de ajuda diz qq coisa

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jmaocubo    0
jmaocubo

A forma mais fácil para isso será gravares uma macro no excel e veres o código de como rodar x graus.... a partir dai é só alterares o código para como quiseres.

No entanto será algo assim:


Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) = "valor que queres" Then
    ActiveSheet.Shapes("Nome da picturr").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 77.25
    Selection.ShapeRange.Width = 163.5
    Selection.ShapeRange.Rotation = 90#
End If
End Sub

isto para ser alterado automaticamente quando digitares em determinada célula o valor que predeterminares.

Se precisares de ajuda diz qq coisa

Podes também definir desta forma

Sub Rotate_PIC()
Dim TheAngle As Double
    TheAngle = Cells(7, 3)
    
    ActiveSheet.Shapes("Nome da picturr").Select
    Selection.ShapeRange.IncrementRotation TheAngle#
    Cells(1, 1).Select

End Sub

Sendo a introdução do ângulo na célula C7

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade