Word Makroda Tablo boyu..

[pekerl]

Arkadaşalar Merhaba !
Word 'de aşağıda ki kodlar ile bir tablo oluşturyorum.Yanlız tablonun boyu enlemesine olarak sayfa kadar oluyor..Oysa ben bunu istediğim ölçüde yapma istiyorum.Mesal 6cm.gibi.
Ama her defasında sayfa genişliği kadar oluyor.Bunu nasıl istediğim gibi ayarlaya bilirim...

Tablo ekleme kodum şu...Ne gibi bir değişiklik ile bu sorun çözülür sizce?

Selection.TypeParagraph
'ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

With Selection.Tables(1)
If .Style <> "Tablo Kılavuzu" Then
.Style = "Tablo Kılavuzu"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
.Borders.Enable = False
End With

İyi Çalışmalar!

 

[sheetsMaster]

with bloğu içine end with den önce

 .PreferredWidth = x

yazarak deneyin. x yerine istediğiniz bir sayı yazarak tablo genişliğini istediğiniz boyuta getirmesi lazım

 

[pekerl]

Teşekkür

Teşekkür ederim!