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