Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo

guibean

Participante
  • Postagens

    5
  • Desde

  • Última visita

  1. Tenho o seguinte macro para inserir imagem no excel: Sub Insere() Dim Pict Dim ImgFileFormat As String Dim PictCell As Range Dim Ans As Integer 'ActiveSheet.Protect True, True, True, True, True ImgFileFormat = "Image Files gif (*.gif),*.wmf,(*.bmp),others , jpg (*.jpg),*.jpg" GetPict: Pict = Application.GetOpenFilename(ImgFileFormat) If Pict = False Then End ActiveSheet.Pictures.Insert(Pict).Select Selection.ShapeRange.IncrementLeft -22.5 Selection.ShapeRange.IncrementTop -197.25 End Sub Esse macro insere a imagem a -22.5 pra esquerda e -197.25 do topo da célula que você selecionou. Mas o que eu gostaria mesmo é que a macro inserisse a imagem desejada exatamente na célula que eu quero, independentemente da célula selecionada. Teria que conter no código acima a célula que eu quero ex: célula B12 ou E15. Queria também definir o tamanho da imagem inserida, podendo colocar qualquer tamanho desejado. Obrigado
×
×
  • Criar Novo...