VBA relative Objekt Position

[koter]

Hallo Pucki,

Merge ist der Befehl, den Du suchst.

Code:

Sub ZellenVerbinden()
   Dim tab_1 As Shape
   Dim tab_1C As CustomShape
   Dim ZellBereich As Object
   Dim Zeile As Integer, Spalte As Integer, i As Integer
   
   Set tab_1 = ActivePage.Shapes("Tabelle1")
   Set tab_1C = tab_1.Custom
   Set ZellBereich = tab_1C.CreateEmptyCellRange
   
   Zeile = 3
   Spalte = 2
   For i = 0 To 2
       ZellBereich.AddCell tab_1C.Cell(Spalte + i, Zeile)
   Next i
   ZellBereich.Merge
End Sub

Der Code legt einen Zellbereich an und verbindet dessen Zellen.

Wenn Du die Zellen eines vorhandenen Zellbereichs verbinden willst, musst Du natürlich keinen anlegen.
Alle Zellen einer Zeile kannst Du z.B. mit tab_1C.Rows(1).Cells.All.Merge verbinden.

Gruß

Koter