• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Luxo

Rodar imagem

3 mensagens neste tópico

Algém sabe como fazer um macro para rodar uma imagem em Excel?queria rodar uma imagem consuante o valor de uma celula.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

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