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

[µo°Ý] ªí®æ¤º®e¦s¦¨¬Û¤ùÀÉ

[µo°Ý] ªí®æ¤º®e¦s¦¨¬Û¤ùÀÉ

Private Sub CommandButton1_Click()
Range("A2:i48").Select  
    Range("I1").Activate
Dim Newshape As Shape
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ActiveSheet.Paste
     Set Newshape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
     With ActiveSheet.ChartObjects.Add(1, 1, 1, 1)
         .Width = Newshape.Width
         .Height = Newshape.Height
          Newshape.Copy
         .Chart.Paste
         .Chart.Export ActiveWorkbook.Path & "\a1.jpg"
         .Delete
     End With
     Newshape.Delete
   MsgBox "®¥³ß!¹Ï¤ù¤w¥Í¦¨¨Ã¦s©ñ¦b" & ActiveWorkbook.Path

End Sub
¦¹­ì½X¥u¯à¦s¤@­¶a1.jpg ¦pªG­¶¦¸«Ü¦h´N«Ü³Â·Ð,
ªí®æ²Ä¤@­¶¬O(A2:I48) ¦sÀɬ°A1.JPG
ªí®æ²Ä¤G­¶¬O(A49:I95)¦sÀɬ°A2.JPG
ªí®æ²Ä¤T­¶¬O(A96:I142)¦sÀɬ°A3.JPG
ªí®æ²Ä¥|­¶¬O(A143:I189)¦sÀɬ°A4.JPG
¨Ìªí®æ¦h¹è¦s¦¨JPGÀÉ ³Â·Ð¦Ñ®v¸Ñµª

¬Ý°_¨Ó¹Ï¤ù¦ûªºÀx¦s®æ¤j¤p³£¤@¼Ë¡C
¥i¥H¥Î For °j°é§â
Range("A2:i48").Select
¤¤¶¡ªº A2:I48 ¥ÎÅܼƨӥh´À´«´N¦n¤F¡C

TOP

¦^´_ 2# denniswave
¥i¥HÀ°¦£­×§ï¶Ü

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD