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

[µo°Ý] excel 2021¿ï¨ú½d³ò½Æ»s¦¨jpgÀÉ¥¢±Ñ

[µo°Ý] excel 2021¿ï¨ú½d³ò½Æ»s¦¨jpgÀÉ¥¢±Ñ

¦U¦ì¤j¤j¦n¡G
½Ð±Ð¤@¤U¡A¤U­±¥N½X©óexcel 2013°õ¦æ«á¥i±N¿ï¨úªº½d³ò½Æ»s¦¨jpgÀɦs¦b®à­±¡A
¦ýªñ¤é´«¹q¸£¡A¦bexcel 2021°õ¦æ«á½Æ»s¨ì®à­±ªºjpgÀÉ«o¬OªÅ¥Õªº¡A
½Ð°Ý­n­×§ï­þ¸Ìªº¥N½X¤~·|¥¿±`©O¡H

Sub copyrange()
    Dim MyDate
    MyDate = Format(Now, "yyyy-mm-dd") & "_" & Format(Now, "hhnnss")
          Sheets(1).Select '²¾°Ê¨ìSheet1
          Selection.Copy  '½Æ»s¿ï¨ú½d³ò
           Selection.CopyPicture    '¿ï¨ú½Æ»s¦¨¹Ï¤ù
           With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart  '³q¹L¦b·í«e¤u§@ªí²K¥[¬Û¦P¤j¤pªº¹Ïªíªº¤è¦¡Âà¦s¦¨¹Ï¤ù
               .Paste  'Ö߶K½Æ»s«áªº¹Ï¤ù
               .Export "C:\Users\PC\Desktop\" & MyDate & ".JPG"    '¾É¥X¨ì®à­±¥Ø¿ý¤U,¥H¤é´Á_®É¶¡©R¦W¹Ï¤ùÀɦW
               .Parent.Delete  '§R°£¸Ó¹Ï¤ù
           End With
End Sub

ÁÂÁÂ~~

¦^´_ 1# takeshilin88

§Úªº2016¨Ï¥Î¤W¨S°ÝÃD¡A½Ð°Ý§Aªº°ÝÃD¦b­þ¸Ì¡A¥i¥H¥ÎF8°£¿ù¡AÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ takeshilin88 ©ó 2022-8-2 14:50 ½s¿è

¦^´_ 2# samwang

     ¥Ø«e¦¹¥N½X¬O°µ¦¨«ö¶s¤è¦¡°õ¦æ¡A«ö¶s§¹¦¨«á¬d¬Ý²£¥ÍªºjpgÀɤº®e¡G¤j¤p¬O¿ï¨ú½d³òªº¤j¤p¡A¦ý¬O½d³ò¤º¬OªÅ¥Õªº¡A¦p¤U¹Ï¡G
    ¦ý¬O¦pªG¬O«öF8³v¦æ°»¿ùªº¤è¦¡°õ¦æ¡A«o¬O¥¿±`ªº(²£¥ÍªºjpgÀɤº®e¥¿±`¡B¤j¤p¥¿½T)
    ¤£ª¾¹D¬O¤°»ò­ì¦]³y¦¨ªº¡A¥i¥HÀ°§Ú¸Ñ´b¶Ü¡H
    ¸É¥R¤@¤U¡G°õ¦æ¨t²Î¬Owin11¤U°õ¦æªºexcel 2021
2022-08-02_144110.JPG

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2022-8-2 16:48 ½s¿è

¦^´_ 3# takeshilin88

¨Ì±zªºµ{¦¡½X¡A­n¥ý¿ï®Ø¾Ü½d³ò¦pªþ¥óµM«á¦b°õ¦æµ{¦¡½X¡A½Ð¸Õ¬Ý¬Ý¡AÁÂÁÂ
®Ø¿ï°Ï0±i¹Ï¤ù¡A«hÂà¥X0±i¡A¦p±z´y­zªÅ¥Õ
®Ø¿ï°Ï1±i¹Ï¤ù¡A«hÂà¥X1±i
®Ø¿ï°Ï2±i¹Ï¤ù¡A«hÂà¥X2±i
....
...
1.JPG

TOP

¥»©«³Ì«á¥Ñ takeshilin88 ©ó 2022-8-2 17:27 ½s¿è

¦^´_ 4# samwang


    ³£¦³¥ý¿ï¦n½d³ò¡A¦ý¬O´ú¸Õ¹L¥u­n¬O°µ¦¨«ö¶s¡A¨Ï¥Î«ö¶s°õ¦æ´N¬OªÅ¥Õ¡A¦ý¬O¤j¤p¬O¿ï¨ú½d³òªº¤j¤p¡C¥ÎF8´N¥¿±`
    ¤]¸Õ¹L±N¿ï¨úªº½d³ò°µ¦¨ªºjpgÀÉ©ñ¨ì¤£¦P¸ê®Æ§¨¡A¤]¬O¤@¼Ëªºª¬ªp
    ¬Û¦PªºÀɮסA¦bwin10¡Aexcel 2013¤W°õ¦æ¥¿±`

TOP

¦^´_ 5# takeshilin88
«Øij«e½ú¸Õ¸Õ¨âºØ¤è¦¡

1.¨Ï¥Î§Ö³tÁä°õ¦æ¡A¨Ò¦pctrl+q,
®Ø¿ï¦n¤§«á¦A«öctrl+q

2.©Î¦b¤W­±ªº©R¥O°Ï³]¦Û­q«ö¶s°õ¦æ

¨Ñ±z°Ñ¦Ò

TOP

§Ö³tÁä³]©w

§Ö³tÁä.png
2022-8-3 08:32

TOP

¦Û­q¥\¯à°Ï«ö¶s

¯à°Ï«ö¶s.png
2022-8-3 09:01

TOP

¦^´_ 8# Andy2483

·PÁÂAndy¤j¤jªº¦^õX¡A«á¨Ó¦³¨ìMicrosoft¥h´£°Ý¡A±o¨ìªº¦^õX¬O¤£­n¨Ï¥ÎSelect©ÎSelection¡A§ï¥Î¨ä¥L¤è¦¡¨ú¥NSelection§Y¥i¥¿±`¨Ï¥Î¤F¡C

TOP

¦^´_  Andy2483

·PÁÂAndy¤j¤jªº¦^õX¡A«á¨Ó¦³¨ìMicrosoft¥h´£°Ý¡A±o¨ìªº¦^õX¬O¤£­n¨Ï¥ÎSelect©ÎSelectio ...
takeshilin88 µoªí©ó 2022-8-8 16:13


¨ä实¬O¦}¤£¬OSelectionªº问题¡A¦Ó¬O¤p¤L²vªºChart.PasteÖß贴¥¢败ªº问题¡C¨Ï¥Î单¨B°l踪运¦æ时¡A¥Ñ¤_«ö¤UF8ªº时间间¹j«D±`¤j¡AChat.Paste´N¤£会¥X现Öß贴¥¢败¡C
¥i¥H§ï¥Îhttp://forum.twbts.com/thread-22884-1-1.html¤¤¤è¦¡¡A§Y导¤J¨ä¤å¥ó内ªºbasSaveRangeToPictrue¼Ò块¡AµM¦Zª½±µ¦b¦Û¤vªº¥N码¤¤¨Ï¥Îif SaveRangeToPictrue(Selection,"C:\1.JPG") then¤è¦¡ª½±µ«O¦s¡C¥Ñ¤_SaveRangeToPictrue¬Oª½±µ¥Ñ¨t统°Å¤ÁªO内ª½±µ读¨ú图¤ù«H®§¡A©Ò¥H¤£会¥X现«O¦sªÅ¥Õ图¤ùªº现¶H
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD