none
Alterar tamanho da imagem na planilha RRS feed

  • Pergunta

  • 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.
    • Editado MauroMeira terça-feira, 4 de outubro de 2011 16:19
    terça-feira, 4 de outubro de 2011 16:19

Respostas

  •  

    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

    • Marcado como Resposta MauroMeira terça-feira, 4 de outubro de 2011 19:52
    terça-feira, 4 de outubro de 2011 18:12

Todas as Respostas

  •  

    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

    • Marcado como Resposta MauroMeira terça-feira, 4 de outubro de 2011 19:52
    terça-feira, 4 de outubro de 2011 18:12
  • Jhonatan, boa tarde

     

    Resoveu meu problema, obrigado.

     

    Abraço

    Mauro

    terça-feira, 4 de outubro de 2011 19:53