aoucharla
08-07-2014, 04:10 AM
Hi,
I have used the below code to merge 2 particular cells. The first line with the merge statement is working fine. But the alignement part which i have written after the merge is not having any impact on the contents of the merged cell, Can some body help?
.Cell(i, q).Merge MergeTo:=.Cell(i, q + 1)
With .Rows(i).Cells(q).Shape.TextFrame
.VerticalAnchor = msoAnchorMiddle
.MarginLeft = 0
.MarginTop = 0
.MarginRight = 0
.MarginBottom = 0
End With
I have used the below code to merge 2 particular cells. The first line with the merge statement is working fine. But the alignement part which i have written after the merge is not having any impact on the contents of the merged cell, Can some body help?
.Cell(i, q).Merge MergeTo:=.Cell(i, q + 1)
With .Rows(i).Cells(q).Shape.TextFrame
.VerticalAnchor = msoAnchorMiddle
.MarginLeft = 0
.MarginTop = 0
.MarginRight = 0
.MarginBottom = 0
End With