Police d'une ligne de texte dans une cellule de table catia

Voir le sujet précédent Voir le sujet suivant Aller en bas

EnCours Police d'une ligne de texte dans une cellule de table catia

Message par raphael_59240 le Jeu 7 Avr 2016 - 0:36

Bonjour,

Je suis actuellement sur des plans dans lesquels j'ai des nomenclatures rempli via excel et macro.

dans l'entete de ma nomenclature j'ai 2 ligne ds la cellule et je souhaite avoir une ligne avec une hauteur de texte
à 3.5 et la seconde a 2. comment je peux faire via vb
voici un extrait du code pour ecrire ds l'entete.
Code:
''''''''''''''ecrit la premiere ligne avec la taille et police '''''''''

        For b_ExpCat = d_ExpCat To d_ExpCat - 5 Step -1
        
            If b_ExpCat = d_ExpCat Then Table_Entete(b_ExpCat) = "Masse (Kg)" & Chr(10) & "Weight (Kg)"
            If b_ExpCat = d_ExpCat - 1 Then Table_Entete(b_ExpCat) = "Matière, norme, dessin..." & Chr(10) & "Material, standard, drawing... "
            If b_ExpCat = d_ExpCat - 2 Then Table_Entete(b_ExpCat) = "Désignation des pièces" & Chr(10) & "Item description"
            If b_ExpCat = d_ExpCat - 3 Then Table_Entete(b_ExpCat) = "Qté" & Chr(10) & "Qty"
            If b_ExpCat = d_ExpCat - 4 Then Table_Entete(b_ExpCat) = "Repère" & Chr(10) & "Item"
            
        Next b_ExpCat
                        
        e_ExpCat = 1
        
        l_Expcat = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
''''''''''''''''''creation de la table
        Set nomenclature = drawingTables1.Add(0, 0, l_Expcat + 1, d_ExpCat, 5, 20)
        nomenclature.ComputeMode = CatTableComputeOFF  ''''''''''''''''arrete le refresh
            
        For t = 1 To l_Expcat + 1

            For c_ExpCat = 1 To d_ExpCat

                    With nomenclature.GetCellObject(t, c_ExpCat)
                        .SetFontSize 0, 0, 2.5
                        .SetFontName 0, 0, "Arial (True type)"
                    End With
            Next c_ExpCat
        Next t
'''''''''''''''''''''''''ecrire l'entete
        With nomenclature
       
            While e_ExpCat < d_ExpCat '- 4
                Select Case Table_Entete(e_ExpCat)
                Case "T_txt2"
                    .SetCellString l_Expcat + 1, e_ExpCat, "N° Constructeur"
                    .SetColumnSize e_ExpCat, 35
                    .SetCellAlignment l_Expcat + 1, e_ExpCat, CatTableMiddleCenter
                Case "T_txt3"
                    .SetCellString l_Expcat + 1, e_ExpCat, "N° Dessin" & Chr(10) & "Drawing number"
                    .SetColumnSize e_ExpCat, 28
                    .SetCellAlignment l_Expcat + 1, e_ExpCat, CatTableMiddleCenter
                Case "T_txt5"
                    .SetCellString l_Expcat + 1, e_ExpCat + 1, "Symbole"
                    .SetColumnSize e_ExpCat + 1, 28
                    .SetCellAlignment l_Expcat + 1, e_ExpCat, CatTableMiddleCenter
                End Select
                e_ExpCat = e_ExpCat + 1
            Wend
.
.
.
.


Merci d'avance pour votre aide
Raphael
avatar
raphael_59240
actif
actif

Messages : 123
Date d'inscription : 28/03/2015
Age : 46
Localisation : dunkerque

Revenir en haut Aller en bas

EnCours Re: Police d'une ligne de texte dans une cellule de table catia

Message par lumpazepfel le Mar 12 Avr 2016 - 23:16

Salut Raphaël,

Je n'ai pas trouvé de solution pour avoir 2 tailles de police différentes dans la même cellule.

Une alternative serait de de rajouter une cellule supplémentaire et d'effacer la trait séparant les 2 cellules avec la fonction SetCellBorderType.
avatar
lumpazepfel
actif
actif

Messages : 141
Date d'inscription : 03/11/2015
Localisation : Ensisheim

Revenir en haut Aller en bas

EnCours Re: Police d'une ligne de texte dans une cellule de table catia

Message par Guss_ le Mer 20 Avr 2016 - 0:42

ça donne quelques chose si tu lance un enregistrement de macro et que tu le fais manuellement ?

Guss_
Fédérateur
Fédérateur

Messages : 498
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Police d'une ligne de texte dans une cellule de table catia

Message par raphael_59240 le Mer 20 Avr 2016 - 4:26

Enregistrement macro ne marche pas
avatar
raphael_59240
actif
actif

Messages : 123
Date d'inscription : 28/03/2015
Age : 46
Localisation : dunkerque

Revenir en haut Aller en bas

EnCours Re: Police d'une ligne de texte dans une cellule de table catia

Message par Docserta le Jeu 8 Déc 2016 - 1:30

B'jour,
Je sais pas si ce problème est toujours d'actualité mais tu peux utiliser la commande suivante :
MonTableau.GetCellObject(i, j).SetFontSize 0, 0, 2.5
avatar
Docserta
actif
actif

Messages : 41
Date d'inscription : 10/11/2011
Localisation : Rennes

Revenir en haut Aller en bas

EnCours Re: Police d'une ligne de texte dans une cellule de table catia

Message par mike688 le Jeu 8 Déc 2016 - 21:01

c'est faisable.
Code:
dim toto as drawingtext
set toto = table.getcellsobject(L,C)
Call toto.SetParameterOnSubString(catFontSize, 0, Len(Split(toto, Chr(10))), 7)
0 : premier caracter
len split ... : longueur de la premeière ligne
avatar
mike688
actif
actif

Messages : 255
Date d'inscription : 23/12/2009
Age : 35
Localisation : Portieux (88)

Revenir en haut Aller en bas

EnCours Re: Police d'une ligne de texte dans une cellule de table catia

Message par raphael_59240 le Ven 9 Déc 2016 - 0:31

Merci je vais essayer
Laughing
avatar
raphael_59240
actif
actif

Messages : 123
Date d'inscription : 28/03/2015
Age : 46
Localisation : dunkerque

Revenir en haut Aller en bas

EnCours Re: Police d'une ligne de texte dans une cellule de table catia

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum