Criar imagem Excel

Question

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?

Answer 1

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

Answer 2

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

Answer 3

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....

Answer 4

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