ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó§â¸s²Õ¹ÏªíÂন¹Ï¤ù

[µo°Ý] ¦p¦ó§â¸s²Õ¹ÏªíÂন¹Ï¤ù

½Ð±Ð¦p¦ó¥ÎVBA §â¸s²Õ¹ÏªíÂন¹Ï¤ù¶K¨ì¨ä¥L¤u§@ªí¯S©w¦ì¸m,
§Ú·Q§â¤£¦P¤u§@ªí¤ºªº¹Ïªí¥þ³¡Âন¹Ï©ñ¨ì¤@­Ó¤u§@ªí¤º¤@¦¸Â^¨úµo«H¥Î,

¤U­±¬O¦Û¦æ¹Á¸Õ¼gªºµ{¦¡,¥i¥H§â¹ÏªíÂন¹Ï¤ù¶K¨ì¨ä¥L¤u§@ªí¯S©w¦ì¸m,
¦ý¬O·Q¹Á¸Õ§â²Õ¦¨¸s²Õªº¹Ï¤ù°µ¦P¼Ë°Ê§@,
¦bµ{¦¡§ì¨ú¹Ï¤ù³¡¥÷¦n¹³­n§ï¦¨ChartGroup ,¦ý¹Á¸Õ­×§ï¤@ª½¥¢±Ñ,
¤£ª¾¬O§_¦³¤j¤j¥i¥H±Ð¾Ç¤@¤U,
ÁÂÁÂ

Sub Macro1()
' ¹ÏªíÂন¹ÏÀÉ

     Dim mychart As Chart
     Set mychart = Sheets("Sheet3").SelectActiveSheet.ChartObjects(2).Chart
     mychart.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
     ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("B50")
   
End Sub

§ó¥¿¤@¤U¹ÏªíÂন¹ÏÀɵ{¦¡,ºë²µ{¦¡®É Set mychart=...³¡¥÷½Æ»s¿ù¤F
Sub Macro1()
' ¹ÏªíÂন¹ÏÀÉ

     Dim mychart As Chart
     Set mychart = Sheets("Sheet3").ChartObjects(2).Chart
     mychart.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
     ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("B50")
   
End Sub

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD