---

Hallo,

ich bin aktuell dabei eine Tabelle für eine Zeichnung per Makro zu erstellen.

In einer Zeile soll eine Variable mit tiefgestelltem Index eintragen werden. Händisch ist das per Doppelklick in die Zelle und "Stapelformatierung" möglich. Leider lässt sich der Vorgang nicht mit der Makro-Aufzeichnen-Funktion abspeichern.

Kennt jemand einen Weg, um einen Teile des Textes in Tabellen per Makro tiefzustellen?

Danke und viele Grüße

Code:

---

Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim myTable As Object
Dim Zelle As Object
Set myTable = Part.InsertTableAnnotation(0.02, 0.02, 3, 3, 3)
If Not myTable Is Nothing Then
  myTable.BorderLineWeight = 0
  myTable.GridLineWeight = 0
End If

' Stelle Zeichengröße für die ganze Tabelle ein
Dim swTextFormat        As SldWorks.TextFormat
Set swTextFormat = myTable.GetTextFormat
swTextFormat.CharHeightInPts = 9
boolstatus = myTable.SetTextFormat(False, swTextFormat)

' Überschrift fett
Dim swCellFormat        As SldWorks.TextFormat
Set swCellFormat = myTable.GetCellTextFormat(0, 0)
swCellFormat.Bold = True
boolstatus = myTable.SetCellTextFormat(0, 0, False, swCellFormat)

' Linksbündig einiger Zellen
myTable.CellTextHorizontalJustification(0, 0) = 1
myTable.CellTextHorizontalJustification(1, 0) = 1

' Spaltenbreite
boolstatus = myTable.SetColumnWidth(0, 0.03, 0)
boolstatus = myTable.SetColumnWidth(1, 0.015, 0)
boolstatus = myTable.SetColumnWidth(2, 0.015, 0)

boolstatus = myTable.MergeCells(0, 0, 0, 2)

myTable.Text(0, 0) = "Teilenummer"
myTable.Text(1, 0) = "Variable_Index" 'Der Index soll in der fertigen Tabelle tiefgestellt sein (Zur Not würde es auch eine kleinere Schriftgröße tun)
End Sub

---

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

---

Nur mal so als Schnellschuss:

In der Solidworks API Hilfe
ITableAnnotation.setcelltextformat
und von dort aus weiterhangeln.

------------------
Grüße aus Dresden
Volkmar Grube

Es gibt keine Probleme, es gibt nur Aufgaben.

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

---

Danke für den Hinweis! Wenn ich nichts übersehen habe, scheint ein tiefstellen von Zeichen gar nicht vorgesehen zu sein.

Spontan zeichnen sich zwei workarounds ab:
- Die Schriftgröße der Indizes verkleinern (ist sicher nicht ideal, aber vermutlich akzeptabel) --> Leider habe ich noch keine Idee, wie man das Textformat auf einen Teil einer Zelle anwendet.
- Man fügt in die Zelle eine "Stack Note" ein und befüllt nur das untere Feld. So haben wir es bis jetzt manuell gemacht. --> Das wäre die Vorzugslösung für mich, aber mir ist noch nicht klar, wie ich eine Stack Note in eine Zelle eintrage.

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

---

Ich bin auf eine Lösung gestoßen.

Falls jemand mal das gleiche Problem haben sollte:

Zitat:

---

myTable.Text(1, 0) = "Variable" + "<STACK divider=no size=0.7> <OVER>Index</STACK>" 'Der Index tiefgestellt

---

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

---

Hallo Heinz,

hab hier -> https://ww3.cad.de/foren/ubb/Forum2/HTML/024586.shtml mal eine kleine Zusammenfassung gemacht was es alles für Formatierung-Tags in SolidWorks gibt falls du auch mal andere Formatierungen brauchst.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Vielen Dank! Den PARA-Tag hatte ich nicht auf dem Schirm 

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