Hello,
Et voici quelque chose qui devrait t'aider...
sub Fusion
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0,
Array())
End Sub
---
Christophe Mathysen
Creanet.be
Internet Solutions - OOo Advies
Phone : +32 4 381 21 51 - Mobile : +32 4 95 93 35 89
Mainplace : Tiège 28 D - 4845 - Sart-Lez-Spa
Technic'Center : Hoofstraat 3 - 3793 - Fourons
BE 0863 843 594 - Fortis 001-3871566-81
Labelisé eTIC#247
Le lun 18/06/2007 à 14:14, zorglub.1er a écrit :
> Bonjour,
>
> Comment fusionner plusieures cellules dans calc avec une macro ?
>
> Il me semble qu'on peut utiliser la méthode mergeRange pour
> fusionner des cellules de tableau dans Writer, mais je ne sais
> pas comment l'utiliser, m'en servir dans Calc.
>
> Sinon, j'ai pensé à une autre solution (je ne sais pas si
> c'est réalisable) qui est d'utilisée à travers une macro la
> "fonction" déjà existante dans Format->Fusionner les cellules.
>
> Ainsi, dans la macro on "appele" la fonction "Fusionner les
> cellules" qu'on trouve dans Format->Fusionner les cellules.
>
> Mais je ne sais pas comment m'y prendre.
>
> D'avance merci pour votre aide ;0)
>
> Créez votre adresse électronique [EMAIL PROTECTED]
> 1 Go d'espace de stockage, anti-spam et anti-virus intégrés.
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
