Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  Schriftgröße in Tabellen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS
  
Engineering in the Cloud: Link Sharing of Design Data
Autor Thema:  Schriftgröße in Tabellen (1160 mal gelesen)
Nobody1976
Mitglied



Sehen Sie sich das Profil von Nobody1976 an!   Senden Sie eine Private Message an Nobody1976  Schreiben Sie einen Gästebucheintrag für Nobody1976

Beiträge: 46
Registriert: 20.05.2014

SWX 2022 SP5.0

erstellt am: 18. Feb. 2019 17:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Forum,

ich versuch eine allgemeine Tabelle mit Textinhalt per Makro einzufügen.
Klappt so weit auch schon.
Leider habe ich trotz durchforsten des Forums nicht die richtige Erleuchtung erreicht.
Daher hier das Problem.
Ich möchte die Schriftgröße der gesamten Tabelle und wenn möglich Zeilenweise anpassen.

Anbei mein bisheriger Code.

Sub main()
    Dim swApp      As Object
    Dim swdraw      As Object
    Dim swview      As Object
    Dim swann      As Object
    Dim myTable    As Object

    Set swApp = Application.SldWorks
    Set swdraw = swApp.ActiveDoc
 
    Set swview = swdraw.GetFirstView
    Do While Not swview Is Nothing
      Set myTable = swview.GetFirstTableAnnotation
      Do While Not myTable Is Nothing
        Set swann = myTable.GetAnnotation
        If swann.GetName = Tab_name Then
          MsgBox "Tabelle " & Tab_name & " existiert bereits", vbOKOnly, "Meldung"
          Exit Sub
        End If
        Set myTable = myTable.GetNext
      Loop
      Set swview = swview.GetNextView
    Loop
   
     
    Set myTable = swdraw.InsertTableAnnotation(0.1, 0.1, 1, 2, 5)
    If myTable Is Nothing Then
        MsgBox "Konnte Tabelle " & Tab_name & " nicht erstellen", vbOKOnly, "Meldung"
    Else
      myTable.GetAnnotation.SetName ("Testtabelle")
      myTable.GeneralTableFeature.GetFeature.Name = "Testtabelle"
    End If
   
    myTable.BorderLineWeight = 0.1
    myTable.GridLineWeight = 0.1
   
    myTable.SetColumnWidth 0, 0.01, swTableRowColChange_TableSizeCanChange
   
    'myTable.GetTextFormat.CharHeight = 0.14
    myTable.GetTextFormat.CharHeightInPts = 10

    myTable.Text(0, 0) = "Ver"
    myTable.Text(0, 1) = "Test"
    myTable.Text(1, 0) = "00"
   
End Sub

Kann mir da jemand helfen?

Danke für eure Bemühungen.

Gruß Udo

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

Andi Beck
Ehrenmitglied V.I.P. h.c.
Konstrukteur



Sehen Sie sich das Profil von Andi Beck an!   Senden Sie eine Private Message an Andi Beck  Schreiben Sie einen Gästebucheintrag für Andi Beck

Beiträge: 2572
Registriert: 02.10.2006

Firma: SW 2023-4.0 + PDM Prof.
Windows 10 Pro 64bit, i9-11900
32 GbRAM, Quadro P2200
Home:
SW 2022-5.0
Passungstabelle von Heinz
Windows 11 Pro 64bit,
i7-12700K, 32 GbRAM,
GeForce GTX 1050Ti
Samsung C34H892, 3440x1440 Pixel

erstellt am: 18. Feb. 2019 21:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Nobody1976 10 Unities + Antwort hilfreich

Hallo Udo,

versuche mal dieses und ersetze diese Zeile

Code:
myTable.GetTextFormat.CharHeightInPts = 10

dadurch:

Code:
    Dim swTextFormat        As SldWorks.TextFormat
    Dim value              As Boolean

    Set swTextFormat = myTable.GetTextFormat
    swTextFormat.CharHeightInPts = 10
    value = myTable.SetTextFormat(False, swTextFormat)


Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

Nobody1976
Mitglied



Sehen Sie sich das Profil von Nobody1976 an!   Senden Sie eine Private Message an Nobody1976  Schreiben Sie einen Gästebucheintrag für Nobody1976

Beiträge: 46
Registriert: 20.05.2014

SWX 2022 SP5.0

erstellt am: 19. Feb. 2019 09:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke schön.
Das war's.
Vielen Dank für den Tipp.

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz