[EXCEL]Modifier les marges d'une page dans Excel

Version imprimable

06/01/2004, 11h29
ms91fr

[EXCEL]Modifier les marges d'une page dans Excel

Bonjour,

J'utilise un composant, le TExcelApplication et j'aimerais avoir si il y a un moyen de redefinir les marges de la mise en page avec ce composant...ou un autre...

Merci a tous de votre aide.
06/01/2004, 12h15
cprogil

Souvent, lorsque j'ai besoin de réaliser des opérations dans excel, je crée une macro dans le tableau et je l'exécute :wink:
06/01/2004, 12h24
ms91fr

Tu aurais un exemple de code car la, je suis completement perdue...
06/01/2004, 15h05
cprogil

Je vais essayer de te créer un exemple avec OLE d'ici 30minutes :wink:

Voici l'exemple:
il faut décalrer dans la section uses
comObj, ComCtrls

initialisation:

Code:

1
2
3
 
var MsExcel: Variant;
var NomDoc:string;

et le code proprement dit:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    nomdoc := Nomdoc + '.xlt';
    try
     MsExcel := CreateOleObject('Excel.Application.9');
    except
     ShowMessage('Impossible de lancer Excel');
     Screen.Cursor := crDefault;
    exit;
    end;
    msExcel.workbooks.add (template:= NomDoc);
    // valeur des marges données en pouces dans l'exemple 1cm
    msExcel.ActiveSheet.PageSetup.LeftMargin :=       msExcel.Application.InchesToPoints(0.393700787401575);
        msExcel.ActiveSheet.PageSetup.RightMargin := msExcel.Application.InchesToPoints(0.393700787401575);

j'ai testé ça marche
:wink:
Bon courage :!: :D