birleştir ve ortala komutu VBA dilinde yazabilir miyiz?

[selimmanav]

merhaba başlıkta olduğu gibi birleştir ve ortala komutu VBA dilinde yazilabilir mi?
yada ortala dışında örneklersek A1veA2 hücresi birleştirilebilinir mi?

 

[f_desat]

Sub birleştir_ve_ortala()

Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End Sub

 

[apocalyt]

aşağıdaki iki kodu deneyin...ilk kod hücreleri birleştirir..ikinci kod hücredeki metni ortalar..
Range("a1:a2").MergeCells = True
Range("a1").VerticalAlignment = xlCenter

 

[selimmanav]

birleştir

merhaba
kendimiz birleştirdiğimiz hücreleri VBA kodunda birleştirmiş olarak nasıl gösterebilriz?