Modifier la police d'un tableau dans un CATDrawing

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

R?solu Modifier la police d'un tableau dans un CATDrawing

Message par Docserta le Mar 15 Nov 2011 - 1:25

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
avatar
Docserta
actif
actif

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

Revenir en haut Aller en bas

R?solu Re: Modifier la police d'un tableau dans un CATDrawing

Message par Docserta le Ven 18 Nov 2011 - 6:43

Ca y est j'ai trouvé Smile

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
avatar
Docserta
actif
actif

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

Revenir en haut Aller en bas

R?solu Re: Modifier la police d'un tableau dans un CATDrawing

Message par Guss_ le Ven 18 Nov 2011 - 22:02

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

Guss_
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

R?solu Re: Modifier la police d'un tableau dans un CATDrawing

Message par Docserta le Ven 18 Nov 2011 - 22:27

euuuh...
effectivement c'est plus cours Smile
avatar
Docserta
actif
actif

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

Revenir en haut Aller en bas

R?solu Re: Modifier la police d'un tableau dans un CATDrawing

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