Private Sub CommandButton1_Click() Dim rgExp As Range: Set rgExp - TopicsExpress



          

Private Sub CommandButton1_Click() Dim rgExp As Range: Set rgExp = Range(A1:Q20) rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _ Width:=rgExp.Width, Height:=rgExp.Height) .Name = ChartVolumeMetricsDevEXPORT .Activate End With ActiveChart.Paste ActiveSheet.ChartObjects(ChartVolumeMetricsDevEXPORT).Chart.Export D:\KWITANSI.jpg ActiveSheet.ChartObjects(ChartVolumeMetricsDevEXPORT).Delete End Sub Ini perintah simpan Range menjadi Gambar dan di simpan di D Dengan perintah D:\KWITANSI.jpg gak ada masalah . Ketika saya ganti ActiveWorkbook.Path & \GAMBAR\:\KWITANSI.jpg Menjadi Error , Klirinya di mana ? Colek Agung Full Version Excels Script Arief Zamroni
Posted on: Thu, 08 Jan 2015 04:25:01 +0000

Trending Topics



Recently Viewed Topics




© 2015