none
Macro sobre Imagem RRS feed

  • Pergunta

  • Quando rodei esta macro deu o seguinte erro em tempo de execução424, objeto é obrigatorio. na Macro abaixo deixado por uma amigo do forum.

    Sub ImagemFormulárioEfetividadedaSegurança()

      Dim rng1 As Range
      Dim ws1 As Worksheet
      Dim cht1 As ChartObject
      
      Set ws1 = ActiveSheet
      
      'Copia range como imagem para Área de Transferência
      With ws1
        Set rng1 = Sheets("plan1").Range("A5:c23")
        rng1.CopyPicture xlScreen, xlBitmap
      End With
      
      'Cria gráfico, cola figura dentro, salva gráfico como imagem e apaga tudo
      Set cht1 = Sheets("plan1").ChartObjects.Add(0, 0, rng1.Width, rng1.Height)
      With cht1
       .Chart.Paste
       .Chart.Export ThisWorkbook.Path & "\imgtemp3.gif"
       .Delete
      End With
      
      'Chama o formulário. Note que a imagem no caminho especificado foi atualizada
      'O formulário deverá ter um controle Picture que referenciará à imagem no caminho acima.
      
    End Sub

     Private Sub UserForm_Initialize()
    Call ImagemFormulárioEfetividadedaSegurança
        Image2.Picture = LoadPicture(ThisWorkbook.Path & "\imgtemp3.gif")
    End Sub

    sexta-feira, 3 de agosto de 2012 03:04

Todas as Respostas

  • "deixado por uma amigo do forum." - Qual o link da postagem original?

    Onde você obtém erro na macro? Em qual linha o erro é acusado?


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

    terça-feira, 7 de agosto de 2012 00:33
    Moderador