VBA relative Objekt Position

[koter]

Hallo Pucki,

vielen Dank für die ausführliche Antwort!

Bei dem von Dir gekennzeichneten Fehler greifst Du auf das Shape-Objekt zu, das die Tabelle (das Custom-Objekt) beinhaltet. Du musst aber auf das Custum-Objekt zugreifen.

Hier nochmal als VBA-Code:

Code:

Sub Tab2()
   Dim tab_1 As Shape
   Dim tab_1C As CustomShape
       
   ActiveDocument.Unit = cdrMillimeter ' Maßeinheit setzen
   
   Set tab_1 = ActivePage.Shapes("Tabelle1")
   Set tab_1C = tab_1.Custom
   
   tab_1C.Rows(3).Height = 15 'Zeilenhöhe
   tab_1C.Cells(1).TextShape.Text.Frame.VerticalAlignment = 1 ' Zelle 1 vertikal zentrieren
End Sub

Achte auf die Dim und Set Anweisungen. tab_1C ist ein Unterobjekt von tab_1 . Ich hoffe Du kannst das nach VB übersetzen. Die letzte Version, die ich benutzt habe war VB6. VB.Net unterscheidet sich erheblich von dieser alten Version, beim übersetzen kann ich also leider nicht helfen.

Gruß

Koter