none
Criar imagem Excel RRS feed

  • Pergunta

  • Olá de novo...

    Seguinte.... Criar imagem no excel até que sei... Segue um codigo pode ser util a alguem....

    No Módulo...

    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("Efetividade").Range("A5:M23")
        rng1.CopyPicture xlScreen, xlBitmap
      End With
     
      'Cria gráfico, cola figura dentro, salva gráfico como imagem e apaga tudo
      Set cht1 = Sheets("Efetividade").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

     

    No Form

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

     

    Então... eu queria criar esta imagem... já com a propriedade ("Oculta...") Tem como?

    terça-feira, 1 de março de 2011 13:59

Respostas

Todas as Respostas

  • Palestino,

    Pelo teste que estive fazendo por aqui, utilizei este mesmo comando seu so que na hora de apresentar a imagens coloquei .enable = false e ficou oculta.

    Se foi isto mesmo ja estara resolvido este seu problema.

    Abraços


    Allan Munhoz
    segunda-feira, 7 de março de 2011 15:42
  • Adicione ao código do Form

    Image2.Visible = False

    Quando quiser mostrar a imagem, use

    Image2.Visible = True


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    quinta-feira, 10 de março de 2011 19:19
    Moderador
  • heheehh.... não e bem isso... eu quero ciar o "arquivo" com a propriedade oculta.. tipo...como se eu clicasse com o botao direito no arquivo-->propriedade --> e marcasse ela como oculta....
    sexta-feira, 11 de março de 2011 13:01
  • Após utilizar o método Chart.Export, oculte o arquivo com o comando

    Shell "attrib " & ThisWorkbook.Path & "\imgtemp3.gif +h"


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    sexta-feira, 11 de março de 2011 13:51
    Moderador