VBA relative Objekt Position

[koter]

Hallo Pucki,

...Dann nerve ich auch hoffentlich nicht mehr...

Du nervst nicht, das Forum existiert ja zum klären solcher und anderer Fragen!

Ich antworte wieder mit Code:

Code:

Sub Tab1()
   Dim Tabelle1 As Shape
   Dim Tabelle1C As CustomShape
   Dim TH As Double, ZH As Double
   
   ActiveDocument.Unit = cdrMillimeter ' Maßeinheit setzen
   
   Set Tabelle1 = ActivePage.Shapes("Tabelle1")
   Set Tabelle1C = Tabelle1.Custom
   
   Tabelle1C.AddRow Tabelle1C.Rows.Count + 1 'Zeile am Ende hinzufügen
   TH = Tabelle1.SizeHeight 'Tabellenhöhe
   ZH = Tabelle1C.Rows(3).Height  'Zeilenhöhe (Zeile 3)
End Sub

Eine Frage aus Neugier:
Gibt es keinen Reportgenerator oder ähnliches für Deine Datenbank?
So etwas mit einem Vektorgrafikprogramm zu machen ist schon ein bisschen schräg.

Hoffentlich programmierst Du dich nicht in eine Sackgasse!

Gruß

Koter