headers
Didier Dorange-Pattoret | 19 Jan 22:13
Favicon

Insérer un dessin (shape) dans une galerie

Bonsoir,

avec le code ci-dessous, l'image essai2.png est insérée dans la galerie
mais pas odraw qui est un shapecollection (courbe fabriquée par Dmaths).

Avez-vous une idée ?

Merci et

cordialement.

/
sub InsertItem

//Dim inDexx as Long

//monDocument = ThisComponent
oGalleryThemes = createUnoService(
"com.sun.star.gallery.GalleryThemeProvider" )

Magal = oGalleryThemes.getByName("Toto")

//inDewxx = -1 /
/sUrl = convertToUrl("/home/didier/essai2.png")
Print Magal.insertURLByIndex (sUrl,inDexx)

inDewxx = 5
//odraw = ThisComponent.DrawPage.GetByIndex(0) /
/Print Magal.insertDrawingByIndex (odraw,inDexx)
(Continue reading)

Permalink | Reply | 0 comments |
headers
c c | 14 Jan 22:37
Picon

Emplacement d'un fichier


Bonjour,

La variable ThisComponent.location contient le chemin et le nom du fichier ouvert.

En existe-t-il une qui ne contienne que le chemin ?

Merci

Claude
 		 	   		  
_________________________________________________________________
Discutez en direct avec vos amis sur Messenger !
http://www.windowslive.fr/messenger
Permalink | Reply | 10 comments |
headers
Didier Dorange-Pattoret | 13 Jan 19:35
Favicon

Problème de repérage

Bonsoir,

La macro ci-dessous permet de mettre en place un Listener qui me donne
en cliquant la position de la souris.

Problème : si le document qui appelle la macro est un doc writer,
j'obtiens la position de la souris par rapport au rectangle grisé dans
lequel figure le document texte lui-même blanc.

Or je voudrais la position par rapport au rectangle blanc du texte.

Avez-vous une idée ?

Merci pour votre réponse.

/Sub RegisterMouseHandler
    oDocView = ThisComponent.getCurrentController
    oMouseListener =
CreateUnoListener("MonEssai_","com.sun.star.awt.XMouseClickHandler")
    oDocView.addMouseClickHandler(oMouseListener)
End Sub

Sub UnRegisterMouseHandler
    oDocView.removeMouseClickHandler(oMouseListener)
End Sub

Sub MonEssai_mousePressed(oEvt) as Boolean
    Print oEvt.X, oEvt.Y, oEvt.Buttons
    MonEssai_mousePressed = True
End Sub
(Continue reading)

Permalink | Reply | 0 comments |
headers
Didier Dorange-Pattoret | 17 Dec 22:18
Favicon

Lancer un macro après l'installation d'un addon

Bonsoir à tous,

Est-il possible de configurer un addon de telle sorte que le
gestionnaire des extensions lance une macro à la fin de la procédure
d'installation de l'addon ?

Merci pour vos réponses.

--

-- 
Didier Dorange-Pattoret

http://www.dmaths.org
http://sesamath.net

Soutenez le projet Dmaths : rejoignez le club ou faites adhérer votre établissement !
http://www.dmaths.org/documentation/doku.php?id=presentation:club
Permalink | Reply | 5 comments |
headers
Didier Dorange-Pattoret | 10 Dec 13:28
Favicon

Comment écrire dans un document Word existant 

Bonjour,

Le code ci-dessous tiré du livre "Programmation OOo3 " de chez Eyrolles
permet d'écrire Hello Word dans un *nouveau* document word.

Sub loading_MSWord( )
Dim oword As Object, odoc As Object

oword = CreateObject("Word.Application")
' l'objet va utiliser l'API de Word
oword.Visible = True
odoc = oword.Documents.Add
odoc.Range.Text = "Hello World!"
End Sub 

Comment faire pour écrire dans un document ouvert ?

Merci pour vos réponses.

--

-- 
Didier Dorange-Pattoret

http://www.dmaths.org
http://sesamath.net

Soutenez le projet Dmaths : rejoignez le club ou faites adhérer votre établissement !
http://www.dmaths.org/documentation/doku.php?id=presentation:club
Permalink | Reply | 3 comments |
headers
xavier roguiez | 8 Dec 18:09
Picon
Favicon

Librairie inaccessible

Bonsoir

j'avais stocké toutes mes macros fonctions dans la librairie standard. 
L'appel depuis calc se faisait donc sans problème, mais j'ai finalement 
déplacé ces macros fonctions, dans une autre librairie identique sous un 
autre nom ooBA.

J'ai ensuite crée une procédure
Sub ChargeOO
  BasicLibraries.LoadLibrary("ooBA")
End Sub
Que je lance à l'ouverture, mais les fonctions ne sont toujours pas 
accessibles sous Calc. Dans les cellules il me répond "?NOM"

Cela doit être tout bête mais je sèche sur le dossier ?

Est ce que vous avez des informations ?
D'avance merci
xavier
Permalink | Reply | 4 comments |
headers
xavier roguiez | 5 Dec 16:38
Picon
Favicon

Renommer un nom de librairie

Bonjour

Est il possible de renommer le nom d'une librairie ? J'ai codé un 
certain nombre de module dans la librairie standard, et je voulais 
renommer/copier tous les modules dans un nom différent. J'ai tenté 
d'importer la librairie, mais cela ne fonctionne pas

Existe t il d'autres solutions que le bestial copier/coller ?

D'avance merci
xavier
Permalink | Reply | 2 comments |
headers
xavier roguiez | 5 Dec 12:51
Picon
Favicon

EllipseShape et PolyLineShape

Bonjour

Est-il possible de créer un objet de type polyligne qui comporterait des 
parties courbes et linéaires ?
L'objectif est ensuite de délimiter une zone que je voulais hachurer.

D'avance merci pour toute information
xavier
Permalink | Reply | 5 comments |
headers
Didier Dorange-Pattoret | 5 Dec 09:24
Favicon

Transformer un objet de type shape en image png

Bonjour,

Je voudrais convertir un objet de type shape ou groupshape figurant dans
un document draw en image png.

Le service GraphicExportFilter me permet d'exporter l'objet en tant que
fichier par exemple dans /home/didier/image.png

Manuellement si je sélectionne l'objet en cliquant sur le bouton droit
de la souris, un menu me propose de convertir l'objet en bitmap ou en
métafichier ou en courbe. Je me dis que cela doit pouvoir se programmer.

Avez-vous une idée ?

D'avance merci.

--

-- 
Didier Dorange-Pattoret

http://www.dmaths.org
http://sesamath.net

Soutenez le projet Dmaths : rejoignez le club ou faites adhérer votre établissement !
http://www.dmaths.org/documentation/doku.php?id=presentation:club
Permalink | Reply | 2 comments |
headers
xavier roguiez | 4 Dec 13:58
Picon
Favicon

Réinitialiser un tableau

Bonjour

J'utilise un tableau de points avec la commande suivante :
dim mespoints(7) as new com.sun.star.awt.Points

oForme.PolyPolygon = Array(lesPoints()) 'tracé

Est il possible de donner comme arguments à Array un tableau de taille 
inférieure à 7 ?
Quelque chose du type lesPoints(0:5) par exemple ?

Mon problème est que je souhaiterais  réutiliser plusieurs fois le 
tableau mesPoints(7) sans avoir à réinitialiser toutes les valeurs mais 
seulement les points correspondant à d'autres tracés comportant des 
points inférieures à 7 ?  Il y a la commande Redim et preserve, mais il 
est indiqué que cela prend du temps de calcul.
Actuellement je gère mon problème en déclarant de nouvelles variables à 
chaque étape. Mais cela augmente le nombre de variables...

Est ce que vous avez des avis ou d'autres solutions ?
D'avance merci pour toute information
xavier
Permalink | Reply | 4 comments |
headers
chris oloo | 3 Dec 13:37
Picon

gestion de documents via calc

Bonjour,
pour un projet, j'aurai besoin de savoir si l'on peut gérer des documents (via la programmation) en dehors
de open office.

Le but de la manipulation étant de récupérer des informations d'un autre fichier (xls) pour ensuite
savoir sur quels fichiers agir, faire une copie de ces fichiers et l'envoyer dans un dossier ciblé.

Je vous remercie d'avance de vos réponses.
Je reste à votre disposition pour tout renseignement complémentaire.
Chris
Permalink | Reply | 2 comments |

Gmane