Arkadaşlar Merhaba!
Makro ile bir sayfa oluşturuyorum.Oluşturduğum bu sayfada bazı tablolar var.Her defasında imleç sayfanın en yukarasında oluyor.Add picture ile resim eklediğimde resim oraya ekleniyor.Halbuki ben en son oluşturduğum tablonun içinde resimin gözükmesini istiyorum..bunu nasıl yaparım.Yani imleç en son oluşturduğum tablonun içinde konumlanacak ki bende resimleri tabloya ekleye bilyim..Tablo oluşturma kodum şu ;
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
End With
End With
ADD picturer kodumda bu ;
Dim MyPic As String
Dim MyObj As Object
MyPic = "c:\1.bmp"
Set MyObj = ActiveDocument.InlineShapes.AddPicture(MyPic, False, True)
With MyObj
.Height = 150
.Width = 150
ama her defasında imleç sayfanın enüstünde konumlandığı için resmi bu boyutlarda en üste ekliyor..bense tablonun içine eklemesini istiyorum..
yardımlarınız için teşekkür ederim
Makro ile bir sayfa oluşturuyorum.Oluşturduğum bu sayfada bazı tablolar var.Her defasında imleç sayfanın en yukarasında oluyor.Add picture ile resim eklediğimde resim oraya ekleniyor.Halbuki ben en son oluşturduğum tablonun içinde resimin gözükmesini istiyorum..bunu nasıl yaparım.Yani imleç en son oluşturduğum tablonun içinde konumlanacak ki bende resimleri tabloya ekleye bilyim..Tablo oluşturma kodum şu ;
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
End With
End With
ADD picturer kodumda bu ;
Dim MyPic As String
Dim MyObj As Object
MyPic = "c:\1.bmp"
Set MyObj = ActiveDocument.InlineShapes.AddPicture(MyPic, False, True)
With MyObj
.Height = 150
.Width = 150
ama her defasında imleç sayfanın enüstünde konumlandığı için resmi bu boyutlarda en üste ekliyor..bense tablonun içine eklemesini istiyorum..
yardımlarınız için teşekkür ederim