Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

MetalFatigue

Criar um snapshot (.snp) de um range [Excel]?

Mensagens Recomendadas

MetalFatigue    1
MetalFatigue

Eu tenho usado para transformar dinamicamente centenas de reports para pdf usando a ferramenta ReportToPdf do Stephen Lebans.

Gostaria de fazer o mesmo para um range, que vai alterando dinamicamente. O problema é que esta ferramenta só funciona porque transforma o report em .snp (snapshot) e depois converte esse snapshot para pdf. É possivel ir criando ficheiros .snp de um range excel?

cumprimentos

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jmaocubo    0
jmaocubo

Eu tenho usado para transformar dinamicamente centenas de reports para pdf usando a ferramenta ReportToPdf do Stephen Lebans.

Gostaria de fazer o mesmo para um range, que vai alterando dinamicamente. O problema é que esta ferramenta só funciona porque transforma o report em .snp (snapshot) e depois converte esse snapshot para pdf. É possivel ir criando ficheiros .snp de um range excel?

cumprimentos

Possível é....

Experimenta este:


Sub Colar_Snapshots()
   Application.ScreenUpdating = True
   Dim UserRange As Range
   Dim OutputRange As Range
   Dim selecção As String
   Dim Titulo As String
   'Pergunta ao utilizador qual o range que pretende seleccionar (uma vez que não sabia qual pretendias)
   selecção = "Qual o range para Snapshot?"
   Titulo = "Edição do utilizador"
   On Error Resume Next
   Set UserRange = Application.InputBox(Prompt:=selecção, _
                                        Title:=Titulo, Default:=ActiveCell.Address, Type:=8)
   If UserRange Is Nothing Then End
   On Error GoTo 0

   'Copia para o clipboard a selecção
   UserRange.CopyPicture

   'Pergunta ao utilizador onde pretende colar o snapshot
   selecção = "Onde pretende colar?"
   Titulo = "Edição do Utilizador"
   On Error Resume Next
   Set OutputRange = Application.InputBox(Prompt:=selecção, _
                                          Title:=Titulo, Default:=ActiveCell.Address, Type:=8)
   If OutputRange Is Nothing Then End
   On Error GoTo 0

   'Cola a imagem onde foi seleccionado anteriormente
   OutputRange.PasteSpecial


End Sub

Cumprimentos

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade