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

Novo   Download   Home 

Este utilitário 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 2007ou mais recente) 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.

Entendendo conceitos: 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. Marca d'água no Excel e marca de carimbo são figuras de cabeçalho e rodapé definidas nas configurações da página para impressão por meio do comando 'Configuração da página...' no menu do Excel.

Este utilitário consiste basicamente de um único arquivo (ExcelPageSetpMgr.dll, ExcelPageSetpMgr.exe ou ExcelPageSetpMgr.xla) que pode ser instalado automaticamente. Exceto para a DLL, se optar por Suplemento COM, nenhuma outra configuração é salva no Registro do Windows. Sua configuração é salva nos arquivos ExcelPageSetpMgr.ini, ExcelPageSetpMgrLoadExe.xla e ExcelPageSetpMgr.xlam que são criados e mantidos pelo próprio utilitário. Você também pode desinstalá-lo total e automaticamente, não deixando nenhuma sujeira no Registro do seu Windows ou disco.

Itens a seguir nesta página:

Características

Download

Opções de Suplementos para Instalar

Figuras

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

Registrar por Compra ou Passe Livre Grátis

Características:

- 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 2007ou mais recente, 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 e 64-bit), 2013 (32 e 64-bit) e 2016-21 (32 e 64-bit) em instalações MSI-based e Click-To-Run do Office 365™ de serviços baseados na nuvem.

Opções de Suplementos para Instalar:

Este utilitário pode estar disponível para ser instalado em três opções de suplemento: Suplemento de EXE, Suplemento de COM ou Suplemento do Excel. Suplemento de COM e Suplemento do Excel rodam no Windows no mesmo processo ou espaço de memória do Excel e são tecnologias bem detalhadas na documentação do Excel e em bons livros sobre VBA, enquanto Suplemento de EXE é uma denominação especial aqui para um misto daquelas duas tecnologias onde o mesmo código VBA é rodado em um processo EXE separado e um pequeno Suplemento do Excel faz a conexão entre os dois processos. Apesar das diferenças nas tecnologias, este utilitário é totalmente funcional em qualquer uma delas. Assim, o que pode decidir na sua escolha para instalar são as características abaixo comparadas:

¹Indisponível temporariamente.

Figuras:

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 onze 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 2007ou mais recente).

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.

10 - fPageSetpMgr() - Possibilita exibir os formulários principais que compõem a interface de usuário do Gerenciador de Configuração de Página a partir de qualquer código VBA tal como acionando os comandos no menu do Excel.

11 - fGetVersion() - Obtém o número da versão instalada a partir de qualquer código 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ção 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 2007ou mais recente, 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

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

Exemplos:

1 - O código abaixo copia todas as configurações de página de uma planilha para outra:

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

    If MsgBox("All page setup settings from ThisWorkbook.Sheets(1) will be copied to ThisWorkbook.Sheets(2). Ok?", vbOKCancel) = vbCancel Then Exit Sub

    Set SrcSh = ThisWorkbook.Sheets(1)
    Set DestSh = ThisWorkbook.Sheets(2)

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")

    lRet = ObjToVBA.fPageSetpMgrCopy(SrcSh, DestSh, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True)
    Set ObjToVBA = Nothing
End Sub

2 - O código abaixo copia todas as configurações de página da planilha ativa para todas as outras planilhas visíveis em todas as pastas de trabalho abertas no Excel:

Sub fPageSetpMgrCopy_Ex2()
    Dim SrcSh As Worksheet
    Dim DestSh As Worksheet
    Dim lRet As Long
    Dim Wb As Workbook

    If MsgBox("All page settings from active sheet will be copied to all other visible sheets in all open workbooks in Excel. Ok?", vbOKCancel) = vbCancel Then Exit Sub

    Set SrcSh = ActiveSheet

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    For Each Wb In Workbooks
        For Each DestSh In Wb.Sheets
            If DestSh.Parent.Name & DestSh.Name <> SrcSh.Parent.Name & SrcSh.Name And DestSh.Parent.Visible And DestSh.Visible Then
                lRet = ObjToVBA.fPageSetpMgrCopy(SrcSh, DestSh, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True)
            End If
        Next
    Next
    Set ObjToVBA = Nothing
End Sub

3 - 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 fPageSetpMgrCopy_Ex3()
    Dim SrcSh As Worksheet
    Dim DestSh As Worksheet
    Dim lRet As Long
    If MsgBox("All Page Setup Settings will reset in all sheet of thisworkbook. Ok?", vbOKCancel) = vbCancel Then Exit Sub
    Set SrcSh = Workbooks.Add(xlWBATWorksheet).Sheets(1)  'New clean sheet to copy reseting others.
    
    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    For Each DestSh In ThisWorkbook.Sheets
        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

Notas sobre métodos Early and Late Binding:
1 - Todos os exemplos aqui são adequados para qualquer instalação dos tipos de suplementos listados acima e usam o método Late Binding que eu acho que é a melhor prática, mas, se você preferir, o método Early Binding, substitua a linha 'Dim ObjToVBA As Object' por 'Dim ObjToVBA As ExcelPageSetpMgr.ClassObjToVBA' e use o comando 'Referências...' no menu ‘Ferramentas’ do VBE para referenciar o projeto 'ExcelPageSetpMgr' ao seu projeto VBA. Isto é tudo. Esse método facilita a visualização dos nomes e posições dos argumentos da função em tempo de design, mas não é recomendado em tempo de execução;
2 - Se você instalar o tipo de suplemento COM, TAMBÉM poderá usar seus conhecidos métodos de Early e Late Binding:
     - Para Late Binding, basta substituir a linha ‘Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")’ por ‘Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object’.
     - Para Early Binding, substitua a linha 'Dim ObjToVBA As Object' por 'Dim ObjToVBA As PageSetpMgrObjToVBA' e a linha ‘Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")’ por ‘Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object’, e use o comando 'Referências...' no menu ‘Ferramentas’ do VBE para referenciar o arquivo 'ExcelPageSetpMgr.dll' ao seu projeto VBA.

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 2007ou mais recente). 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 2007ou mais recente somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007ou mais recente 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.

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

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 fPageSetpMgrPictInsFile_Ex1()
    Dim TargetSh As Worksheet
    Dim lRet As Long
    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    lRet = ObjToVBA.fPageSetpMgrPictInsFile(TargetSh, "LeftHeader", "Default", ThisWorkbook.Path & "\YourPicture.wmf", 1, True)
    
    Set ObjToVBA = Nothing
End Sub

Veja notas sobre métodos Early and Late Binding.

3 - Função fPageSetpMgrPictInsText():

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 2007ou mais recente somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007ou mais recente 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.

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

Exemplo:

1 - O código abaixo insere o texto "DRAFT" 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 fPageSetpMgrPictInsText_Ex1()
    Dim TargetSh As Worksheet
    Dim lRet As Long
    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    lRet = ObjToVBA.fPageSetpMgrPictInsText(TargetSh, "LeftHeader", "Default", "DRAFT")

    Set ObjToVBA = Nothing
End Sub

Veja notas sobre métodos Early and Late Binding.

4 - Função 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 2007ou mais recente somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007ou mais recente 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.

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

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 fPageSetpMgrPictInsObj_Ex1()
    Dim TargetSh As Worksheet
    Dim lRet As Long
    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    lRet = ObjToVBA.fPageSetpMgrPictInsObj(TargetSh, "LeftHeader", "Default", TargetSh.Parent.Sheets(3).Shapes("Chart 1"))

    Set ObjToVBA = Nothing
End Sub

Veja notas sobre métodos Early and Late Binding.

5 - Função 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 2007ou mais recente somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007ou mais recente 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.

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

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 fPageSetpMgrPictMove_Ex1()
    Dim TargetSh As Worksheet
    Dim lRet As Long
    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    lRet = ObjToVBA.fPageSetpMgrPictMove(TargetSh, "LeftHeader", "Default", 200, 200, 1)

    Set ObjToVBA = Nothing
End Sub

Veja notas sobre métodos Early and Late Binding.

6 - Função 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 2007ou mais recente somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007ou mais recente 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.

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

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 fPageSetpMgrPictMoveInc_Ex1()
    Dim TargetSh As Worksheet
    Dim lRet As Long
    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    lRet = ObjToVBA.fPageSetpMgrPictMoveInc(TargetSh, "LeftHeader", "Default", 200, 200)

    Set ObjToVBA = Nothing
End Sub

Veja notas sobre métodos Early and Late Binding.

7 - Função 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 2007ou mais recente somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007ou mais recente 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.

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

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 fPageSetpMgrPictSize_Ex1()
    Dim TargetSh As Worksheet
    Dim lRet As Long
    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    lRet = ObjToVBA.fPageSetpMgrPictSize(TargetSh, "LeftHeader", "Default", , 120)

    Set ObjToVBA = Nothing
End Sub

Veja notas sobre métodos Early and Late Binding.

8 - Função 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 2007ou mais recente somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007ou mais recente 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.

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

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 fPageSetpMgrPictGetProp_Ex1()
    Dim TargetSh As Worksheet
    Dim lRet As Long
    Dim CurrHeightRet As Double
    Dim OrigHeightRet As Double
    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    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

Veja notas sobre métodos Early and Late Binding.

9 - Função 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 2007ou mais recente somente, se diferenciar o cabeçalho e o rodapé na primeira página).

     "Even" - Para página par (Excel 2007ou mais recente 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.

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 obter o tamanho do papel).
     lRet = 1001 (Falha: Instalação não registrada).

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 fPageSetpMgrPictGetIpic_Ex1()
    Dim TargetSh As Worksheet
    Dim lRet As Long
    Dim IPictRet As IPictureDisp
    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    lRet = ObjToVBA.fPageSetpMgrPictGetIpic(TargetSh, "LeftHeader", "Default", IPictRet)

    If lRet = 0 And Not IPictRet Is Nothing 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

Veja notas sobre métodos Early and Late Binding.

10 - Função fPageSetpMgr():

Esta função possibilita exibir os formulários principais que compõem a interface de usuário do Gerenciador de Configuração de Página a partir de qualquer código VBA tal como acionar os comandos no menu do Excel. Funciona de forma sincrônica, ou seja, o código VBA fica em espera enquanto ações são feitas no formulário até este ser fechado pelo usuário.

   = fPageSetpMgr(BotForm)

1 - BotForm As Variant (Opcional. Padrão=1). Define o formulário a exibir:

     1 - Exibe o formulário "Copiar Configurações de Página Seletivamente".

     2 - Exibe o formulário “Restaurar Configurações de Página Seletivamente”.

     3 - Exibe o formulário "Gerenciar Figuras em Cabeçalho/Rodapé".

A função fPageSetpMgr() pode dar os seguintes retornos:
     lRet = 0 (Sucesso).

Exemplo:

1 - O código abaixo exibe o formulário "Gerenciar Figuras em Cabeçalho/Rodapé".

Sub fPageSetpMgr_Ex1()
    Dim BotForm As Variant
    Dim lRet As Long
    BotForm = 3

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    lRet = ObjToVBA.fPageSetpMgr(BotForm)

    If lRet <> 0 Then MsgBox "Error Nº: " & lRet, vbCritical, "Fail!"
    Set ObjToVBA = Nothing
End Sub

Veja notas sobre métodos Early and Late Binding.

11 - Função fGetVersion():

Esta função possibilita obter o número da versão instalada a partir de qualquer código VBA, retornando um número no formato 0.0.0.

   = fGetVersion()

Exemplo:

1 - O código abaixo chama a função fGetVersion() para verificar se a versão instalada está atualizada.

Sub fGetVersion_Ex1()
    Dim sRet
    Dim vCallVerOld As Variant

    Dim ObjToVBA As Object
    Set ObjToVBA = Application.Run("ExcelPageSetpMgr.CreateObj")
    sRet = ObjToVBA.fGetVersion()

    If Err.Number <> 0 Then
        MsgBox "The 'Page Setup Manager for Excel' as COM add-in not found!"
    Else
        vCallVerOld = Split(sRet, ".")
        vCallVerOld = vCallVerOld(0) * 10 ^ 6 + vCallVerOld(1) * 10 ^ 3 + vCallVerOld(2)
        If vCallVerOld < 2000000 Then MsgBox "The 'Page Setup Manager for Excel' " & sRet & " found is old!"
        If vCallVerOld >= 2000000 Then MsgBox "The 'Page Setup Manager for Excel' " & sRet & " found is updated for this code!"
    End If
    Set ObjToVBA = Nothing
End Sub

Veja notas sobre métodos Early and Late Binding.

Registrar por Compra ou Passe Livre Grátis:

1 - Porque e Como:

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

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: ibyE4575 (Oito caracteres maiúsculos/minúsculos)

Chave: D9AD (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.

Mais informação

Home