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

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

¦^´_ 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

¦^´_ 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

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD