none
Excel VBA, Redimensionar uma imagem RRS feed

  • Pergunta

  • Eu fiz o seguinte código:

    Private Sub CommandButton1_Click()

    Dim Imagem As Variant


    Imagem = Application.GetOpenFilename("Picture Files (*.jpg; *.bmp; *.tif; *.gif), *.jpg;*.bmp;*.tif;*.gif")

    InsertPictureInRange Imagem, Range("A24")

    'ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.ShapeRange.Height = 164
    Selection.ShapeRange.Width = 204



    End Sub
    O problema é que nem sempre o nome da figura é Picture 1..

    Na verdade eu queria um código pra carregar uma imagem e coloca-la em uma célula com uma tamanho que eu quero..

    desde ja agradeço....

    segunda-feira, 3 de setembro de 2012 21:47

Todas as Respostas

  • Poste o código completo. O que há no subprocedimento InsertPictureInRange?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 3 de setembro de 2012 22:52
    Moderador