VBA relative Objekt Position

[koter]

Hallo Pucki,

...Naja, ich hatte gedacht das wenigstens in VBA es irgend eine Art von Standard gibt.  Falsch gedacht.

VBA ist durch und durch standardisiert. Was Du falsch gedacht hast ist, dass die Tabellen die Du gerade programmierst, Bestandteil von VBA sind. Das sind sie aber nicht, es sind Objekte von Coreldraw!

...Vor allen diese blöde Doppellinie weg bekommt...Ich möchte gerne eine etwas dicker Linie (0.5) UM die Tabelle und innen nur EINE Linie 0.25.

Code:

Sub TabRahmen()
   Dim tab_1 As Shape
   Dim tab_1C As CustomShape
   Dim tc
   
   ActiveDocument.Unit = cdrMillimeter ' Maßeinheit setzen
   Set tab_1 = ActivePage.Shapes("Tabelle1")
   Set tab_1C = tab_1.Custom
   
   With tab_1C
       .SeparatedBorders = False 'blöde Doppellinie weg
       .Cells.All.Borders.All.Width = 0.25 ' Linienbreie für alle Zellen
       .Rows.First.Cells.All.Borders.Top.Width = 0.5 'Linienbreie oben
       .Rows.Last.Cells.All.Borders.Bottom.Width = 0.5 'Linienbreie unten
       .Columns.First.Cells.All.Borders.Left.Width = 0.5 'Linienbreie links
       .Columns.Last.Cells.All.Borders.Right.Width = 0.5 'Linienbreie rechts
   End With
   
   For Each tc In tab_1C.Cells
       With tc 'Textfeldabstand
           .TopMargin = 0
           .LeftMargin = 0.5
           .RightMargin = 0.5
           .BottomMargin = 0
       End With
   Next
   
End Sub

Nachtrag:  Und ich bräuchte den Befehl wie man den Mindestabstand zwischen Zelle und Text auf 0 setzt.

Das habe ich gleich mit in die Sub gepackt (in der For-Each-Schleife)

...Das würde den Zeilenabstand verringern und ich bekomme mehr Zeilen auf eine Seite. Ist sogar gut für den Umweltschutz...

Das sieht aber scheußlich aus.

...WOHER weißt du das alles. Ich tue mich sau schwer damit überhaupt etwas über Corel-VBA zu finden. Und die F1-Hilfe ist grausig bei Corel...

Ich programmiere schon länger mit VBA und kann mich nicht an alle Quellen erinnern. Über Tabellen aber stehen die meisten Informationen in der Referenz zum Objektmodell der Corel-Hilfe.
Ich hatte z.B. vergessen wie man den Textfeldabstand setzt. Ein kurzer Blick in die Hilfe hat es mir verraten:



Deine recht scharfe Kritik an der Hilfe kann ich also nicht teilen.

Gruß

Koter