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

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 : 127
Date d'inscription : 28/03/2015
Age : 47
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 : 164
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 : 513
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 : 127
Date d'inscription : 28/03/2015
Age : 47
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 : 45
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 : 257
Date d'inscription : 23/12/2009
Age : 36
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 : 127
Date d'inscription : 28/03/2015
Age : 47
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

Revenir en haut

- Sujets similaires

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