Private Sub UserForm_Initialize()
Sheets("resim").ChartObjects(1).Activate
ActiveChart.Export ("C:\MyChart.jpg")
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture("C:\MyChart.jpg")
Kill ("C:\MyChart.jpg")
End Sub
bu şekilde yaptığım zaman user form üzerinde bulanıklık var resim geniş ama bulanık yani rakamlar çok çok net değil
spreadsheet nasıl bir yöntem...ben leventm 'in bir uygulamasını açtığımda bazı objectler bu makinede yüklü değil dedi..şimdi tüm 1000 bilgisayara bu şekilde rapor atılacağı için bu da iyi bir yöntem değil
tavsiyeniz nedir? bulanıklık nasıl giderilir?
Sheets("resim").ChartObjects(1).Activate
ActiveChart.Export ("C:\MyChart.jpg")
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture("C:\MyChart.jpg")
Kill ("C:\MyChart.jpg")
End Sub
bu şekilde yaptığım zaman user form üzerinde bulanıklık var resim geniş ama bulanık yani rakamlar çok çok net değil
spreadsheet nasıl bir yöntem...ben leventm 'in bir uygulamasını açtığımda bazı objectler bu makinede yüklü değil dedi..şimdi tüm 1000 bilgisayara bu şekilde rapor atılacağı için bu da iyi bir yöntem değil
tavsiyeniz nedir? bulanıklık nasıl giderilir?