b GERENCIADOR DE CONFIGURAÇÃO
DE PÁGINA para Microsoft Excel

Download   Home  Anúncios

Este utilitário é um COM add-in ou add-in (.xla) programado em Microsoft® Visual Basic® for Application (VBA) que possibilita restaurar ou copiar seletivamente de uma planilha para outra planilha ou para um lote de planilhas todas as configurações de página definidas pelo comando 'Configurar Página...' do Microsoft® Excel® inclusive todas as configurações de figuras de cabeçalho e rodapés de planilhas salvas anteriormente. Assim, você pode definir toda e qualquer configuração de página em uma planilha e salvar para serem copiadas indefinidamente no futuro para outras planilhas como se fosse um modelo. Veja as figuras abaixo.

Ele também gerencia as figuras de cabeçalho e rodapé, possibilitando inserir figuras em qualquer das seis posições de cabeçalho/rodapé (18 posições, se diferenciar primeira página e página pares no Excel 2007, 2010 ou 2013) e movê-las ao longo da página por baixo ou por cima do conteúdo da planilha (ideal para simular até nove marcas-d’água e nove marcas-de-carimbo impressas). Insere figura a partir de arquivos salvo no disco, a partir de um texto inserido pelo usuário ou a partir de uma seleção indicada pelo usuário em qualquer planilha aberta no Excel. Tudo pode ser feito via interface de usuário, ver as figuras abaixo, ou via funções disponibilizadas para o projeto VBA do usuário, veja itens depois das figuras.

Marca-d'água normalmente é um fantasma de figura de texto que fica por trás do conteúdo da página impressa. Isto é frequentemente usado para indicar que o documento impresso é para ser tratado de forma especial, como por exemplo, RASCUNHO, URGENTE ou CONFIDENCIAL. Figuras salvas em diversos formatos de arquivo (gif, jpg, bmp, etc.) também podem ser usadas para melhorar a estética e personalizar documentos impressos. Enquanto marca-de-carimbo é algo similar que fica por cima do conteúdo da página impressa.

Ele consiste de um único arquivo, o ExcelPageSetpMgr.dll, que é de aproximadamente 560 kb em tamanho e pode ser instalado automaticamente. Exceto para a DLL, nenhuma outra configuração é salva no Registro do Microsoft® Windows®. Sua configuração é salva nos arquivos ExcelPageSetpMgr.ini e ExcelPageSetpMgr.xlam que são criados e mantidos pelo próprio utilitário. Você pode desinstalá-lo total e automaticamente, não deixando nenhuma sujeira no Registro do seu Windows ou disco.

Características:

- Restaura ou copia entre planilhas as configurações de página definidas pelo comando 'Configurar Página...' do Excel;

- Restaura ou copia seletivamente, assim você pode selecionar uma, algumas ou todas as configurações antes de restaurar ou copiar;

- Suporta copiar ou restaurar (Excluir) as figuras de cabeçalho e rodapés de planilhas salvas e fechadas e depois reabertas;

- Suporta copiar todas as configurações feitas diretamente nas figuras de cabeçalho ou de rodapé. Por exemplo, uma figura originalmente configurada para funcionar como marca-d’água será copiada e funcionará como tal na planilha de destino;

- Suporta copiar entre planilhas em uma mesma ou em diferentes Pastas de Trabalho devidamente abertas no Excel;

- Suporta abrir Pastas de Trabalho salvas no disco e criar novas Pastas de Trabalho e planilhas durante uma execução;

- Suporta restaurar ou copiar de uma vez para todas as planilhas de uma Pasta de Trabalho ou para todas as planilhas de todas as Pastas de Trabalhos então abertas no Excel;

- Ao restaurar ou copiar de uma vez para mais de uma planilha, pode, opcionalmente, alertar antes de cada cópia ou restauração, possibilitando saltar planilhas para evitar alterações nas mesmas;

- A inclusão de figura em qualquer das seis posições de cabeçalho/rodapé (18 posições, se diferenciar primeira página e página pares no Excel 2007, 2010 ou 2013) pode ser feita a partir de qualquer figura salva em um formato de arquivo reconhecido pelo Excel (ex.: *.emf; *.wmf; *.jpg; *.jpeg; *.jfif; *.jpe; *.png; *.bmp; *.dib; *.rle; *.gif; *.bmz; *.gfa; *.emz);

- Textos ou frases, tal como RASCUNHO, CONFIDENCIAL, URGENTE, podem ser inseridos também como figura;

- Uma figura também pode ser feita de qualquer seleção indicada pelo usuário em qualquer planilha aberta e inserida também. A seleção pode ser uma célula, um intervalo de células, um objeto ou um grupo de objetos sobre a planilha (por exemplo, um gráfico, WordArt, um diagrama, uma forma ou AutoForma);

- Uma figura inserida em qualquer das posições possíveis pode ser movida ao longo da página, descendo, subindo, para a direita ou para a esquerda e por baixo ou por cima do conteúdo da planilha (ideal para simular marca-d’água ou marca-de-carimbo impressos);

- A figura pode ser centrada em três diferentes opções de áreas: a área total do papel, a área sob as células da planilha mais as áreas do cabeçalho e rodapé ou apenas a área sob as células da planilha;

- No Excel 2007, 2010 ou 2013, depois da figura movida ou centralizada, ela pode opcionalmente ser ancorada na margem esquerda da área de impressão para acompanhar eventuais alterações no tamanho da mesma;

- No Excel 2007, 2010 ou 2013, diferentes figuras podem ser inseridas na primeira página, nas páginas pares ou nas páginas impares, totalizando 18 posições de inclusão de diferentes figuras;

- Você pode ajustar cor, brilho, contraste, posição e tamanho da figura; configurar a página (por exemplo, alterar o tamanho do papel ou margens); alterar impressora e previsualizar a impressão sem a necessidade de sair dos formulários de inclusão;

- A figura inserida pode também ser movida ou ampliada para além dos limites do papel (ou seja, criar uma figura de grandes dimensões), se assim desejar;

- Sem sair do formulário, você pode inserir figura em qualquer das planilhas em qualquer uma das pastas de trabalho já abertas no Excel;

- Todas estas funcionalidades estão disponíveis via interface e também via VBA através de nove funções UDFs. Veja, logo abaixo das figuras, uma descrição detalhada de cada uma destas nove funções e exemplos de códigos em VBA que as chamam;

- Depois de instalado, o utilitário é chamado a partir do Menu Arquivo do Excel > Submenu Gerenciador de Configuração de Página ou, no Excel 2007, 2010 ou 2013, a partir da Ribbon > Guia Layout de Página > Menu GerConf Página.

Download:

Testado no Excel para Windows, versões 2002(XP), 2003, 2007, 2010 (32-bit), 2013 (32-bit) e 2016 (32-bit) em instalações MSI-based e Click-To-Run do Office 365™ de serviços baseados na nuvem.

Download

Baixe a versão portuguesa agora

Serial: wpdFy545  Chave: 8362

Para remover limites, use o  Serial e a Chave ofe-
recidos acima, um passe livre para 30 dias de tes-
te, ou compre o Serial para sempre agora.

Você pode baixar também deste site-espelho

Última atualização: 05/30/2018 - 766.5kb

Obs.: O link acima baixa o pacote instalador e desinstalador programado em VBA em um XLS devidamente convertido para EXE pelo XLtoEXE para tornar a instalação mais fácil para leigos em macros e Microsoft® Windows®, no entanto, se você é experiente e por alguma razão preferir um pacote instalador e desinstalador em formato ZIP aberto, clique aqui. Com este pacote zip você pode instalar de três maneiras: (1) Simplesmente acionar o Install.exe que carrega o mesmo XLS no Excel sem alerta de macro; (2) Extrair o pacote inteiro para uma pasta e acionar o XLS, habilitando as macros no Excel e usando 123 como senha, ou (3) Instalar a DLL manualmente.

Figuras:

Figura

Funções Disponíveis para Projetos em VBA (UDFs):

Todas as funcionalidades e opções disponíveis na interface ficam também disponíveis para projetos VBA através das nove funções descritas abaixo. Assim, um programador pode, por exemplo, fazer com que um gráfico em uma planilha seja impressa como marca-d’água ou marca-de-carimbo em outra planilha tudo silenciosa e flexivelmente via código VBA.

1 - fPageSetpMgrCopy() - Copia seletivamente de uma planilha para outra planilha todas as configurações de página definidas pelo comando 'Configurar Página...' do Excel inclusive todas as configurações de figuras de cabeçalho e rodapés de uma planilha salva anteriormente.

2 - fPageSetpMgrPictInsFile() - Insere uma figura salva em arquivo em qualquer das seis posições de cabeçalho/rodapé (18 posições, se diferenciar primeira página e página pares no Excel 2007, 2010 ou 2013).

3 - PageSetpMgrPictInsText() - Insere um texto ou frase, tal como RASCUNHO, CONFIDENCIAL, URGENTE como figura em qualquer uma das posições de cabeçalho/rodapé.

4 - fPageSetpMgrPictInsObj() - Insere um objeto de planilha como figura em qualquer uma das posições de cabeçalho/rodapé. O objeto de planilha pode ser uma célula (ex., Range("A1")), um intervalo de células (ex. Range("A1:D10")), um objeto ou um grupo de objetos sobre uma planilha (ex., um gráfico, WordArt, um diagrama, uma forma ou AutoForma);

5 - fPageSetpMgrPictMove() - Move ao longo da página uma figura inserida em qualquer uma das posições de cabeçalho/rodapé, descendo, subindo, para a direita ou para a esquerda e por baixo ou por cima do conteúdo da planilha (ideal para simular marca-d’água ou marca-de-carimbo impressos). Pode ter como referência, inclusive para centrar, três diferentes opções de áreas: a área total do papel, a área sob as células da planilha mais as áreas do cabeçalho e rodapé ou apenas a área sob as células da planilha.

6 - fPageSetpMgrPictMoveInc() - Também move ao longo da página uma figura inserida em qualquer uma das posições de cabeçalho/rodapé, mas move incrementando a partir de sua posição atual, descendo, subindo, para a direita ou para a esquerda.

7 - fPageSetpMgrPictSize() - Altera o tamanho de uma figura inserida em cabeçalho e rodapé conservando a posição atual de seu canto superior esquerdo ao longo da página.

8 - fPageSetpMgrPictGetProp() - Obtém as seguintes propriedades de uma figura inserida em cabeçalho e rodapé: largura e altura atuais, largura e altura originais e deslocamentos horizontal e vertical do canto superior esquerdo em relação ao canto superior esquerdo do papel.

9 - fPageSetpMgrPictGetIpic() - Obtém o objeto IPicture de uma figura inserida em cabeçalho e rodapé, possibilitando salvar a figura em arquivo no disco usando a função SavePicture() interna do VBA ou inserir a figura em qualquer parte do Excel ou de outro aplicativo que suporte Automação usando a função LoadPicture() interna do VBA.

Segue as descrições detalhadas destas funções e com seus argumentos e exemplos de códigos em VBA que as chamam.

 

1 - Funçao fPageSetpMgrCopy():

Esta função copia seletivamente de uma planilha para outra planilha todas as configurações de página definidas na caixa de diálogo exibida pelo comando 'Configurar Página...' do Excel inclusive todas as configurações de figuras de cabeçalho e rodapés de uma planilha salva anteriormente. Ela tem 19 argumentos passados por posição.

    = fPageSetpMgrCopy(SourceSheet, DestSheet, Orientation, Scaling, PaperSize, PrintQuality, FirstPageNumber, Magins, CenterOnPage, LeftHeaderPict, CenterHeaderPict, RightHeaderPict, LeftFooterPict, CenterFooterPict, RightFooterPict, PrintArea, PrintTitles, PrintOpts, PageOrder)

1 - SourceSheet As Worksheet (Obrigatóro). Planilha fonte para a cópia das configurações de página selecionadas pelo argumento 3 ao 19. Deve ser definida e passada como objeto Worksheet;

2 - DestSheet As Worksheet (Obrigatório). Planilha destino para a cópia das configurações de página selecionadas pelo argumento 3 ao 19. Deve ser definida e passada como objeto Worksheet;

3 - Orientation As Boolean (Opcional. Padrão=Falso). Copia a configuração definida para a orientação da página na guia Página;

4 - Scaling As Boolean (Opcional. Padrão=Falso). Copia as configurações definidas nas três opções da seção Dimensionar na guia Página;

5 - PaperSize As Boolean (Opcional. Padrão=Falso). Copia a configuração definida para o tamanho do papel na guia Página;

6 - PrintQuality As Boolean (Opcional. Padrão=Falso). Copia a configuração definida para a qualidade de impressão na guia Página;

7 - FirstPageNumber As Boolean (Opcional. Padrão=Falso). Copia a configuração definida para o número da primeira página na guia Página;

8 - Magins As Boolean (Opcional. Padrão=Falso). Copia as configurações definidas nas seis opções de medida de margem na guia Margens;

9 - CenterOnPage As Boolean (Opcional. Padrão=Falso). Copia as configurações definidas nas duas opções da seção Centralizar na Página na guia Margens;

10 - LeftHeaderPict As Boolean (Opcional. Padrão=Falso). Copia todas as configurações definidas para a posição de entrada na esquerda do cabeçalho, inclusive de figura, na guia Cabeçalho/rodapé. No Excel 2007, 2010 ou 2013, as opções de diferenciar cabeçalho em primeira página e em página par também são copiadas e as figuras e configurações referentes também;

11 - CenterHeaderPict As Boolean (Opcional. Padrão=Falso). Idem para a posição de entrada no centro do cabeçalho;

12 - RightHeaderPict As Boolean (Opcional. Padrão=Falso). Idem para a posição de entrada na direita do cabeçalho;

13 - LeftFooterPict As Boolean (Opcional. Padrão=Falso). Idem para a posição de entrada na esquerda do rodapé;

14 - CenterFooterPict As Boolean (Opcional. Padrão=Falso). Idem para a posição de entrada no centro do rodapé;

15 - RightFooterPict As Boolean (Opcional. Padrão=Falso). Idem para a posição de entrada na direita do rodapé;

16 - PrintArea As Boolean (Opcional. Padrão=Falso). Copia a configuração definida para a área de impressão na guia Planilha;

17 - PrintTitles As Boolean (Opcional. Padrão=Falso). Copia as configurações definidas nas duas opções da seção Imprimir Títulos na guia Planilha

18 - PrintOpts As Boolean (Opcional. Padrão=Falso). Copia as configurações definidas nas cinco opções da seção Imprimir na guia Planilha

19 - PageOrder As Boolean (Opcional. Padrão=Falso). Copia as configurações definidas nas duas opções da seção Ordem de Página na guia Planilha

Exemplo:

1 - O código abaixo copia todas as configurações de página de uma planilha nova para todas as planilhas da Pasta de Trabalho deste código. Significa o mesmo que restaurar as configurações de página de acordo com o modelo atual para criação de novas planilhas.

Sub YourSub1()
    Dim SrcSh As Worksheet
    Dim DestSh As Worksheet
    Dim lRet As Long

    If MsgBox("Todas as Configurações de Página serão restauradas em todas as planilhas desta pasta de trabalho. Ok?", vbOKCancel) = vbCancel Then Exit Sub

    Set SrcSh = Workbooks.Add(xlWBATWorksheet).Sheets(1)    'Planilha nova para copiar restaurando outras

    Dim ObjToVBA As Object     'Veja a Obs. abaixo
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object

    For Each DestSh In ThisWorkbook.Sheets    'Set DestSh = ActiveWorkbook.Sheets(1)
        lRet = ObjToVBA.fPageSetpMgrCopy(SrcSh, DestSh, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True)
    Next

    SrcSh.Parent.Close False
    Set ObjToVBA = Nothing
End Sub

Obs.: Substitua 'As Object' por 'As PageSetpMgrObjToVBA', se preferir o método Early Binding, mas você tem que usar o menu Tools/References... e adicionar a referência "Page Setup Manager for Excel © 2010/2010 by Francisco Orlando Magalhães Filho.". Este método facilita visualizar os nomes e as posições dos argumentos da função.

A função fPageSetpMgrCopy() pode dar os seguintes retornos:
     lRet = 0 (Sucesso);
     lRet = 1 (Falha: Planilha fonte não foi informada ou não foi encontrada);
     lRet = 2 (Falha: Planilha destino não foi informada ou não foi encontrada);
     lRet = 3 (Falha: O caminho do arquivo de uma figura a copiar foi perdido e não foi possível restaurar);
     lRet = 1001 (Falha: Instalação não registrada).

 

2 - Função fPageSetpMgrPictInsFile():

Esta função insere uma figura salva em arquivo em qualquer das seis posições de cabeçalho/rodapé (18 posições, se diferenciar a primeira página e página par no Excel 2007, 2010 ou 2013). Ela tem 6 argumentos passados por posição.

    = fPageSetpMgrPictInsFile(TargetSheet, HeaderFooterPos, PageType, FileFullName, RefArea, Brighten)

1 - TargetSheet As Worksheet (Obrigatório). A planilha alvo onde a figura será inserida. Deve ser definida e passada como objeto Worksheet.

2 - HeaderFooterPos As String (Obrigatório). A posição do cabeçalho/rodapé onde a figura será inserida. Deve ser uma destas seis seqüências de caracteres:

     "LeftHeader" - Para a posição esquerda do cabeçalho.

     "CerterHeader" - Para a posição de centro do cabeçalho.

     "RightHeader" - Para a posição direita do cabeçalho.

     "LeftFooter" - Para a posição esquerda do rodapé.

     "CenterFooter" - Para a posição de centro do rodapé.

     "RightFooter" - Para a posição direita do rodapé.

3 - PageType As String (Obrigatório). Tipo de página onde a figura será inserida. Deve ser uma destas três seqüências de caracteres:

     "Default" - Para página padrão.

     "First" - Para primeira página (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé em páginas pares).

4 - FileFullName As String (Obrigatório). Nome e caminho do arquivo contendo a figura a inserir em formato reconhecido pelo Excel (ex., *.emf; *.wmf; *.jpg; *.jpeg; *.jfif; *.jpe; *.png; *.bmp; *.dib; *.rle; *.gif; *.bmz; *.gfa; *.emz).

5 - RefArea As Long (Opcional, 0 a 3. Padrão=1). Área de referência para centralizar a figura inserida ao longo da página impressa, onde:

     0 - Não centralizar e não mover a figura ao longo da página, preservando a posição padrão do Excel em cada ponto de entrada do cabeçalho ou do rodapé.

     1 - Centralizar na área total do papel.

     2 - Centralizar na área sob as células da planilha mais as áreas do cabeçalho e rodapé.

     3 - Centralizar na área sob as células da planilha apenas.

6 - Brighten As Boolean (Opcional. Padrão=Verdadeiro). Clarear a figura inserida usando as propriedades de imagem padrão do Excel para marca-d'água.

Exemplo:

1 - O código abaixo insere a figura do arquivo YourPicture.wmf na posição esquerda do cabeçalho de página impressa padrão da planilha 2 da pasta de trabalho ativa. Depois de inserida, a figura será centralizada ao longo da área total do papel e clareada usando as propriedades de imagem padrão do Excel para marca-d'água.

Sub YourSub1()
    Dim TargetSh As Worksheet
    Dim lRet As Long

    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object     'Veja Obs.:
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object
    lRet = ObjToVBA.fPageSetpMgrPictInsFile(TargetSh, "LeftHeader", "Default", _
                                            ThisWorkbook.Path & "\YourPicture.wmf", 1, True)

    Set ObjToVBA = Nothing
End Sub

A função fPageSetpMgrPictInsFile() pode dar os seguintes retornos:
     lRet = 0 (Sucesso);
     lRet = 1 (Falha: Planilha alvo não foi informada ou não foi encontrada).
     lRet = 2 (Falha: A posição de cabeçalho/rodapé informada não existe ou não é suportada pela versão do Excel em uso).
     lRet = 3 (Falha: O tipo de página informada não é válido ou não é suportado pela versão do Excel em uso).
     lRet = 4 (Falha: O arquivo da figura a inserir não foi encontrado).
     lRet = 5 (Falha: Figura ou formato de arquivo inválido).
     lRet = 1001 (Falha: Instalação não registrada).

 

3 - Funçao PageSetpMgrPictInsText():

Esta função insere um texto ou frase, tal como RASCUNHO, CONFIDENCIAL, URGENTE como figura em qualquer uma das posições de cabeçalho/rodapé. Ela tem 11 argumentos passados por posição.

   = fPageSetpMgrPictInsText(TargetSheet, HeaderFooterPos, PageType, Text, FontName, FontSize, FontColor, PresetEffect, Transparency, RotLayout, RefArea)

1 - TargetSheet As Worksheet (Obrigatório). A planilha alvo onde o texto como figura será inserido. Deve ser definida e passada como objeto Worksheet.

2 - HeaderFooterPos As String (Obrigatório). A posição do cabeçalho/rodapé onde o texto como figura sere inserido. Deve ser uma destas seis seqüências de caracteres:

     "LeftHeader" - Para a posição esquerda do cabeçalho.

     "CerterHeader" - Para a posição de centro do cabeçalho.

     "RightHeader" - Para a posição direita do cabeçalho.

     "LeftFooter" - Para a posição esquerda do rodapé.

     "CenterFooter" - Para a posição de centro do rodapé.

     "RightFooter" - Para a posição direita do rodapé.

3 - PageType As String (Obrigatório). Tipo de página onde o texto como figura será inserida. Deve ser uma destas três seqüências de caracteres:

     "Default" - Para página padrão.

     "First" - Para primeira página (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé em páginas pares).

4 - Text As String (Obrigatório). Texto ou frase para ser inserido como figura.

5 - FontName As String (Opcional. Padrão="Times New Roman"). Nome da fonte para formatar o texto. A fonte precisa estar instalada no Windows.

6 - FontSize As Long (Opcional, 36 a 150. Padrão=Auto). Tamanho da fonte para formatar o texto. Ignore para tamanho automático de acordo com o tamanho da figura para caber na área impressa.

7 - FontColor As Long (Opcional, RGB(0, 0, 0) a RGB(255, 255, 255). Padrão=RGB(210, 210, 210)). Côr da fonte para formatar o texto.

8 - PresetEffect As Long (Opcional, 0 a 29. Padrão=0). Efeito pré-definido do WordArt para formatar o texto.

9 - Transparency As Double (Opcional, 0 to 100. Padrão=50). Grau de transparência para formatar o texto de 0 (opaco) a 1 (limpo). Ignore para fazer o texto semitransparente.

10 - RotLayout As Long (Opcional, 0 to 359. Padrão=315). Layout de rotação para formatar o texto. Layouts mais comuns: 0 (Horizontal), 270 (Vertical) e 315 (Diagonal).

11 - RefArea As Long (Opcional, 0 to 3. Padrão=1). Área de referência para definir o tamanho e/ou centralizar o texto como figura ao longo da página de impressão, onde:

     0 - Não centralizar e não mover o texto como figura ao longo da página, preservando a posição na página conforme o padrão do Excel para cada ponto de entrada de cabeçalho ou rodapé.

     1 - Centralizar na área total do papel e calcular o tamanho do texto como figura em relação a ela.

     2 - Centralizar na área sob as células da planilha mais as áreas do cabeçalho e rodapé e calcular o tamanho do texto como figura em relação a ela.

     3 - Centralizar na área sob as células da planilha apenas e calcular o tamanho do texto como figura em relação a ela.

Exemplo:

1 - O código abaixo insere o texto "RASCUNHO" como figura na posição esquerda do cabeçalho de página impressa padrão da planilha 2 da pasta de trabalho ativa. A figura será feita em um tamanho para caber na página e, depois de inserida, ela será centralizada ao longo da área total do papel.

Sub YourSub1()
    Dim TargetSh As Worksheet
    Dim lRet As Long
    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object     'Veja Obs.:
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object
    lRet = ObjToVBA.fPageSetpMgrPictInsText(TargetSh, "LeftHeader", "Default", "RASCUNHO")

    Set ObjToVBA = Nothing
End Sub

A função fPageSetpMgrPictInsText() pode dar os seguintes retornos:
     lRet = 0 (Sucesso);
     lRet = 1 (Falha: Planilha alvo não foi informada ou não foi encontrada).
     lRet = 2 (Falha: A posição de cabeçalho/rodapé informada não existe ou não é suportada pela versão do Excel em uso).
     lRet = 3 (Falha: O tipo de página informada não é válido ou não é suportado pela versão do Excel em uso).
     lRet = 4 (Falha: O arquivo da figura a inserir não foi encontrado).
     lRet = 5 (Falha: Figura ou formato de arquivo inválido).
     lRet = 6 (Falha: Impossível montar a figura do texto).
     lRet = 1001 (Falha: Instalação não registrada).

 

4 - Funçao fPageSetpMgrPictInsObj():

Esta função insere um objeto de planilha como figura em qualquer uma das posições de cabeçalho/rodapé. O objeto de planilha pode ser uma célula (ex., Range("A1")), um intervalo de células (ex. Range("A1:D10")), um objeto ou um grupo de objetos sobre uma planilha (ex., um gráfico, WordArt, um diagrama, uma forma ou AutoForma). Ela tem seis argumentos passados por posição.

   = fPageSetpMgrPictInsObj(TargetSheet, HeaderFooterPos, PageType, ShpOrRng, RefArea, Brighten)

1 - TargetSheet As Worksheet (Obrigatório). A planilha alvo onde o objeto como figura será inserido. Deve ser definida e passada como objeto Worksheet.

2 - HeaderFooterPos As String (Obrigatório). A posição do cabeçalho/rodapé onde o objeto como figura será inserido. Deve ser uma destas seis seqüências de caracteres:

     "LeftHeader" - Para a posição esquerda do cabeçalho.

     "CerterHeader" - Para a posição de centro do cabeçalho.

     "RightHeader" - Para a posição direita do cabeçalho.

     "LeftFooter" - Para a posição esquerda do rodapé.

     "CenterFooter" - Para a posição de centro do rodapé.

     "RightFooter" - Para a posição direita do rodapé.

3 - PageType As String (Obrigatório). Tipo de página onde o objeto como figura será inserida. Deve ser uma destas três seqüências de caracteres:

     "Default" - Para página padrão.

     "First" - Para primeira página (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé em páginas p ares).

4 - ShpOrRng As Object (Opcional. Padrão=Seleção corrente). Objeto de planilha ou seleção para ser inserido como figura. O objeto de planilha pode ser uma célula (ex., Range("A1")), um intervalo de células (ex. Range("A1:D10")), um objeto ou um grupo de objetos sobre uma planilha (ex., um gráfico, WordArt, um diagrama, uma forma ou AutoForma). Quando o objeto ou a seleção for um intervalo de célula, seu conteúdo das células, seus formatos de células incluindo bordas, e todos os objetos ou partes exatamente sobre suas células aparecerão na figura como uma foto das células tirada com uma câmara ou WYSWYG (O que você vê o que você vai obter).

5 - RefArea As Long (Opcional, 0 a 3. Padrão=1). Área de referência para centralizar a figura inserida ao longo da página impressa, onde:

     0 - Não centralizar e não mover a figura ao longo da página, preservando a posição padrão do Excel em cada ponto de entrada do cabeçalho ou do rodapé.

     1 - Centralizar na área total do papel.

     2 - Centralizar na área sob as células da planilha mais as áreas do cabeçalho e rodapé.

     3 - Centralizar na área sob as células da planilha apenas.

6 - Brighten As Boolean (Opcional. Padrão=Verdadeiro). Clarear a figura inserida usando as propriedades de imagem padrão do Excel para marca-d'água.

Exemplo:

1 - O código abaixo insere o gráfico Chart 1 da planilha 3 como figura na posição esquerda do cabeçalho de página impressa padrão da planilha 2 da pasta de trabalho ativa. Depois de inserida, a figura será centralizada ao longo da área total do papel e clareada usando as propriedades de imagem padrão do Excel para marca-d'água.

Sub YourSub1()
    Dim TargetSh As Worksheet
    Dim lRet As Long

    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object     'Veja Obs.:
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object
    lRet = ObjToVBA.fPageSetpMgrPictInsObj(TargetSh, "LeftHeader", "Default", TargetSh.Parent.Sheets(3).Shapes("Chart 1"))

    Set ObjToVBA = Nothing
End Sub

A função fPageSetpMgrPictInsObj() pode dar os seguintes retornos:
     lRet = 0 (Sucesso);
     lRet = 1 (Falha: Planilha alvo não foi informada ou não foi encontrada).
     lRet = 2 (Falha: A posição de cabeçalho/rodapé informada não existe ou não é suportada pela versão do Excel em uso).
     lRet = 3 (Falha: O tipo de página informada não é válido ou não é suportado pela versão do Excel em uso).
     lRet = 4 (Falha: O arquivo da figura a inserir não foi encontrado).
     lRet = 5 (Falha: Figura ou formato de arquivo inválido).
     lRet = 6 (Falha: O objeto informado não é válido).
     lRet = 7 (Fail: O objeto informado não é um objeto de planilha válido).
     lRet = 8 (Fail: O objeto informado é um objeto de planilha válido, mas não foi possível copiá-lo).
     lRet = 9 (Fail: Erro ao criar figura temporária).
     lRet = 1001 (Falha: Instalação não registrada).

 

5 - Funçao fPageSetpMgrPictMove():

Esta função move ao longo da página uma figura inserida em qualquer uma das posições de cabeçalho/rodapé, descendo, subindo, para a direita ou para a esquerda e por baixo ou por cima do conteúdo da planilha (ideal para simular marca-d’água ou marca-de-carimbo impressos). Pode ter como referência, inclusive para centrar, três diferentes opções de áreas: a área total do papel, a área sob as células da planilha mais as áreas do cabeçalho e rodapé ou apenas a área sob as células da planilha. Ela tem seis argumentos passados por posição.

   = fPageSetpMgrPictMove(TargetSheet, HeaderFooterPos, PageType, MoveLeft, MoveTop, RefArea)

1 - TargetSheet As Worksheet (Obrigatório). A planilha alvo onde a figura de cabeçalho/rodapé será movida ao longo da página impressa.  Deve ser definida e passada como objeto Worksheet.

2 - HeaderFooterPos As String (Obrigatório). A posição de cabeçalho/rodapé onde a figura será movida ao longo da página impressa. Deve ser uma destas seis seqüências de caracteres:

     "LeftHeader" - Para a posição esquerda do cabeçalho.

     "CerterHeader" - Para a posição de centro do cabeçalho.

     "RightHeader" - Para a posição direita do cabeçalho.

     "LeftFooter" - Para a posição esquerda do rodapé.

     "CenterFooter" - Para a posição de centro do rodapé.

     "RightFooter" - Para a posição direita do rodapé.

3 - PageType As String (Obrigatório). Tipo de página onde a figura será movida. Deve ser uma destas três seqüências de caracteres:

     "Default" - Para página padrão.

     "First" - Para primeira página (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé em páginas p ares).

4 - MoveLeft As Double (Opcional. Padrão=Centra horizontalmente). Específica a coordenada horizontal para mover a figura e é medida em pontos do canto superior esquerdo da área de referência definida pelo argumento RefArea para o canto superior esquerdo da figura. Um ponto é 1/72 de uma polegada.

5 - MoveTop As Double (Opcional. Padrão=Centra verticalmente). Específica a coordenada vertical para mover a figura e é medida em pontos do canto superior esquerdo da área de referência definida pelo argumento RefArea para o canto superior esquerdo da figura. Um ponto é 1/72 de uma polegada.

6 - RefArea As Long (Opcional, 1 a 3. Padrão=1). Área de referência para mover ou centralizar a figura ao longo da página impressa. A figura será centralizada horizontalmente, se o argumento MoveLeft for ignorado e/ou verticalmente, se MoveTop for ignorado. Onde:

     1 - Centralizar na área total do papel ou mover tendo seu canto superior esquerdo como referência.

     2 - Centralizar na área sob as células da planilha mais as áreas do cabeçalho e rodapé ou mover tendo seu canto superior esquerdo como referência.

     3 - Centralizar na área sob as células da planilha apenas ou mover tendo seu canto superior esquerdo como referência.

Exemplo:

1 - O código abaixo move a figura inserida na posição esquerda do cabeçalho de página impressa padrão da planilha 2 da pasta de trabalho ativa. O canto superior esquerdo da figura será movido 200pt para esquerda e 200pt para baixo a partir do canto superior esquerdo da área total do papel.

Sub YourSub1()
    Dim TargetSh As Worksheet
    Dim lRet As Long

    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object     'Veja Obs.:
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object
    lRet = ObjToVBA.fPageSetpMgrPictMove(TargetSh, "LeftHeader", "Default", 200, 200, 1)

    Set ObjToVBA = Nothing
End Sub

A função fPageSetpMgrPictMove() pode dar os seguintes retornos:
     lRet = 0 (Sucesso);
     lRet = 1 (Falha: Planilha alvo não foi informada ou não foi encontrada).
     lRet = 2 (Falha: A posição de cabeçalho/rodapé informada não existe ou não é suportada pela versão do Excel em uso).
     lRet = 3 (Falha: O tipo de página informada não é válido ou não é suportado pela versão do Excel em uso).
     lRet = 4 (Falha: Não há figura inserida na posição de cabeçalho/rodapé informada).
     lRet = 5 (Falha: Impossível obter o tamanho do papel).
     lRet = 1001 (Falha: Instalação não registrada).

 

6 - Funçao fPageSetpMgrPictMoveInc():

Esta função também move ao longo da página uma figura inserida em qualquer uma das posições de cabeçalho/rodapé, mas move incrementando a partir de sua posição atual, descendo, subindo, para a direita ou para a esquerda. Ela tem cinco argumentos passados por posição.

   = fPageSetpMgrPictMoveInc(TargetSheet, HeaderFooterPos, PageType, IncrLeft, IncrTop)

1 - TargetSheet As Worksheet (Obrigatório). A planilha alvo onde a figura de cabeçalho/rodapé será movida ao longo da página impressa.  Deve ser definida e passada como objeto Worksheet.

2 - HeaderFooterPos As String (Obrigatório). A posição de cabeçalho/rodapé onde a figura será movida ao longo da página impressa. Deve ser uma destas seis seqüências de caracteres:

     "LeftHeader" - Para a posição esquerda do cabeçalho.

     "CerterHeader" - Para a posição de centro do cabeçalho.

     "RightHeader" - Para a posição direita do cabeçalho.

     "LeftFooter" - Para a posição esquerda do rodapé.

     "CenterFooter" - Para a posição de centro do rodapé.

     "RightFooter" - Para a posição direita do rodapé.

3 - PageType As String (Obrigatório). Tipo de página onde a figura será movida. Deve ser uma destas três seqüências de caracteres:

     "Default" - Para página padrão.

     "First" - Para primeira página (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé em páginas p ares).

4 - IncrLeft As Double (Opcional. Padrão=0). Especifica o deslocamento horizontal para mover a figura e é medida em pontos a partir de sua posição atual.

5 - IncrTop As Double (Opcional. Padrão=0). Especifica o deslocamento vertical para mover a figura e é medida em pontos a partir de sua posição atual. Um ponto é 1/72 de uma polegada.

Exemplo:

1 - O código abaixo move a figura inserida na posição esquerda do cabeçalho de página impressa padrão da planilha 2 da pasta de trabalho ativa. A figura será movida 200pt para esquerda e 200pt para baixo a partir de sua posição atual.

Sub YourSub1()
    Dim TargetSh As Worksheet
    Dim lRet As Long

    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object     'Veja Obs.:
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object
    lRet = ObjToVBA.fPageSetpMgrPictMoveInc(TargetSh, "LeftHeader", "Default", 200, 200)

    Set ObjToVBA = Nothing
End Sub

A função fPageSetpMgrPictMoveInc() pode dar os seguintes retornos:
     lRet = 0 (Sucesso);
     lRet = 1 (Falha: Planilha alvo não foi informada ou não foi encontrada).
     lRet = 2 (Falha: A posição de cabeçalho/rodapé informada não existe ou não é suportada pela versão do Excel em uso).
     lRet = 3 (Falha: O tipo de página informada não é válido ou não é suportado pela versão do Excel em uso).
     lRet = 4 (Falha: Não há figura inserida na posição de cabeçalho/rodapé informada).
     lRet = 5 (Falha: Impossível obter o tamanho do papel).
     lRet = 1001 (Falha: Instalação não registrada).

 

7 - Funçao fPageSetpMgrPictSize():

Esta função altera o tamanho de uma figura inserida em cabeçalho e rodapé conservando a posição atual de seu canto superior esquerdo ao longo da página. Ela tem cinco argumentos passados por posição.

   = fPageSetpMgrPictSize(TargetSheet, HeaderFooterPos, PageType, SizeWidth, SizeHeight)

1 - TargetSheet As Worksheet (Obrigatório). A planilha alvo onde a figura de cabeçalho/rodapé terá o tamanho alterado.  Deve ser definida e passada como objeto Worksheet.

2 - HeaderFooterPos As String (Obrigatório). A posição de cabeçalho/rodapé onde a figura terá o tamanho alterado. Deve ser uma destas seis seqüências de caracteres:

     "LeftHeader" - Para a posição esquerda do cabeçalho.

     "CerterHeader" - Para a posição de centro do cabeçalho.

     "RightHeader" - Para a posição direita do cabeçalho.

     "LeftFooter" - Para a posição esquerda do rodapé.

     "CenterFooter" - Para a posição de centro do rodapé.

     "RightFooter" - Para a posição direita do rodapé.

3 - PageType As String (Obrigatório). Tipo de página onde a figura terá o tamanho alterado. Deve ser uma destas três seqüências de caracteres:

     "Default" - Para página padrão.

     "First" - Para primeira página (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé em páginas p ares).

4 - SizeWidth As Double (Opcional). Especifica a largura da figura, medida em pontos.

5 - SizeHeight As Double (Opcional). Específica a altura da figura, medida em pontos. Um ponto é 1/72 de uma polegada.

Obs.: SizeWidth e SizeHeight são opcionais e um deles ou ambos podem ser ignorados. Se um deles for ignorado, ele será alterado com o outro de acordo com a proporção atual. Se ambos forem ignorados, o tamanho original da figura será restaurado.

Exemplo:

1 - O código abaixo altera o tamanho da figura inserida na posição esquerda do cabeçalho de página impressa padrão da planilha 2 da pasta de trabalho ativa. O tamanho da figura será alterado pela altura que ficará em 120pt enquanto sua largura será alterada de acordo com a proporção atual.

Sub YourSub1()
    Dim TargetSh As Worksheet
    Dim lRet As Long

    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object     'Veja Obs.:
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object
    lRet = ObjToVBA.fPageSetpMgrPictSize(TargetSh, "LeftHeader", "Default", , 120)

    Set ObjToVBA = Nothing
End Sub

A função fPageSetpMgrPictSize() pode dar os seguintes retornos:
     lRet = 0 (Sucesso);
     lRet = 1 (Falha: Planilha alvo não foi informada ou não foi encontrada).
     lRet = 2 (Falha: A posição de cabeçalho/rodapé informada não existe ou não é suportada pela versão do Excel em uso).
     lRet = 3 (Falha: O tipo de página informada não é válido ou não é suportado pela versão do Excel em uso).
     lRet = 4 (Falha: Não há figura inserida na posição de cabeçalho/rodapé informada).
     lRet = 5 (Falha: Impossível obter o tamanho do papel).
     lRet = 1001 (Falha: Instalação não registrada).

 

8 - Funçao fPageSetpMgrPictGetProp():

Esta função obtém as seguintes propriedades de uma figura inserida em cabeçalho e rodapé: largura e altura atuais, largura e altura originais e deslocamentos horizontal e vertical do canto superior esquerdo em relação ao canto superior esquerdo do papel. Ele tem nove argumentos passados por posição.

   = fPageSetpMgrPictGetProp(TargetSheet, HeaderFooterPos, PageType, CurrWidthRet, CurrHeightRet, OrigWidthRet, OrigHeightRet, MoveLeftRet, MoveTopRet)

1 - TargetSheet As Worksheet (Obrigatório). A planilha alvo onde a figura de cabeçalho/rodapé para obter as propriedades está inserida. Deve ser definida e passada como objeto Worksheet.

2 - HeaderFooterPos As String (Obrigatório). A posição de cabeçalho/rodapé onde a figura para obter as propriedades está inserida. Deve ser uma destas seis seqüências de caracteres:

     "LeftHeader" - Para a posição esquerda do cabeçalho.

     "CerterHeader" - Para a posição de centro do cabeçalho.

     "RightHeader" - Para a posição direita do cabeçalho.

     "LeftFooter" - Para a posição esquerda do rodapé.

     "CenterFooter" - Para a posição de centro do rodapé.

     "RightFooter" - Para a posição direita do rodapé.

3 - PageType As String (Obrigatório). Tipo de página onde a figura para obter as propriedades está inserida. Deve ser uma destas três seqüências de caracteres:

     "Default" - Para página padrão.

     "First" - Para primeira página (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé em páginas p ares).

4 - CurrWidthRet As Double (Opcional). Retorna a largura atual da figura, medida em pontos.

5 - CurrHeightRet As Double (Opcional). Retorna a altura atual da figura, medida em pontos.

6 - OrigWidthRet As Double (Opcional). Retorna a largura original da figura, medida em pontos.

7 - OrigHeightRet As Double (Opcional). Retorna a altura original da figura, medida em pontos.

8 - MoveLeftRet As Double (Opcional). Retorna o deslocamento horizontal do canto superior esquerdo da figura em relação ao canto superior esquerdo do papel.

9 - MoveTopRet As Double (Opcional). Retorna o deslocamento vertical do canto superior esquerdo da figura em relação ao canto superior esquerdo do papel.

Obs.: Cada argumento de 4 a 9 deve ser devidamente declarado para ser passado por referência para que o retorno do valor possa ser feito por ele.

Exemplo:

1 - O código abaixo obtém a altura atual e a altura original da figura inserida na posição esquerda do cabeçalho de página impressa padrão da planilha 2 da pasta de trabalho ativa.

Sub YourSub1()
    Dim TargetSh As Worksheet
    Dim lRet As Long

    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim CurrHeightRet As Double
    Dim OrigHeightRet As Double

    Dim ObjToVBA As Object     'Veja Obs.:
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object
    lRet = ObjToVBA.fPageSetpMgrPictGetProp(TargetSh, "LeftHeader", "Default", , CurrHeightRet, , OrigHeightRet)

    If lRet = 0 Then MsgBox ("A altura atual da figura é " & CurrHeight & "pt e sua altura original era " & OrigHeight & "pt.") _
                            Else MsgBox ("A função fPageSetpMgrPictGetProp() retornou o erro número " & lRet & "!")

    Set ObjToVBA = Nothing
End Sub

A função fPageSetpMgrPictGetProp() pode dar os seguintes retornos:
     lRet = 0 (Sucesso);
     lRet = 1 (Falha: Planilha alvo não foi informada ou não foi encontrada).
     lRet = 2 (Falha: A posição de cabeçalho/rodapé informada não existe ou não é suportada pela versão do Excel em uso).
     lRet = 3 (Falha: O tipo de página informada não é válido ou não é suportado pela versão do Excel em uso).
     lRet = 4 (Falha: Não há figura inserida na posição de cabeçalho/rodapé informada).
     lRet = 5 (Falha: Impossível obter o tamanho do papel).
     lRet = 1001 (Falha: Instalação não registrada).

 

9 - Funçao fPageSetpMgrPictGetIpic():

Esta função obtém o objeto IPicture de uma figura inserida em cabeçalho e rodapé, possibilitando salvar a figura em arquivo no disco usando a função SavePicture() interna do VBA ou inserir a figura em qualquer parte do Excel ou de outro aplicativo que suporte Automação usando a função LoadPicture() interna do VBA.

   = fPageSetpMgrPictGetIpic(TargetSheet, HeaderFooterPos, PageType, IPictRet)

1 - TargetSheet As Worksheet (Obrigatório). A planilha alvo onde a figura de cabeçalho/rodapé para obter o objeto IPicture está inserida. Deve ser definida e passada como objeto Worksheet.

2 - HeaderFooterPos As String (Obrigatório). A posição de cabeçalho/rodapé onde a figura para obter o objeto IPicture está inserida. Deve ser uma destas seis seqüências de caracteres:

     "LeftHeader" - Para a posição esquerda do cabeçalho.

     "CerterHeader" - Para a posição de centro do cabeçalho.

     "RightHeader" - Para a posição direita do cabeçalho.

     "LeftFooter" - Para a posição esquerda do rodapé.

     "CenterFooter" - Para a posição de centro do rodapé.

     "RightFooter" - Para a posição direita do rodapé.

3 - PageType As String (Obrigatório). Tipo de página onde a figura para obter o objeto IPicture está inserida. Deve ser uma destas três seqüências de caracteres:

     "Default" - Para página padrão.

     "First" - Para primeira página (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007, 2010 ou 2013 somente, se diferenciar o cabeçalho e o rodapé em páginas p ares).

4 - IPictRet As IPictureDisp (Obrigatório). Retorna o objeto IPicture da figura. Deve ser devidamente declarado como IPictureDisp para ser passado por referência para que o retorno do objeto possa ser feito por ele.

Exemplo:

1 - O código abaixo obtém o objeto IPicture da figura inserida na posição esquerda do cabeçalho de página impressa padrão da planilha 2 da pasta de trabalho ativa. Depois ele usa o objeto IPicture obtido para salvar a figura em um arquivo no disco e abri-lo no Microsoft Paint.

Sub YourSub1()
    Dim TargetSh As Worksheet
    Dim lRet As Long

    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim IPictRet As IPictureDisp

    Dim ObjToVBA As Object     'Veja Obs.:
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object
    lRet = ObjToVBA.fPageSetpMgrPictGetIpic(TargetSh, "LeftHeader", "Default", IPictRet)

    If lRet = 0 Then
        Dim sSaveFile As String
        sSaveFile = ThisWorkbook.Path & "\LeftHeader.wmf"
        If Dir(sSaveFile) <> "" Then Kill sSaveFile
        SavePicture IPictRet, sSaveFile
        Shell "mspaint.exe " & sSaveFile, vbNormalFocus
    End If

    Set ObjToVBA = Nothing
End Sub

A função fPageSetpMgrPictGetIpic() pode dar os seguintes retornos:
     lRet = 0 (Sucesso);
     lRet = 1 (Falha: Planilha alvo não foi informada ou não foi encontrada).
     lRet = 2 (Falha: A posição de cabeçalho/rodapé informada não existe ou não é suportada pela versão do Excel em uso).
     lRet = 3 (Falha: O tipo de página informada não é válido ou não é suportado pela versão do Excel em uso).
     lRet = 4 (Falha: Não há figura inserida na posição de cabeçalho/rodapé informada).
     lRet = 5 (Falha: Impossível restaurar a figura na posição de cabeçalho/rodapé informada).
     lRet = 6 (Falha: Impossível criar o objeto IPicture).
     lRet = 1001 (Falha: Instalação não registrada).

 

Registrar por Compra ou Passe Livre Grátis:

Você pode registrar sua instalação do utilitário atualmente operando através de um simples número Serial comprado ou obtido de um Passe Livre para um teste de 30 dias.

1 - Porque e Como:

Ao registrar a instalação através do número Serial, o utilitário fica completamente legal e funcional. Em instalação não registrada, este utilitário fica limitado a restaurar configurações de página e manejar a figura da posição esquerda do cabeçalho somente via interface.

A instalação da própria versão disponível acima para baixar e avaliar pode ser facilmente registrada. Depois de instalada e funcionando, clique no rótulo 'Sobre..' próximo ao botão ‘Fechar’ no formulário principal do utilitário, insira seu número Serial e siga as instruções para obter a Chave de Registro que vai estar disponível para copia em uma página na Internet.

Para registrar, é necessário adquirir um dos tipos de número serial disponíveis: Serial Nominal ou Serial ao Portador.

O número Serial nominal é para Licenças por Volume para empresas e custa US$ 20,00 (R$ 30,00) para uma licença para 25 computadores e US$ 0,50 (R$ 0,80) para cada computador adicional. Você precisa fornecer informações do usuário a fim de permitir um mínimo de identificação. Para adquirir um número Serial Nominal, envie um e-mail para orlando@cpap.com.br com as informações mínimas a seguir: nome da empresa, a cidade e o país em que a empresa está localizada, bem como o número de computadores que você deseja licenciar.

O número Serial ao Portador é mais simples e mais barato para comprar. Ele pode ser comprado agora com uma simples transferência através do PayPal. Além disso, você pode comprá-lo anonimamente.

O processo é muito seguro, privativo, simples e anônimo se você assim quiser. Sem compartilhar informações financeiras ou preenchimento de um cadastro oficial, você se torna proprietário de um número Serial que dá direito de uso do utilitário ao seu portador de forma pessoal e permanente; portanto, você pode até vendê-lo futuramente se quiser.

O Serial ao Portador abaixo de oito caracteres maiúsculos/minúsculos está disponível agora para você por apenas US$ 8,00 (R$ 24,00).

Serial: wpdFy545

PayPal

2 - Passe Livre Grátis:

Você já pode usar agora o Serial oferecido com a Chave de Registro abaixo como passe livre. O passe livre lhe habilita para testar gratuitamente uma instalação registrada e totalmente funcional por 30 dias:

Serial: wpdFy545 (Oito caracteres maiúsculos/minúsculos)

Chave: 8362 (Quatro caracteres maiúsculos/minúsculos)

Observações:

- Para inserir o Serial e a Chave acima, clique no rótulo 'Sobre..' próximo ao botão Fechar no formulário principal do utilitário;

- O serial permanecerá válido, mas uma nova Chave será exigida após 30 dias;

- Se você, excepcionalmente, necessitar testar após os 30 dias, uma nova chave pode ser obtida rapidamente neste link dinâmico que é exibido na própria caixa de diálogo de registro do utilitário. O link é uma homepage aonde você mesmo pega a chave copiando ou anotando, pois infelizmente, por questões de segurança, este utilitário não faz conexão com a Internet para pegar chave;

- No entanto isso ainda é mais fácil e menos inconveniente do que você tentar retroceder o calendário de seu computador, mas o melhor é você comprar seu Serial e obter a Chave definitiva do seu computador;

- Seu computador não precisa estar conectado à Internet para que você possa obter uma chave que sempre tem apenas quatro caracteres. Você pode digitar o curto endereço do link dinãmico exibido pelo utilitário na barra de endereço do Microsoft® Internet Explorer® de outro computador;

- Você pode também voltar aqui nesta página para obter um novo Serial e uma nova Chave;

- Apesar de todas essas facilidades, o uso produtivo intencional deste utilitário fora do período gratuito aceitável para testes, normalmente 30 dias, é uma atitude ilegal.

 

3 - Notas Técnicas Sobre o Serial e a Chave de Registro:

Comprando o Serial você obtém a Chave de Registro definitiva para seu computador evitando a necessidade de obter uma nova Chave a cada trinta dias.

Ao inserir o Serial de oito caracteres, o utilitário já instalado faz um checksum do mesmo gerando quatro novos caracteres que junto com o próprio serial vai compor o link dinâmico.

O link dinâmico é exibido na caixa de diálogo do utilitário exatamente como ele é, e o próprio usuário, por clique ou cópia, insere-o na barra de endereço do Internet Explorer que retorna imediatamente uma homepage com a Chave de Registro apropriada para ser copiada ou anotada e inserida na caixa de diálogo do utilitário ainda pelo próprio usuário, pois infelizmente, por questões de segurança, o utilitário não faz conexão com a Internet para obtenção de chave.

O Internet Explorer ou qualquer que seja seu navegador de Internet não precisa ser obrigatoriamente o do seu computador. Pode ser o navegador de qualquer outro computador.

O checksum anexado ao Serial com certeza não leva nenhuma informação especifica de seu computador por três razões muito simples de serem entendidas. Primeiro porque é um simples checksum de um texto baseado no próprio Serial, tente alterar um caractere do Serial e verá que o Checksum também se altera. Segundo porque é inviável por qualquer informação válida em apenas quatro caracteres. E terceiro porque ele é sempre o mesmo em seu computador, portando nem parte de informação pode ser levada para uma eventual composição.

O único objetivo da Chave de Registro é evitar a distribuição de Serial ao Portador na Internet de forma indiscriminada. Se você for um usuário normal e cuidar de seu Serial, com certeza não vai perceber nenhum inconveniente, pois:

  - Você pode desinstalar e instalar o Windows e o Office em seu computador tantas vezes quanto quiser e for necessário;

  - Você pode formatar e até mudar o HD de seu computador;

  - Você pode usar o HD de seu computador em outro computador e ainda assim não será importunado para obter uma nova chave;

  - Seu Serial só vai exigir Chaves diferentes se for usado em outros computadores, mas é perfeitamente tolerável que você tenha um ou dois Desktops em casa e no trabalho, mais um Notebook e os troque por novos a cada seis meses período em que seu Serial retorna automaticamente ao estado de novo.

Sobre Add-in (.xla):

Indisponível temporariamente.

 

Mais informação

Home

 





gplus

 

 

Visitas acumuladas em todas as páginas:
Visitas hoje só nesta página: