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

[µo°Ý] ¿é¥X¹Ï¤ùÀÉ,°õ¦æ¶¥¬q¿ù»~1004

[µo°Ý] ¿é¥X¹Ï¤ùÀÉ,°õ¦æ¶¥¬q¿ù»~1004

¿é¥X¹Ï¤ùÀÉ,°õ¦æ¶¥¬q¿ù»~1004   Book1.zip (104.1 KB)
excel 2003
win7

Snap8.jpg
2019-2-22 21:50

  1. #If VBA7 Then
  2.   Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
  3. #Else
  4.   Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
  5. #End If

  6. Private Sub CommandButton4_Click()
  7. Dim abc As Range
  8. Dim f As Range
  9. Dim rngCopy As Range

  10.    Set f = Range("a1")
  11.    Set abc = Range("o2:o1000").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, LookAt:=xlWhole)
  12.       
  13.   Set rngCopy = Range(f, abc.Offset(1, 2))
  14.   rngCopy.CopyPicture Format:=xlBitmap
  15.   With Sheet2.ChartObjects.Add(0, 0, rngCopy.Width, rngCopy.Height).Chart
  16.      DoEvents
  17.      WaitTimes 200
  18.      .Paste
  19.      ' .Export Filename:="r:\temp\ABC.JPG", FilterName:="JPG"
  20.      .Export Filename:="c:\1.JPG", FilterName:="JPG"
  21.      .Parent.Delete
  22.    End With
  23. End Sub

  24. Private Sub WaitTimes(ByVal lngTime As Long)
  25.   Do While lngTime > 0
  26.     DoEvents
  27.     Sleep 20
  28.     lngTime = lngTime - 20
  29.   Loop
  30. End Sub
½Æ»s¥N½X
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD