VBA relative Objekt Position

[koter]

Hallo Pucki,

Noch habe ich keine Idee, aber das kann ja noch kommen.

Lass bei Dir mal folgende VBA-Sub (So wie sie ist) durchlaufen.
Wenn ein Fehler auftritt schreibe mir in welcher Zeile und die Meldung.

Code:

Sub Tab3()
   Dim tab_1 As Shape
   Dim tab_1C As CustomShape
   ActiveDocument.Unit = cdrMillimeter ' Maßeinheit setzen
   
   Set tab_1 = ActiveLayer.CreateCustomShape("Table", 10, 100, 130, 250, 3, 4)
   Set tab_1C = tab_1.Custom
   
   tab_1C.Rows(3).Height = 15 'Zeilenhöhe
   
   With tab_1C.Cell(2, 3).TextShape.Text
       .Story = "Testtext"
       .Story.Font = "Arial"
       .Story.Size = 18
       .Story.Alignment = 3 'Hotizontal Zentrieren (cdrCenterAlignment)
       .Frame.VerticalAlignment = 1 ' Vertikal Zentrieren (cdrCenterJustify)
   End With
End Sub

Bei mir läuft die Sub im Einzelschrittmodus so:



Teile mir bitte auch Deine CorelDraw-Version mit und schreibe sie vielleicht auch in Deine Signatur.

Bei dem Befehl, bei dem Du die Koordinaten vermisst, habe ich die Cells-Auflistung benutzt. Da gibt es keine Koordinaten, die Zellen werden einfach durchnummeriert.

Gruß

Koter