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

[µo°Ý] (VBA)¦b¦h­«­¶­±¤¤Åã¥Ü¹Ïªí

[µo°Ý] (VBA)¦b¦h­«­¶­±¤¤Åã¥Ü¹Ïªí

½Ð°Ýª©¤W°ª¤â¤j¤j
§Ú¥ÎVBA¼g¤F¤@¨Ç­pºâµ{§Ç ¥t¥~¦bexcel¸Ì­±¤w¸gµe¦n¤@±i¹Ïªí ¨Ã¥BÂಾ¨ì¤@­Ó·sªº¤u§@ªí¤¤
²{¦b§Ú·QÅý³o±i¹ÏªíÅã¥Ü¦b¦h­«­¶­±ªº¨ä¤¤¤@±i¤À­¶¤W­± ³o¼Ë¤l¬O°µ±o¨ìªº¶Ü?
­Y¥i¥Hªº¸Ü ½Ð°Ý§Ú¸Ó«ç»ò¼g¤~¹ï?
ÁÂÁÂ

¦^´_ 1# caponewilliam
¥ý´¡¤J¹Ï¹³±±¨î¶µ
§â¹Ïªí¦sÀÉ¡A¸ü¤J¨ì¹Ï¹³±±¨î¶µ¤¤
  1.     Dim fileName As String
  2.    
  3.     fileName = ThisWorkbook.Path & "\temp.gif"
  4.     Sheets("¤u§@ªí1").ChartObjects(1).Chart.Export fileName
  5.    
  6.     Image1.Picture = LoadPicture(fileName)
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

·PÁÂstill¤j¤j¼ö¤ß¨ó§U
¦ý¥Ñ©ó³o±i¹Ï ¥L·|ÀHµÛ­pºâµ²ªG¦Ó§e²{ÅÜ¤Æ ©Ò¥H§Ú·Q¥i¯à¤£¾A¦X¥ý§â¹Ïªí¦sÀɦA¸ü¤J

TOP

¦^´_ 3# caponewilliam
¤£¾A¦X­ì¦]¬O?
³o¥u¬O´£¨Ñ§ó·sForm¹Ï¤ùªº¤èªk
§A¤j¥i«Ø¥ß­ÓUpdate«ö¶s¨Ó°õ¦æ§ó·s
¤S©ÎªÌ¨C¦¸¸ê®ÆÅܰʮɴN°õ¦æ¤@¦¸¨Ó§ó·s¹Ï¤ù
Ex: in Worksheet_Change or Worksheet_Calculate
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 4# stillfish00

­ì¨Ó¬O³o¼Ë  §Ú¤F¸Ñ¤j¤j±zªº·N«ä¤F
³o¼ËÀ³¸Ó´N¥i¥H¸Ñ¨M³o­Ó°ÝÃD¤F
ÁÂÁÂ^^

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD