[prog] Re: Accédez à un tableau de texte dans Writer
Laurent Godard a écrit : Bonjour Nicole Le résultat de ce code me dit qu'il ne trouve pas l'élément Tableau2. Pourtant Xray sur LesTab le voit bien. J'ai essayé getTextTables sans succès. Quand il ne me dit pas que Tableau2 n'existe pas, il me dit qu'il ne trouve pas la méthode BackColor (donc il n'identifie pas l'élément comme un tableau je suppose) je viens de tester ton code, il marche es tu sur de pointer sur le bon document par le thisComponent ? Laurent Ami du jour(férié), bonjour Je viens de me remettre dessus depuis un moment et effectivement le soucis vient de plus haut. Le tableau est inséré par un copier/coller fait par une autre procédure. Cette partie marchait bien avant et maintenant c'est ... aléatoire ! J'arrive pas à cerner le comportement, je cherche Nicole. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] Largeur des colonnes ds tableau de texte
Yo et re-yo, J'en suis aux formatages finaux (YESS!) Comment fixer la largeur des colonnes ? J'ai bien lu qu'il n'y avait pas de propriétés de formatage pour les colonnes. J'ai donc essayé la méthode par zone de cellules mais je ne sais pas comment l'écrire, Width n'est pas connu. ' ** largeur des colonnes * CelCurseur = MonTab.createCursorByCellName(A1) CelCurseur.goDown(5, true) CelCurseur.BackColor = RGB(255,0,0) 'juste pour vérifier CelCurseur.Width = 6500 Nicole. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Largeur des colonnes ds tableau de texte
nimel a écrit : Yo et re-yo, J'en suis aux formatages finaux (YESS!) Comment fixer la largeur des colonnes ? J'ai bien lu qu'il n'y avait pas de propriétés de formatage pour les colonnes. J'ai donc essayé la méthode par zone de cellules mais je ne sais pas comment l'écrire, Width n'est pas connu. ' ** largeur des colonnes * CelCurseur = MonTab.createCursorByCellName(A1) CelCurseur.goDown(5, true) CelCurseur.BackColor = RGB(255,0,0) 'juste pour vérifier CelCurseur.Width = 6500 Nicole. Bonjour, Je crois qu'on ne peut malheureusement pas le faire directement.Il faut accéder aux séparateurs via MonTab.TableColumnSeparator et déplacer les séparateurs. Sub LargeurColonne Dim MonDocument As Object, MonTab As Object Dim LesSeparateurs As Variant Dim LargeurTab As double MonDocument = ThisComponent MonTab = MonDocument.TextTables.getByName (Tableau1)'à adapter LesSeparateurs = MonTab.TableColumnSeparators 'récupération de la largeur du tableau LargeurTab = MonTab.TableColumnRelativeSum 'modification de la largeur de la colonne 0 '.position : par rapport au côté gauche du tableau LesSeparateurs(0).Position = LargeurTab*0.1 'par exemple 'mise à jour des séparateurs MonTab.TableColumnSeparators = LesSeparateurs End Sub Il faut faire attention car si par erreur tu positionnes un séparateur avant le précédent, la colonne disparait. Il faut donc rajouter des tests. Agnès S. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] [RESOLU]Re: Largeur des colonnes ds tableau de texte
Bonjour, Je crois qu'on ne peut malheureusement pas le faire directement.Il faut accéder aux séparateurs via MonTab.TableColumnSeparator et déplacer les séparateurs. Sub LargeurColonne Dim MonDocument As Object, MonTab As Object Dim LesSeparateurs As Variant Dim LargeurTab As double MonDocument = ThisComponent MonTab = MonDocument.TextTables.getByName (Tableau1)'à adapter LesSeparateurs = MonTab.TableColumnSeparators 'récupération de la largeur du tableau LargeurTab = MonTab.TableColumnRelativeSum 'modification de la largeur de la colonne 0 '.position : par rapport au côté gauche du tableau LesSeparateurs(0).Position = LargeurTab*0.1 'par exemple 'mise à jour des séparateurs MonTab.TableColumnSeparators = LesSeparateurs End Sub Il faut faire attention car si par erreur tu positionnes un séparateur avant le précédent, la colonne disparait. Il faut donc rajouter des tests. Agnès S. Bonjour Agnès, Pf! Tu parles d'une galère! Je ne sais pas trop en quelle unité sont les valeurs mais c'est pas très souple ! Si j'ai bien compris d'après les tests que j'ai fait, ça ne va que de 0.1 à 0.9, le 1.0 étant l'autre bord du tableau (?). Enfin, je suis arrivée à faire qq chose d'à peu près avec ce code (si ça peu servir à quelqu'un) : sub LargeurCol dim MonDocWriter as object dim LesTab as Object dim MonTab as Object dim LesSeparateurs as Variant dim LargeurTab as Double MonDocWriter = ThisComponent LesTab = MonDocWriter.TextTables MonTab = LesTab.getByName(Tableau2) 'tableau de 5 colones LesSeparateurs = Montab.TableColumnSeparators LargeurTab = MonTab.TableColumnRelativeSum LesSeparateurs(3).Position = LargeurTab*0.9 LesSeparateurs(2).Position = LargeurTab*0.8 LesSeparateurs(1).Position = LargeurTab*0.7 LesSeparateurs(0).Position = LargeurTab*0.6 MonTab.TableColumnSeparators = LesSeparateurs end sub Nicole. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] Est-il possible de casser le lien d'un tableau ?
Et oui, j'ai encore un problème ! Je voudrais fusionner certaines cellules de mon tableau de texte. J'ai donc utilisé l'exemple de la doc qui a l'air fort simple et ça ne marche pas. Je viens de me souvenir qu'on ne peut pas fusionner car c'est un tableau collé par l'option lien DDE et on ne peut pas modifier un tableau lié. Je pense que c'est à cause de ça bien que le message d'erreur habituel n'apparaisse pas. Je n'ai pas du tout besoin de ce lien, c'est juste une question de formatage qui m'a fait choisir cette option. Une idée ? Nicole. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
