Modifier la police d'un tableau dans un CATDrawing

Bonjour,
Je soumet un nouveau sujet à votre sagacité.

Comment changer la police des textes d'un tableau en CATVba.

Dans la code suivant, je créer un tableau :

Code:


Sub CATMain()
Dim MaVueNom As DrawingView
Dim MonDrawing As DrawingDocument
Set MonDrawing = CATIA.ActiveDocument
Dim MonCalque As DrawingSheet
Set MonCalque = MonDrawing.Sheets.ActiveSheet
'Création d'une vue pour le tableau
Set MaVueNom = MonCalque.Views.Add("VueTableau")
'création du tableau
Set MonTableau = MaVueNom.Tables.Add(0, 0, 5, 5, 5, 20)
    MonTableau.AnchorPoint = CatTableBottomRight
'Remplissage du tableau
    For i = 1 To 5
        For j = 1 To 5
            MonTableau.SetCellString i, j, "Texte"
            [code]MonTableau.SetCellAlignment i, j, CatTableMiddleCenter[/code]
        Next
    Next
End Sub

La fonction

Code:


MonTableau.SetCellAlignment i, j, CatTableMiddleCenter

permet de centrer les textes dans les cellules, mais comment changer la police de ces textes?
Meci de votre aide

Ca y est j'ai trouvé

On crée un objet DrawingText

Code:

Dim MonTexte As DrawingText

On affecte le contenu de la cellule a cet objet et on modifie la propriètèe "FontSize"

Code:

Set MonTexte = MonTableau.GetCellObject(i, j)
MonTexte.SetFontSize 0, 0, 2.5

Euh c'est bizarre ton truc quand même
en designer l'objet tableau ça marche aussi pour ce que tu veux faire, pas besoin d'assigner le contenu de chaque cellule du tableau à un texte

Moi j'avais fais ça pour créer un tableau de 5 colonne et une ligne (le contrôle d'erreur est là car je créé le tableau s'il n'y en a pas qui existe)

Code:


    On Error Resume Next
    Set nomenclature = drawingTables1.Item(1)
    If Err.Number <> 0 Then
        Set nomenclature = drawingTables1.Add(0, 0, 1, 5, 7, 200 / 5)
        With nomenclature
            .SetCellString 1, 1, "N°Plan"
            .SetCellString 1, 2, "Ind."
            .SetCellString 1, 3, "Nb"
            .SetCellString 1, 4, "Désignation"
            .SetCellString 1, 5, "Observations"
            .SetColumnSize 1, 28
            .SetColumnSize 2, 10
            .SetColumnSize 3, 10
            .SetColumnSize 4, 76
            .SetColumnSize 5, 76
            For C = 1 To 5
                With .GetCellObject(1, C)
                    .SetFontSize 0, 0, 2.3
                End With
            Next
        End With
    End If


euuuh...
effectivement c'est plus cours