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

¬°¤°»ò¦b¦s·Ó¤ùªº®É­Ô·|¤@ª½Âण°±?

¬°¤°»ò¦b¦s·Ó¤ùªº®É­Ô·|¤@ª½Âण°±?

¥»©«³Ì«á¥Ñ kkooo15 ©ó 2019-7-12 19:49 ½s¿è

¤G­Ó³æ¿W¨Ï¥Î¨S°ÝÃD
¬°¤°»ò¦X¨Ö¤@°_¨Ï¥Î´N·|Âण°±?
  1. Option Explicit
  2. Sub ¦s·Ó¤ù()
  3.     Dim Rng As Range
  4.     Dim fullName As String
  5.     fullName = ActiveWorkbook.Path & "\photo\" & Sheets("¤H¨Æ¿é¤J").Range("B4") & Sheets("¤H¨Æ¿é¤J").Range("B7") & ".jpg"
  6.     Set Rng = Range("Q1:V6") '«ü©wªº½d³ò
  7.     'Set Rng = Selection      '·Æ¹«¿ï©wªº½d³ò
  8.     Rng.CopyPicture
  9.     With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)  '·s¼W ¹Ïªí
  10.         .Chart.Paste                                           '¶K¤W ¹Ï¤ù
  11.         .Chart.Export fullName                  '¶×¥X ¹Ï¤ù
  12.         .Delete                                                '§R°£ ¹Ïªí
  13.     End With

  14. End Sub

  15. Sub ·Ó¤ù¦sÀÉ()
  16. 'ActiveWorkbook.Path & "\photo\" & Sheets("¤H¨Æ¿é¤J").Range("B4") & Sheets("¤H¨Æ¿é¤J").Range("B7") & ".jpg"
  17. 'ÀˬdÀɦW¬O§_¿é¤J¦³»~
  18. If Sheets("¤H¨Æ¿é¤J").Range("B7") = "" Or Sheets("¤H¨Æ¿é¤J").Range("B4") = "" Then
  19.    MsgBox ("¸ê®Æ¿é¤J¤£¥þ¡C")
  20.    Exit Sub
  21. End If
  22. 'ÀˬdÀɮ׬O§_¦s¦b
  23. Dim fs As Object
  24. Set fs = CreateObject("Scripting.FileSystemObject")
  25. If fs.FileExists(ActiveWorkbook.Path & "\photo\" & Sheets("¤H¨Æ¿é¤J").Range("B4") & Sheets("¤H¨Æ¿é¤J").Range("B7") & ".jpg") Then
  26.     MsgBox (Sheets("¤H¨Æ¿é¤J").Range("B4") & Sheets("¤H¨Æ¿é¤J").Range("B7") & ".jpg·Ó¤ù¤w¦s¦b¡A½Ð¤Å­«½Æ¦s·Ó¤ù¡C")
  27.     'Àɮצs¦b
  28. Else
  29.     'Àɮפ£¦s¦b
  30.     Call ¦s·Ó¤ù

  31.     MsgBox ("·Ó¤ù¤w¦sÀÉ¡C")
  32. End If
  33. End Sub
½Æ»s¥N½X
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

¦^´_ 1# kkooo15

TEST.rar (25.86 KB)

§Ñ¤FªþÀÉ
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD