---

Servus

Wie kann man die Formatierung (Schriftart, Schriftgröße, Rahmen) verändern?
In der Doku hab ich nur die Möglichkeit jede Zelle einzeln zu formatieren gefunden. Geht das auch einfacher/schneller?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,
die einzige Möglichkeit scheint hier wirklich die zu sein, die Zellen einzeln über eine Schleife zu formatieren. Wenn dich die Formatierungsgeschwindigkeit stört, dann musst du einfach nur die Bildaktualisierung und den Tabellenverarbeitungsmodus deaktivieren.

CATIA.RefreshDisplay = False
DoEvents

"Name der ausgewählten Tabelle".ComputeMode = CatTableComputeOFF

'Formatieren durchführen...

"Name der ausgewählten Tabelle".ComputeMode = CatTableComputeON

CATIA.RefreshDisplay = False "Ergänzung" > da muss True hin (sry)
DoEvents

HTH

------------------
MFG
Rick Schulz

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

[Diese Nachricht wurde von RSchulz am 19. Jan. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Rick,

bin begeistert.
Das Erzeugen einer Tabelle ist damit in 0,nix erledigt.

Nur das DoEvents habe ich weglassen, da es zu einem Fehler führte!

Gruß
Bertel

[Diese Nachricht wurde von Bertel am 19. Jan. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus Rick
Danke für den Hinweis.
zumindest kann man für die gesamte Tabelle die Farbe auf einmal ändern.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,
hier nochmal ein Beispiel(Formatierung der Schriftgröße) Anhand einer Stückliste:

    Dim TableIndex  As Integer
    Dim i          As Integer
    Dim j          As Integer
    Dim NoCol      As Integer
    Dim NoRow      As Integer
    Dim Cell        As Object

    CATIA.RefreshDisplay = False
    DoEvents
   
    Set DrwView = DrwViews.Item("Stueckliste")    'Name der View ist Stueckliste
   
    TableIndex = DrwView.Tables.Count
   
    Set DrwTable = DrwView.Tables.Item(TableIndex)
   
    NoCol = DrwTable.NumberOfColumns
    NoRow = DrwTable.NumberOfRows
   
    DrwTable.Name = "Stueckliste"                  'Name der Stückliste ist Stueckliste
    DrwTable.ComputeMode = CatTableComputeOFF
    DoEvents
   
    For i = 1 To NoRow
       
        For j = 1 To NoCol
           
            Set Cell = DrwTable.GetCellObject(i, j)
            Cell.SetFontSize 0, 0, 2              'Schriftgröße wird auf 2 gesetzt
           
        Next

    Next
   
    DrwTable.ComputeMode = CatTableComputeON

    CATIA.RefreshDisplay = True
    DoEvents

------------------
MFG
Rick Schulz

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,
ich hab auch ein kleines Problem mit der Formatierung einer Tabelle.
Und zwar muss ich die Schriftgröße der Zellen änderen und den Text mittig in der Zelle ausrichten. Für diese Formatierung habe ich auch die oben beschriebene Schleife benutzt mit dem Inhalt:

Set Mytext = DrwTable.GetCellObject(i, j)
Mytext.SetFontSize 0,0,5
Mytext.Justification = catCenter

Allerdings wird jetzt bei mir nur die Schriftgröße geändert, die mittige Ausrichtung funktioniert aber nicht! weiß jemand woran das liegen könnte?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Ich vermute, du musst die Zelle direkt formatieren:
Cell.SetCellAlignment (i, j, CatTableMiddleCenter)

Gruß
Bernd

PS: Ungetestet, bin mir nicht sicher, ob die Klammern notwendig sind

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

habe schon bei R14 feststellen müssen, dass man die Ausrichtung einer Text nicht ändern kann, nur die AnchorPosition lässt sich ändern.
Bei R16 ist es auch nicht besser geworden, weiß nicht, wie es bei R19 gehen wird.
Innerhalb einer Tabelle geht die Änderung der Ausrichtung etwas anders.
Setze folgende Zeile in die obere Schleife, es wird was ähnliches bewegen:

Code:

---

DrwTable.SetCellAlignment i, j, CatTableMiddleCenter

---

Gruß,
Zoltan

PS: war etwas später dran
Die Klammern braucht man bei VBA nur, wenn ein Wert zurückgegeben wird. Beim Aufruf einer "Sub" werden keine Klammer benötigt.

[Diese Nachricht wurde von zoltan.bekesi am 11. Mrz. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

ich hatte vor kurzen auch das Problem im Drawing, Text zentriert auszurichten.

Lösung war folgende "Hier die Variable".SetParameterOnSubString catAlignment, 0, 0, 1

Das hat bei mir funktioniert auf der R16.

------------------
mfg
Udo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

ich hatte vor kurzen auch das Problem im Drawing, Text zentriert auszurichten.

Lösung war folgende "Hier die Variable".SetParameterOnSubString catAlignment, 0, 0, 1

Das hat bei mir funktioniert auf der R16.

------------------
mfg
Udo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

gibt es in diesem Zusammenhang die Möglichkeit, den Tabellenhintergrund [Properties -> Text -> Blank Background -> (No)] über VBA in V5R21 nachträglich zu ändern?

Danke und Gruß,
Marco

[Diese Nachricht wurde von mvo am 27. Sep. 2016 editiert.]

[Diese Nachricht wurde von mvo am 27. Sep. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Marco,

soweit ich sehen kann hält die Api da nix bereit.
Das lässt sich auch nicht bei der Erzeugung einer Tabelle per Macro angeben.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP