makro düzenlemesi

[airborne]

Private Sub UserForm_Initialize()
Range("C2U59").CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
Set grafik = ActiveSheet.ChartObjects.Add(, , genislik, yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\xxresimxx.jpg"
Frame1.Picture = LoadPicture("C:\xxresimxx.jpg")
grafik.Delete
Kill "C:\xxresimxx.jpg"
End Sub

bu baskı önizleme kodları excele göre, bunları worde göre nasıl düzenleme yapılabilir.

 

[airborne]

bu konu hakkında yardım edecek yok galiba

 

[airborne]

anlaşıldı bu konuda kimse yardımcı olmayacak. fazla beklemeye ve ümitlenmeye gerek yok.