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

[µo°Ý] ½Ð±Ð±N A1:G50 ¦s¦¨¹Ï¤ùÀÉ(C:\ABC.JPG)ªº»yªk?

[µo°Ý] ½Ð±Ð±N A1:G50 ¦s¦¨¹Ï¤ùÀÉ(C:\ABC.JPG)ªº»yªk?

½Ð±Ð±N A1:G50 ¦s¦¨¹Ï¤ùÀÉ(C:\ABC.JPG)ªº»yªk?

¦^´_ 1# t8899
  1. Sub Test()
  2.     Dim rngCopy As Range
  3.     Set rngCopy = ActiveSheet.Range("A1:G50")
  4.     rngCopy.CopyPicture Format:=xlBitmap
  5.    
  6.     With ActiveSheet.Shapes.AddChart(Width:=rngCopy.Width, Height:=rngCopy.Height)
  7.         .Chart.Paste
  8.         .Chart.Export Filename:="C:\ABC.JPG", FilterName:="JPG"
  9.         .Delete
  10.     End With
  11. End Sub
  12.    
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_  t8899
stillfish00 µoªí©ó 2017-5-4 14:38

©êºp¡A¥X²{¿ù»~ (ªþÀÉ) Book2.rar (9.21 KB)

TOP

¦^´_ 3# t8899

C:\ABC.JPG §ï¬° D:\ABC.JPG ¸Õ¸Õ¬Ý¡A¥i¯à¬O¼g¤JÅv­­ªº°ÝÃD
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 3# t8899
2003ª©¥»
  1. Private Sub CommandButton1_Click()
  2.     Dim rngCopy As Range
  3.     Set rngCopy = ActiveSheet.Range("A1:G50")
  4.     rngCopy.CopyPicture Format:=xlBitmap
  5.    With ActiveSheet.ChartObjects.Add(, , rngCopy.Width, rngCopy.Height).Chart
  6.         .Paste
  7.         .Export Filename:="C:\ABC.JPG", FilterName:="JPG"
  8.         .Parent.Delete
  9.     End With
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  t8899
2003ª©¥»
GBKEE µoªí©ó 2017-5-9 09:12


³o­Ó¨S°ÝÃD¤F¡AÁÂÁ«ü¾É!

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD