image nesnesinde hücre araliğını görmek

[ynmcan]

Merhaba arkadaşlar,
userform üzerindeki bir image nesnesi içinde, excel sayfasındaki beliri aralıktaki
hücreleri gösterebilirmiyiz?
Örnek dosyam ve diğer açiklamalar ekte.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
Range("b2:n25").CopyPicture xlScreen, xlBitmap
Application.ScreenUpdating = False
ActiveSheet.Paste
yuk = Selection.Height
gen = Selection.Width
Selection.Cut
Set grafik = ActiveSheet.ChartObjects.Add(, , gen, yuk)
grafik.Chart.Paste
grafik.Chart.Export "c:\xxresimxx.jpg"
grafik.Delete
Application.ScreenUpdating = True
Image1.Picture = LoadPicture("c:\xxresimxx.jpg")
Kill "c:\xxresimxx.jpg"
End Sub