Alterar tamanho da imagem na planilha

Question

Boa Tarde a Todos

Caros amigos internautas, é possível uma função em um botão que altere o tamanho de uma figura ou imagem que ja esta na planilha, tipo, apertar o botão e a figura aumente o tamanho.

Agradeço desde ja.

Answer 1

 

Esse exemplo seleciona um retangulo e modifica

o tamanho de acordo com o botão selecionado.

att.

Private Sub CmdAumenta_Click()
   
    'seleciona objeto
    ActiveSheet.Shapes("Rectangle 1").Select
    'aumenta largura
    Selection.ShapeRange.Width = Selection.ShapeRange.Width + 20
    'aumenta altura
    Selection.ShapeRange.Height = Selection.ShapeRange.Height + 20
   
    Range("a1").Select

End Sub

Private Sub CmdDiminui_Click()

    'seleciona objeto
    ActiveSheet.Shapes("Rectangle 1").Select
        'diminui largura
    Selection.ShapeRange.Width = Selection.ShapeRange.Width - 20
        'diminui altura
    Selection.ShapeRange.Height = Selection.ShapeRange.Height - 20
   
    Range("a1").Select

End Sub

Answer 2

Jhonatan, boa tarde

 

Resoveu meu problema, obrigado.

 

Abraço

Mauro