b PAGE SETUP MANAGER for Microsoft Excel

Download   Home  Ads        

What's new

This utility is a COM add-in or add-in (.xla) programmed in Microsoft® Visual Basic® for Application (VBA) that allows selectively resetting or copying from a sheet to another sheet or to a batch of sheets all the page settings defined by the Microsoft® Excel® 'Page Setup ...' command including all the header and footer picture settings of the sheets previously saved. Therefore, you can set up all and any page setting in a sheet and save to be copied indefinitely in the future for other sheets, similar to a template. See the pictures below.

It also manages the header and footer pictures, making it possible to insert picture in any of six header/footer positions (18 positions, differentiating the first page and even pages in Excel 2007, 2010, or 2013) and to move them along the page, down, up, right or left and under or over the sheet contents (ideal to simulate up to nine printed watermarks and nine printed stampmarks). It inserts picture from files saved on the disk, from texts inserted by the user, or from selections pointed by the user on any open sheet. Everything can be done via user interface, see the pictures below, or via functions provided to the user VBA project, see items after the pictures.

Watermark normally is a ghosted text picture that is behind the content on the printed page. This is often used to indicate that a printed document is to be treated as specially, such as DRAFT, URGENT or CONFIDENTIAL. Pictures saved in several file formats (gif, jpg, bmp, etc.) can too be used to improve the aesthetics and to personalize printed documents. While stampmark is something similar that is over the content on the printed page.

It consists of only one file, the ExcelPageSetpMgr.dll, which is about 560 kb in size and can be installed automatically using one of the installer package files available below to download. Except for the DLL, no other setting is saved in the Microsoft® Windows® Register. Its setting is saved in ExcelPageSetpMgr.ini and ExcelPageSetpMgr.xlam files that are created and maintained by the proper utility. You also can uninstall it automatically using the same installer file, leaving no mess on your Windows Register or disc.

Features:

- Reset or copy between sheets the page settings defined by the Excel 'Page Setup ...' command.

- Reset or copy selectively, so you can select one, some, or all of the settings before resetting or copying.

- Supports copying or resetting (deleting) the header and footer pictures of the sheets saved and closed and then reopened.

- Supports copying all the settings made directly in the header and footer pictures. For example, a picture originally set up to act as a printed watermark will be copied and act as such on the destination sheet.

- Supports copying between sheets in the same workbook or in different workbooks opened in Excel.

- Supports open workbooks saved to disk and creates new workbooks and sheets during a run.

- Supports resetting or copying at once to all sheets in a workbook or to all sheets in all workbooks properly opened in Excel.

- When resetting or copying at once to more than one sheet, it can optionally alert before every copy or reset, making it possible to jump over sheets to avoid changes in those sheets.

- The picture inclusion in any of six header/footer positions (18 positions, differentiating the first page and even pages in Excel 2007, 2010, or 2013) can be made from any picture saved in a file format that is recognized by Excel (e.g., *.emf; *.wmf; *.jpg; *.jpeg; *.jfif; *.jpe; *.png; *.bmp; *.dib; *.rle; *.gif; *.bmz; *.gfa; *.emz).

- Text or phrases, such as DRAFT, CONFIDENTIAL, URGENT, can be made and inserted as a picture as well.

- A picture also can be made from any selection indicated by the user on any open sheet and inserted as well. The selection can be a cell, a cell range, an object, or a group of objects over the sheet (e.g., a chart, WordArt, a diagram, a shape, or AutoShape).

- A picture inserted in any of the possible positions can be moved along the page, down, up, right or left and under or over the sheet contents (ideal to simulate printed watermark or stampmark).

- The picture can be centered in three different area options: the total area of the paper, the area under cell sheet plus the header and footer area, or just the area under the cell sheet.

- In Excel 2007, 2010, or 2013, after the picture is moved or centralized, it can be optionally anchored on the left margin of the print area to follow any changes in its size.

- In Excel 2007, 2010, or 2013, different pictures can be inserted on the first page, on the odd pages, or on the even pages, totalizing 18 positions of different picture entries.

- You can adjust the color, brightness, contrast, position, and size of the picture; set up the page (e.g., change the paper size or margins); change the printer; and see a print preview without the need to exit from the inclusion forms.

- The inserted picture can also be moved or enlarged beyond the limits of the paper (i.e., create an oversized image) if so desired.

- Without exiting the form, you can insert a watermark on any of the sheets in any workbooks already open in Excel.

- All these features are available via the interface and also via VBA using nine UDF functions. See below the pictures for a detailed description of each of these nine functions and examples of VBA code that call them.

- After installed, the utility is called from the Excel File Menu > Page Setup Manager Submenu or in Excel 2007, 2010, or 2013 from Ribbon > Page Layout Tab > PagSetup Manager Menu.

Download:

Tested in Excel for Windows, versions 2002(XP), 2003, 2007, 2010 (32-bit), 2013 (32-bit), and 2016 (32-bit) in MSI-based and Click-To-Run installations of Office 365™ cloud-based services.

Download

Download the English version now

Serial: OD9ZL5C1  Key: A977

To remove limits, use the Serial and the Key
offered above, a free pass for 30 days trial, or
purchase the Serial now forever.

You also can download from this mirror site

Last update: 02/20/2017 - 764.7kb

Note: The above link downloads the installer and uninstaller package programmed in VBA in a XLS duly converted to EXE by the XLtoEXE to make the installation easier for macro and Microsoft® Windows® laymen; however, if you're an expert and for some reason prefer an installer and uninstaller package in open ZIP format, click here. With this zip package you can install it in three ways: (1) Simply initiate the Install.exe that loads the same XLS in Excel without macro alert; (2) Extract the entire package to a folder and initiate the XLS, enabling the macros in Excel and using 123 as password, or (3) Install the DLL manually.

Pictures:

Picture

Available Functions for VBA Projects (UDFs):

All features and options available in the interface are also available for VBA projects via the nine functions described below. Thus, for example, a programmer can make a chart on a sheet be printed as a watermark or stampmark on another sheet all silently and flexibly via VBA code.

1 - fPageSetpMgrCopy() - Copy selectively from a sheet to another sheet all the page settings defined by the Excel 'Page Setup ...' command including all the header and footer picture settings of a sheet previously saved.

2 - fPageSetpMgrPictInsFile() - Insert a picture saved in file in any of the six header/footer positions (18 positions, differentiating the first page and even pages in Excel 2007, 2010, or 2013).

3 - PageSetpMgrPictInsText() - Insert a text or phrase, such as DRAFT, CONFIDENTIAL, URGENT as picture in any of the header/footer positions.

4 - fPageSetpMgrPictInsObj() - Insert a sheet object as picture in any of the header/footer positions. The sheet object can be a cell (e.g., Range("A1")), a cell range (e.g., Range("A1:D10")), an object, or a group of objects over the sheet (e.g., a chart, WordArt, a diagram, a shape, or AutoShape).

5 - fPageSetpMgrPictMove() - Move along the page a picture inserted in any of the header/footer positions, down, up, right or left and under or over the sheet contents (ideal to simulate printed watermark or stampmark). It can have as reference, inclusive to center, three different area options: the total area of the paper, the area under cell sheet plus the header and footer area, or just the area under the cell sheet.

6 - fPageSetpMgrPictMoveInc() - Also move along the printed page a picture inserted in any of the header/footer positions, but it moves incrementing from its current position, down, up, right or left.

7 - fPageSetpMgrPictSize() - Change the size of a picture inserted in any of the header/footer positions preserving its upper-left corner current position along the page.

8 - fPageSetpMgrPictGetProp() - Get the following properties of a picture inserted in any of the header/footer positions: current width and height, original width and height, and horizontal and vertical displacements of upper-left corner relative to the upper-left corner of the paper.

9 - fPageSetpMgrPictGetIpic() - Get the IPicture object of a picture inserted in any of the header/footer positions, allowing to save the picture to a file on disk using VBA built-in SavePicture() function or insert it in any part of Excel or of another application that supports Automation using VBA built-in LoadPicture() function.

Follow the detailed descriptions of these functions with their arguments and examples of VBA codes that call them.

 

1 - fPageSetpMgrCopy() Function:

This function copies selectively from a sheet to another sheet all the page settings defined in the dialog box displayed by the Excel 'Page Setup ...' command including all the header and footer picture settings of a sheet previously saved. It has 19 arguments passed by position.

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

1 - SourceSheet As Worksheet (Required). Source sheet to the copy of the page settings selected by the argument 3 to 19. Should be defined and passed as Worksheet object.

2 - DestSheet As Worksheet (Required). Destination sheet to the copy of the page settings selected by the argument 3 to 19. Should be defined and passed as Worksheet object.

3 - Orientation As Boolean (Optional. Default=False). Copy the setting set to page orientation in the Page tab.

4 - Scaling As Boolean (Optional. Default=False). Copy the settings set in the three options of the Scaling section in the Page tab.

5 - PaperSize As Boolean (Optional. Default=False). Copy the setting set to paper size in the Page tab.

6 - PrintQuality As Boolean (Optional. Default=False). Copy the setting set to the print quality in the Page tab.

7 - FirstPageNumber As Boolean (Optional. Default=False). Copy the setting set to first page number in the Page tab.

8 - Magins As Boolean (Optional. Default=False). Copy the settings set in the six margin measurement options in the Margins tab.

9 - CenterOnPage As Boolean (Optional. Default=False). Copy the settings set in the two options of the Center on page section in the Margins tab.

10 - LeftHeaderPict As Boolean (Optional. Default=False). Copy all settings set to the left header entry position in the Header/footer tab including picture settings. In Excel 2007, 2010, or 2013, the options to differentiate header in the first page and in even page are also copied and the picture and referent settings as well.

11 - CenterHeaderPict As Boolean (Optional. Default=False). Idem for center header entry position.

12 - RightHeaderPict As Boolean (Optional. Default=False). Idem for right header entry position.

13 - LeftFooterPict As Boolean (Optional. Default=False). Idem for left footer entry position.

14 - CenterFooterPict As Boolean (Optional. Default=False). Idem for center footer entry position.

15 - RightFooterPict As Boolean (Optional. Default=False). Idem for right footer entry position.

16 - PrintArea As Boolean (Optional. Default=False). Copy the setting set to print area in the Sheet tab.

17 - PrintTitles As Boolean (Optional. Default=False). Copy the settings set in the two options of the Print titles section in the Sheet tab.

18 - PrintOpts As Boolean (Optional. Default=False). Copy the settings set in the five options of the Print section in the Sheet tab.

19 - PageOrder As Boolean (Optional. Default=False). Copy the settings set in the two options of the Page order section in the Sheet tab.

Exemple:

1 - The code below copies all the page settings of a new sheet to all sheets in the workbook of this code. It means the same as restoring page settings according to the current template for creating new sheets.
 Sub YourSub1()
     Dim SrcSh As Worksheet
     Dim DestSh As Worksheet
     Dim lRet As Long

     If MsgBox("All page settings will be reset in all sheets of this workbook. Ok?", vbOKCancel) = vbCancel Then Exit Sub

    Set SrcSh = Workbooks.Add(xlWBATWorksheet).Sheets(1)     'New sheet to copy resetting others sheets

    Dim ObjToVBA As Object     'See Note below
    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

Note: Replace 'As Object' by 'As PageSetpMgrObjToVBA', if you prefer Early Binding method, but you have to use Tools/References... menu and add "Page Setup Manager for Excel © 2010/2010 by Francisco Orlando Magalhães Filho." reference. This method makes easy to view the names and positions of function arguments.

The fPageSetpMgrCopy() function can give the following returns:
     lRet = 0 (Success).
     lRet = 1 (Fail: Source sheet wasn’t informed or wasn’t found).
     lRet = 2 (Fail: Destination sheet wasn’t informed or wasn’t found).
     lRet = 3 (Fail: The file path of a picture to copy was lost and wasn’t possible to restore).
     lRet = 1001 (Fail: Installation not registered).

 

2 - fPageSetpMgrPictInsFile() Function:

This function inserts a picture saved in file in any of the six header/footer positions (18 positions, differentiating the first page and even pages in Excel 2007, 2010, or 2013). It has six arguments passed by position.

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

1 - TargetSheet As Worksheet (Required). The target sheet where the picture will be inserted. Should be defined and passed as Worksheet object.

2 - HeaderFooterPos As String (Required). The header/footer position where the picture will be inserted. Should be one of these six strings:

     "LeftHeader" - To the left header position.

     "CerterHeader" - To the center header position.

     "RightHeader" - To the right header position.

     "LeftFooter" - To the left footer position.

     "CenterFooter" - To the center footer position.

     "RightFooter" - To the right footer position.

3 - PageType As String (Required). Page type where the picture will be inserted. Should be one of these three strings:

     "Default" - To default page.

     "First" - To first page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the first page).

     "Even" - To even page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the even pages).

4 - FileFullName As String (Required). Name and path of the file contains a picture to insert in format recognized by Excel (e.g., *.emf; *.wmf; *.jpg; *.jpeg; *.jfif; *.jpe; *.png; *.bmp; *.dib; *.rle; *.gif; *.bmz; *.gfa; *.emz).

5 - RefArea As Long (Optional, 0 to 3. Default=1). Reference area to center the inserted picture along the printed page, where:

     0 - Not center and not move the picture along the page, preserving the position in the page as the Excel default in each header or footer entry point.

     1 - Center in the total area of the paper.

     2 - Center in the area under cell sheet plus the header and footer area.

     3 - Center in the area under the cell sheet only.

6 - Brighten As Boolean (Optional. Default=True). Brighten the inserted picture using Excel watermark default image properties.

Example:

1 - The code below inserts a picture from YourPicture.wmf file in the left header position of default printed page of the sheet 2 of the active workbook. After inserted, the picture will be center along the total area of the paper and brighten using Excel watermark default image properties.
 Sub YourSub1()
    Dim TargetSh As Worksheet
    Dim lRet As Long

    Set TargetSh = ActiveWorkbook.Sheets(2)

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

    Set ObjToVBA = Nothing
 End Sub

The fPageSetpMgrPictInsFile() function can give the following returns:
     lRet = 0 (Success);
     lRet = 1 (Fail: Target sheet wasn’t informed or wasn’t found).
     lRet = 2 (Fail: The header/footer position informed doesn't exist or isn't supported by the Excel version in use).
     lRet = 3 (Fail: The page type informed isn't valid or isn't supported by the current Excel version).
     lRet = 4 (Fail: The picture file to insert wasn't found).
     lRet = 5 (Fail: Invalid picture or file format).
     lRet = 1001 (Fail: Installation not registered).

 

3 - PageSetpMgrPictInsText() Function:

This function inserts a text or phrase, such as DRAFT, CONFIDENTIAL, URGENT as picture in any of the header/footer positions. It has 11 arguments passed by position.

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

1 - TargetSheet As Worksheet (Required). The target sheet where the text as picture will be inserted. Should be defined and passed as Worksheet object.

2 - HeaderFooterPos As String (Required). The header/footer position where the text as picture will be inserted. Should be one of these six strings:

     "LeftHeader" - To the left header position.

     "CerterHeader" - To the center header position.

     "RightHeader" - To the right header position.

     "LeftFooter" - To the left footer position.

     "CenterFooter" - To the center footer position.

     "RightFooter" - To the right footer position.

3 - PageType As String (Required). Page type where the text as picture will be inserted. Should be one of these three strings:

     "Default" - To default page.

     "First" - To first page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the first page).

     "Even" - To even page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the even pages).

4 - Text As String (Required). Text or phrase to be inserted as picture.

5 - FontName As String (Optional. Default="Times New Roman"). Font name to format the text. The font should be installed in the Windows.

6 - FontSize As Long (Optional, 36 to 150. Default=Auto). Font size to format the text. Ignore to auto size according to the picture size to fit on the printed area.

7 - FontColor As Long (Optional, RGB(0, 0, 0) to RGB(255, 255, 255). Default=RGB(210, 210, 210)). Font color to format the text.

8 - PresetEffect As Long (Optional, 0 to 29. Default=0). Preset effect from WordArt to format the text.

9 - Transparency As Double (Optional, 0 to 100. Default=50). Transparency degree to format the text from 0 (opaque) to 1 (clear). Ignore to make the text semitransparent.

10 - RotLayout As Long (Optional, 0 to 359. Default=315). Rotation layout to format the text. Common layout: 0 (Horizontal), 270 (Vertical) e 315 (Diagonal).

11 - RefArea As Long (Optional, 0 to 3. Default=1). Reference area to size and/or center the text as picture along the printed page, where:

     0 - Not center and not move the text as picture along the page, preserving the position in the page as the Excel default in each header or footer entry point.

     1 - Center in the total area of the paper and size the text as picrture relative to it.

     2 - Center in the area under cell sheet plus the header and footer area and size the text as picrture relative to it.

     3 - Center in the area under the cell sheet only and size the text as picrture relative to it.

Example:

1 - The code below inserts "DRAFT" text as picture in the left header position of default printed page of the sheet 2 of the active workbook. The picture will be made in a size to fit in the page and, after inserted, it will be center along the total area of the paper.
 Sub YourSub1()
    Dim TargetSh As Worksheet
    Dim lRet As Long

    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object     'See Note
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object
    lRet = ObjToVBA.fPageSetpMgrPictInsText(TargetSh, "LeftHeader", "Default", "DRAFT")

    Set ObjToVBA = Nothing
 End Sub

The fPageSetpMgrPictInsText() function can give the following returns:
     lRet = 0 (Success);
     lRet = 1 (Fail: Target sheet wasn’t informed or wasn’t found).
     lRet = 2 (Fail: The header/footer position informed doesn't exist or isn't supported by the Excel version in use).
     lRet = 3 (Fail: The page type informed isn't valid or isn't supported by the current Excel version).
     lRet = 4 (Fail: The picture file to insert wasn't found).
     lRet = 5 (Fail: Invalid picture or file format).
     lRet = 6 (Fail: Unable to mount the picture of the text).
     lRet = 1001 (Fail: Installation not registered).

 

4 - fPageSetpMgrPictInsObj() Function:

This function inserts a sheet object as picture in any of the header/footer positions. The sheet object can be a cell (e.g., Range("A1")), a cell range (e.g., Range("A1:D10")), an object, or a group of objects over the sheet (e.g., a chart, WordArt, a diagram, a shape, or AutoShape). It has six arguments passed by position.

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

1 - TargetSheet As Worksheet (Required). The target sheet where the object as picture will be inserted. Should be defined and passed as Worksheet object.

2 - HeaderFooterPos As String (Required). The header/footer position where the object as picture will be inserted. Should be one of these six strings:

     "LeftHeader" - To the left header position.

     "CerterHeader" - To the center header position.

     "RightHeader" - To the right header position.

     "LeftFooter" - To the left footer position.

     "CenterFooter" - To the center footer position.

     "RightFooter" - To the right footer position.

3 - PageType As String (Required). Page type where the object as picture will be inserted. Should be one of these three strings:

     "Default" - To default page.

     "First" - To first page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the first page).

     "Even" - To even page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the even pages).

4 - ShpOrRng As Object (Optional. Default=Current selection). Sheet object or selection to be inserted as picture.The sheet object can be a cell (e.g., Range("A1")), a cell range (e.g., Range("A1:D10")), an object, or a group of objects over the sheet (e.g., a chart, WordArt, a diagram, a shape, or AutoShape). When the object is a cell range, its cell contents, its cell formats including border, and all objects or parts just over its cells will appear in the picture like take a photo of the cells with camara or WYSWYG (What You See What You Get).

5 - RefArea As Long (Optional, 0 to 3. Default=1). Reference area to center the picture along the printed page, where:

     0 - Not center and not move the picture along the page, preserving the position in the page as the Excel default in each header or footer entry point.

     1 - Center in the total area of the paper.

     2 - Center in the area under cell sheet plus the header and footer area.

     3 - Center in the area under the cell sheet only.

6 - Brighten As Boolean (Optional. Default=True). Brighten the inserted picture using Excel watermark default image properties.

Example:

1 - The code below inserts Chart 1 of the sheet 3 as picture in the left header position of default printed page of the sheet 2 on active workbook. After inserted, the picture will be center along the total area of the paper and brighten using Excel watermark default image properties.

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

    Set TargetSh = ActiveWorkbook.Sheets(2)

    Dim ObjToVBA As Object     'See Note
    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

The fPageSetpMgrPictInsObj() function can give the following returns:
     lRet = 0 (Success);
     lRet = 1 (Fail: Target sheet wasn’t informed or wasn’t found).
     lRet = 2 (Fail: The header/footer position informed doesn't exist or isn't supported by the Excel version in use).
     lRet = 3 (Fail: The page type informed isn't valid or isn't supported by the current Excel version).
     lRet = 4 (Fail: The picture file to insert wasn't found).
     lRet = 5 (Fail: Invalid picture or file format).
     lRet = 6 (Fail: The object informed isn't valid).
     lRet = 7 (Fail: The object informed isn't a valid sheet object).
     lRet = 8 (Fail: The object informed is a valid sheet object, but it wasn't possible to copy it).
     lRet = 9 (Fail: Error when creating temp picture).
     lRet = 1001 (Fail: Installation not registered).

 

5 - fPageSetpMgrPictMove() Function:

This function moves along the printed page a picture inserted in any of the header/footer positions, down, up, right or left and under or over the sheet contents (ideal to simulate printed watermark or stampmark). It can have as reference, inclusive to center, three different area options: the total area of the paper, the area under cell sheet plus the header and footer area, or just the area under the cell sheet. It has six arguments passed by position.

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

1 - TargetSheet As Worksheet (Required). The target sheet where the header/footer picture will be moved along the page. Should be defined and passed as Worksheet object.

2 - HeaderFooterPos As String (Required). The header/footer position where the picture will be moved along the printed page. Should be one of these six strings:

     "LeftHeader" - To the left header position.

     "CerterHeader" - To the center header position.

     "RightHeader" - To the right header position.

     "LeftFooter" - To the left footer position.

     "CenterFooter" - To the center footer position.

     "RightFooter" - To the right footer position.

3 - PageType As String (Required). Page type where the header/footer picture will be moved along the page. Should be one of these three strings:

     "Default" - To default page.

     "First" - To first page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the first page).

     "Even" - To even page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the even pages).

4 - MoveLeft As Double (Optional. Default=Center horizontally). It specifies the horizontal coordinate to move the picture and is measured in points from the upper-left corner of the reference area set by RefArea argument to the upper-left corner of the picture. A point is 1/72 of an inch.

5 - MoveTop As Double (Optional. Default=Center vertically). It specifies the vertical coordinate to move the picture and is measured in points from the upper-left corner of the reference area set by RefArea argument to the upper-left corner of the picture. A point is 1/72 of an inch.

6 - RefArea As Long (Optional, 1 to 3. Default=1). Reference area to move or center the picture along the printed page. The picture will be centralized horizontally if the MoveLeft argument is ignored and/or vertically if MoveTop arguments is ignored. Where:

     1 - Center in the total area of the paper or move having its upper-left corner as reference.

     2 - Center or move in the area under cell sheet plus the header and footer area or move having its upper-left corner as reference.

     3 - Center in the area under the cell sheet only or move having its upper-left corner as reference.

Example:

1 - The code below moves the picture inserted in the left header position of default printed page of the sheet 2 on active workbook. The upper-left corner of the picture will be moved 200pt left and 200pt down from the top of the upper-left corner of total area of the paper.

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

    Set TargetSh = ActiveWorkbook.Sheets(2)

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

    Set ObjToVBA = Nothing
 End Sub

The fPageSetpMgrPictMove() function can give the following returns:
     lRet = 0 (Success);
     lRet = 1 (Fail: Target sheet wasn’t informed or wasn’t found).
     lRet = 2 (Fail: The header/footer position informed doesn't exist or isn't supported by the Excel version in use).
     lRet = 3 (Fail: The page type informed isn't valid or isn't supported by the current Excel version).
     lRet = 4 (Fail: There is no picture in the header/footer position informed).
     lRet = 5 (Fail: Unable to get the paper size).
     lRet = 1001 (Fail: Installation not registered).

 

6 - fPageSetpMgrPictMoveInc() Function:

This function also moves along the printed page a picture inserted in any of the header/footer positions, but it moves incrementing from its current position, down, up, right or left. It has five arguments passed by position.

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

1 - TargetSheet As Worksheet (Required). The target sheet where the header/footer picture will be moved along the page. Should be defined and passed as Worksheet object.

2 - HeaderFooterPos As String (Required). The header/footer position where the picture will be moved along the printed page. Should be one of these six strings:

     "LeftHeader" - To the left header position.

     "CerterHeader" - To the center header position.

     "RightHeader" - To the right header position.

     "LeftFooter" - To the left footer position.

     "CenterFooter" - To the center footer position.

     "RightFooter" - To the right footer position.

3 - PageType As String (Required). Page type where the header/footer picture will be moved along the page. Should be one of these three strings:

     "Default" - To default page.

     "First" - To first page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the first page).

     "Even" - To even page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the even pages).

4 - IncrLeft As Double (Optional. Default=0). It specifies the horizontal displacement to move the picture and is measured in points from its current position.

5 - IncrTop As Double (Optional. Default=0). It specifies the vertical displacement to move the picture and is measured in points from its current position. A point is 1/72 of an inch.

Example:

1 - The code below moves the picture in the left header position of default printed page of the sheet 2 on active workbook. The picture will be moved 200pt left and 200pt down from its current position.

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

    Set TargetSh = ActiveWorkbook.Sheets(2)

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

    Set ObjToVBA = Nothing
 End Sub

The fPageSetpMgrPictMoveInc() function can give the following returns:
     lRet = 0 (Success);
     lRet = 1 (Fail: Target sheet wasn’t informed or wasn’t found).
     lRet = 2 (Fail: The header/footer position informed doesn't exist or isn't supported by the Excel version in use).
     lRet = 3 (Fail: The page type informed isn't valid or isn't supported by the current Excel version).
     lRet = 4 (Fail: There is no picture in the header/footer position informed).
     lRet = 5 (Fail: Unable to get the paper size).
     lRet = 1001 (Fail: Installation not registered).

 

7 - fPageSetpMgrPictSize() Function:

This function changes the size of a picture inserted in any of the header/footer positions preserving its upper-left corner current position along the page. It has five arguments passed by position.

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

1 - TargetSheet As Worksheet (Required). The target sheet where the header/footer picture will be sized. Should be defined and passed as Worksheet object.

2 - HeaderFooterPos As String (Required). The header/footer position where the picture will be sized. Should be one of these six strings:

     "LeftHeader" - To the left header position.

     "CerterHeader" - To the center header position.

     "RightHeader" - To the right header position.

     "LeftFooter" - To the left footer position.

     "CenterFooter" - To the center footer position.

     "RightFooter" - To the right footer position.

3 - PageType As String (Required). Page type where the header/footer picture will be sized. Should be one of these three strings:

     "Default" - To default page.

     "First" - To first page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the first page).

     "Even" - To even page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the even pages).

4 - SizeWidth As Double (Optional). It specifies the width of the picture, measured in points.

5 - SizeHeight As Double (Optional). It specifies the height of the picture, measured in points. A point is 1/72 of an inch.

Note: SizeWidth and SizeHeight are optional and one or both can be ignored. If one of them is ignored it will change with the other according to the current aspect ratio. If both are ignored the picture original size will be restored.

Example:

1 - The code below sizes the picture in the left header position of default printed page of the sheet 2 on active workbook. The picture will be sized by height that will be changed to 120pt while its width will be changed according its current aspect ratio.

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

    Set TargetSh = ActiveWorkbook.Sheets(2)

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

    Set ObjToVBA = Nothing
 End Sub

The fPageSetpMgrPictSize() function can give the following returns:
     lRet = 0 (Success);
     lRet = 1 (Fail: Target sheet wasn’t informed or wasn’t found).
     lRet = 2 (Fail: The header/footer position informed doesn't exist or isn't supported by the Excel version in use).
     lRet = 3 (Fail: The page type informed isn't valid or isn't supported by the current Excel version).
     lRet = 4 (Fail: There is no picture in the header/footer position informed).
     lRet = 5 (Fail: Unable to get the paper size).
     lRet = 1001 (Fail: Installation not registered).

 

8 - fPageSetpMgrPictGetProp() Function:

This function gets the following properties of a picture inserted in any of the header/footer positions: current width and height, original width and height, and horizontal and vertical displacements of upper-left corner relative to the upper-left corner of the paper. It has nine arguments passed by position.

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

1 - TargetSheet As Worksheet (Required). The target sheet where the header/footer picture to get the properties is inserted. Should be defined and passed as Worksheet object.

2 - HeaderFooterPos As String (Required). The header/footer position where the picture to get properties is inserted. Should be one of these six strings:

     "LeftHeader" - To the left header position.

     "CerterHeader" - To the center header position.

     "RightHeader" - To the right header position.

     "LeftFooter" - To the left footer position.

     "CenterFooter" - To the center footer position.

     "RightFooter" - To the right footer position.

3 - PageType As String (Required). Page type where the header/footer picture to get properties is inserted. Should be one of these three strings:

     "Default" - To default page.

     "First" - To first page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the first page).

     "Even" - To even page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the even pages).

4 - CurrWidthRet As Double (Optional). It returns the current width of the picture, measured in points.

5 - CurrHeightRet As Double (Optional). It returns the current height of the picture, measured in points.

6 - OrigWidthRet As Double (Optional). It returns the current width of the picture, measured in points.

7 - OrigHeightRet As Double (Optional). It returns the current height of the picture, measured in points.

8 - MoveLeftRet As Double (Optional). It returns the current horizontal displacement of the picture upper-left corner relative to the upper-left corner of the paper.

9 - MoveTopRet As Double (Optional). It returns the current vertical displacement of the picture upper-left corner relative to the upper-left corner of the paper.

Note: Each argument from 4 to 9 should be dully declared to be passed by reference for that the return of value can be done by it.

Example:

1 - The code below gets current and original heights of the picture in the left header position of default printed page of the sheet 2 on active workbook.

 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     'See Note
    Set ObjToVBA = Application.COMAddIns("AddInPageSetpMgr.ExcelDesigner").Object
    lRet = ObjToVBA.fPageSetpMgrPictGetProp(TargetSh, "LeftHeader", "Default", , CurrHeightRet, , OrigHeightRet)

    If lRet = 0 Then MsgBox ("The picture current height is " & CurrHeight & "pt and its original height was " & OrigHeight & "pt.") _
        Else MsgBox ("The fPageSetpMgrPictGetProp() function returned the error number " & lRet & "!")

    Set ObjToVBA = Nothing
 End Sub

The fPageSetpMgrPictGetProp() function can give the following returns:
     lRet = 0 (Success);
     lRet = 1 (Fail: Target sheet wasn’t informed or wasn’t found).
     lRet = 2 (Fail: The header/footer position informed doesn't exist or isn't supported by the Excel version in use).
     lRet = 3 (Fail: The page type informed isn't valid or isn't supported by the current Excel version).
     lRet = 4 (Fail: There is no picture in the header/footer position informed).
     lRet = 5 (Fail: Unable to get the paper size).
     lRet = 1001 (Fail: Installation not registered).

 

9 - fPageSetpMgrPictGetIpic() Function:

This function gets the IPicture object of a picture inserted in any of the header/footer positions, allowing to save the picture to a file on disk using VBA built-in SavePicture() function or insert it in any part of Excel or of another application that supports Automation using VBA built-in LoadPicture() function. It has four arguments passed by position.

   = fPageSetpMgrPictGetIpic(TargetSheet, HeaderFooterPos, PageType, IPictRet)

1 - TargetSheet As Worksheet (Required). The target sheet where the header/footer picture to get the IPicture object is inserted. Should be defined and passed as Worksheet object.

2 - HeaderFooterPos As String (Required). The header/footer position where the picture to get the IPicture object is inserted. Should be one of these six strings:

     "LeftHeader" - To the left header position.

     "CerterHeader" - To the center header position.

     "RightHeader" - To the right header position.

     "LeftFooter" - To the left footer position.

     "CenterFooter" - To the center footer position.

     "RightFooter" - To the right footer position.

3 - PageType As String (Required). Page type where the header/footer picture to get the IPicture object is inserted. Should be one of these three strings:

     "Default" - To default page.

     "First" - To first page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the first page).

     "Even" - To even page (Excel 2007, 2010, or 2013 only, differentiating the header and the footer in the even pages).

4 - IPictRet As IPictureDisp (Required). It returns the IPicture object of the picture. It should be dully declared as IPictureDisp to be passed by reference for that the return of object can be done by it.

Example:

1 - The code below gets the IPicture object of the picture in the left header position of default printed page of the sheet 2 on active workbook. Then it uses the got IPicture object to save the picture in a file on the disk and open it on the 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     'See Note
    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

The fPageSetpMgrPictGetIpic() function can give the following returns:
     lRet = 0 (Success);
     lRet = 1 (Fail: Target sheet wasn’t informed or wasn’t found).
     lRet = 2 (Fail: The header/footer position informed doesn't exist or isn't supported by the Excel version in use).
     lRet = 3 (Fail: The page type informed isn't valid or isn't supported by the current Excel version).
     lRet = 4 (Fail: There is no picture in the header/footer position informed).
     lRet = 5 (Fail: Unable to restore the picture in the header/footer position informed).
     lRet = 6 (Fail: Unable to create IPicture object).
     lRet = 1001 (Fail: Installation not registered).

 

Register by Purchase or Free Pass:

You can register your currently operating utility installation by a simple Serial number purchased or obtained from a Free Pass for a 30 day trial.

1 - Why and How:

When registering your installation by the Serial number, the utility is fully legal and functional. In unregistered installation, this utility is limited to reset page settings and handle the picture of the header left position only via interface.

The installation of the proper version available above for download and evaluation can be easily registered. Once installed and running, click on the 'About...' label next to the ‘Close’ button on the main utility form, insert your Serial number, and follow the instructions to get the Registration Key that will be available for copying on an Internet homepage.

To register, you must acquire one of the available serial number types: Nominal Serial or Bearer Serial.

The Nominal Serial number is for Volume Licenses for companies and costs US$20.00 for a license for 25 computers and US$0.50 for each additional computer. You must provide user information in order to allow a minimum identification. To acquire a Nominal Serial number, send an email to orlando@cpap.com.br with the minimum following information: company name, the city and country in which the company is located, and the number of computers that you want to license.

The Bearer Serial number is simpler and cheaper to purchase. It can be purchased now with a simple money transfer through Paypal or Moneybookers international servers or PagSeguro for purchases in Brazil. Additionally, you can purchase it anonymously.

This process is very secure, privative, simple, and anonymous if you so choose. Without sharing financial info or filing an official registration, you can become the owner of a Serial number that gives utility use rights to its bearer in a personal and permanent way; thus, you can sell it hereafter if you choose.

The Bearer Serial below of eigth case sensitive characters is now available to you for only US$8.00.

 Serial: OD9ZL5C1

  

PayPal       Moneybookers   PagSeguro

2 - Free Pass:

You can already use the offered Serial with the Registration Key below with a free pass. The free pass enables you to test a registered and fully functional instalation freely for 30 days:

Serial: OD9ZL5C1 (Eight case sensitive characters)

Key: A977 (Four case sensitive characters)

Notes:

- To enter the Serial and the Key above, click on the 'About ..' label next to ‘Close’ button on the utility main form.

- The Serial will remain valid, but a new Key will be required after 30 days.

- If you, exceptionally, need to use it past 30 days, a new key can be obtained quickly in this dynamic link that is shown in the proper utility registration dialog box. The link is a homepage where you can obtain the Key copying or noting, because unfortunately, for security issues, this utility does not make connection with the Internet to obtain key.

- However, this is still easier and more convenient for you than trying to retrocede your computer calendar, but the best option is purchasing your Serial and getting your computer definitive Key.

- Your computer does not need to be connected to the Internet for you to be able to get a Key that has only four characters. You can type the dynamic link short address shown by the utility in the Microsoft® Internet Explorer® address bar of the other computer.

- You also can return to this page to get a new Serial and a new Key.

- Despite all these facilities, the intentional productive use of this utility out of the acceptable grace period for tests, normally 30 days, it is an illegal attitude.

 

3 - Technical Notes About Serial and Registration Key:

Buying the Serial gives you the definitive Registration Key, avoiding the necessity to get a new Key every 30 days.

When inserting the Serial of eight characters, the utility already installed makes a checksum of it, generating a new four characters that, together with the proper serial, are going to compound the dynamic link.

The dynamic link is showed in the utility dialog box exactly as it is, and the proper user, by clicking on it or copying it, inserts it into the address bar of Internet Explorer. This immediately returns a homepage with the suitable Registration Key to be copied or noted and inserted in the utility dialog box still by the proper user, because unfortunately, for security issues, this utility does not make a connection with the Internet to obtain a Key.

The Internet Explorer, or any Internet browser, does not need to be the one on your computer. It can be the browser of any other computer.

The checksum annexed to the Serial certainly does not carry any specific information from your computer due to three very simple reasons.. First, because it is a simple checksum of a string based in the proper Serial, try to change a character of the Serial and you will see that the Checksum changes, too. Secondly, because it is impossible put any valid information in, it only allows four characters. And thirdly, because it is always the same in your computer, therefore neither info part can be carried to an eventual composition.

The only purpose of the Registration Key is to avoid the Bearer Serial distribution on the Internet in an indiscriminate way. If you are a normal user and take care of your Serial, with certainty, you are not going to perceive any inconvenience, because:

- You can uninstall and install Windows and Office in your computer as many times as you want and as is necessary.

- You can format and change your computer HD.

- You can even use your computer HD in another computer and you won’t be required to get a new key.

- Your Serial can only go to required different Keys if it is used in other computers, but it is perfectly tolerable that you have one or two Desktops in the home and at work, and more one notebook and substitute them all by new ones in each six month period that your Serial returns automatically to the new state.

About Add-in (.xla):

Temporarily unavailable.

 

More information

Home

 





gplus

 

 

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