İnce bir soru..

Katılım
6 Haziran 2007
Mesajlar
47
Excel Vers. ve Dili
vb
Arkadaşalar Merhaba!
O kadar araştırdım bulamadım.
Word de makro kaydederken tablo ekliyorum.(satır:1 , kolon:1 lik bir tablo.)ama nedense hep sayfa satırı boyunca çıkıyor.makro'yu duraklatıp küçültüyroum ama makro yu çalıştırırdığımda yine aynı boyutu alıyor!
Nasıl her defasında ayarladağım boyda çıkmasını sağlayabilirim...ayrıca 3 tane tabloyu kod ile nasıl yanayana ekleyebilirim!
*Arkadaşalr makroyla yapmak istedğim olayı word sayfası olarak gönderdim.Ben bu olayı makroyla yapmak istiyorum word de Teşekkürler!
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Aşağıdaki kodu çalıştırıp deneyiniz. Metin Kusu ile yapılmıştır.

Sub Makro16()
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 70.85, _
70.85, 99#, 126#).Select
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.ShapeRange.Select
With Selection
.ShapeRange.Duplicate.Select
.ShapeRange.IncrementLeft 96#
.ShapeRange.IncrementTop -12#
.ShapeRange.Duplicate.Select
.ShapeRange.IncrementLeft 96#
.ShapeRange.IncrementTop -12#
.EndKey Unit:=wdStory
End With
End Sub
 
Üst