Bonjour,
Concernant votre précédent message, avez vous testé ceci :
- fermer OOo, y compris le démarrage rapide s'il est actif
- déplacer le répertoire de la librairie se trouvant dans votre profil
utilisateur vers un autre emplacement
- relancer OOo
- Menu Outils > Macros > Gérer les macros > OpenOffice.org Basic, bouton "Gérer"
- aller sur l'onglet bibliothèque et choisir "Importer"
- selectionner le fichier script.xlb se trouvant dans le répertoire déplacé
précedemment
- verifier que la lib à bien été importé.
Cela dit, convertir votre macro pour la rendre compatible avec les versions
récentes d'OOo est une bonne chose.
Pour ce qui est de l'exemple de code que vous nous avez fait parvenir, il
fonctionne chez moi si je l'exécute sur un document déjà ouvert.
J'ai juste ajouté ces deux lignes au debut :
dim MonDocument as object
MonDocument = thisComponent
Pour info, je suis en 3.2.0 officielle.
Cordialement,
T. Vataire
----- Mail Original -----
De: "Martin Blaizot" <martin.blai...@wanadoo.fr>
À: prog@fr.openoffice.org
Envoyé: Jeudi 17 Juin 2010 08:32:18
Objet: [prog] Affichage d'un cadre dans document texte
Bonjour à tous,
N'ayant malheureusement pas beaucoup de succès avec ma bibliothèque fantôme, je
me suis décidé à porter ma petite appli sous Ooo3.2. Ca avance un peu, mais
vous risquez de me voir souvent par ici dans les jours qui viennent ! Je
suppose que toutes les erreurs de codage qui pouvaient passer sous 1.1.4 ne
passent plus dans les versions modernes.
Bref, j'en viens à mon problème du moment. Voici un bout de code qui permettait
d'afficher un cadre à bords arrondis. Il ne marche plus, mais je n'ai pas de
message d'erreur. Peut-être pouvez-vous m'aider
Dim Taille1 As New com.sun.star.awt.Size
MonTexte = MonDocument.Text
Moncurseur = MonTexte.createTextCursor
Dim MonCadre1 as object
MonCadre1 = MonDocument.createInstance("com.sun.star.drawing.RectangleShape")
Taille1.Width = 8000
Taille1.Height = 3000
With MonCadre1
.CornerRadius = 600
.FillColor = RGB (255,255,255)
.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH
.VertOrient = com.sun.star.text.VertOrientation.NONE
.VertOrientPosition = 1500
.HoriOrient = com.sun.star.text.HoriOrientation.NONE
.HoriOrientPosition = 8000
.Size = Taille1
End With
MonTexte.insertTextContent(Moncurseur, MonCadre1, false)
D'avance merci,
Martin
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org
