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

[µo°Ý] ø¹Ïªº¬ÛÃö°ÝÃD

[µo°Ý] ø¹Ïªº¬ÛÃö°ÝÃD

¦U¦ì¤j¤j¦n
¤p§Ì·Q½Ð±Ð2­Ó°ÝÃD
1.
¬Û«H¦³¦bexcelµe¹Ï¸gÅ窺¤H³£ª¾¹D ¦pªG´å¼Ð¸¨¦b¥ô¤@­Ó«DªÅ¥ÕÀx¦s®æ®É  ¦b°õ¦æø¹Ï®É exel·|¦Û¤v§ì¨ú¤@¨Ç¼Æ¾Ú´Nª½±µµe¹Ï¤F
¦ý³o¦³®É³£¤£¬O§Ú­Ì·Q­nªºµ²ªG
¦]¦¹ ¦pªG¥ýÅý´å¼Ð¸¨¦bªÅ¥ÕÀx¦s®æ®É ÂI¿ï"·s¼W¹Ïªí"¥\¯à®É´N¬O¤@±iªÅ¥Õªº¹Ïªí
³o®É­Ôø¥X¨Óªº¹Ï´N¤@©w·|¬O§Ú­Ì·Q­nªº¼Æ¾Ú
½Ð°Ý¦³¨S¦³¤°»ò¤èªk¬O¥i¥HÅý§Ú¦bVBA°õ¦æø¹Ï®ÉÁקK¦Û°Ê¿ï¨ú¼Æ¦Cªº¥\¯à©O?
¦]¬°excel¤º«Ø³oºØ¥\¯à¦³®É¯uªº·|³y¦¨§O¤Hªº»~¸Ñ

2.
¥Ø«e§Ú±N¤u§@ªí¤ºªº¹Ï¤]¤@¨Ö§e²{¦buserform¤W­±
¦ý¬O¦buserform¤W­±ªº¹Ï¤ù¸ÑªR«×»Pexcel¤Wªº®t«D±`¦h
½Ð°Ý³o¦³¤°»ò¿ìªk¸Ñ¨M¶Ü?
Ãö©ó§Ú¼¶¼g¦buserform¤W­±Åã¥Ü¹Ï¤ùªºµ{¦¡½X¦p¤U:

Dim TempFile As String, fso, fldr
Dim imageW, imageH
Set fso = CreateObject("Scripting.FileSystemObject")
TempFile = "C:\" & Replace(fso.GetTempName, "tmp", "GIF")
.ChartObjects(1).Chart.Export filename:=TempFile, filtername:="GIF"
.ChartObjects(1).Width = Image1.Width
.ChartObjects(1).Height = Image1.Height
Image1.Picture = LoadPicture(TempFile)
Image1.PictureSizeMode = fmPictureSizeModeStretch
ÁÂÁ¤j®a

¦^´_ 2# stillfish00

¨ä¹ê¤p§Ì§Ú¹ï¨âªÌ¨BÆJªº®t²§ÁÙ¨S¦³¤Ó¦h¤F¸Ñ
¤£¹L§Ú±ßÂI¥i¥H¨Ó´ú¸Õ¤@¤U ¦A©M¤j¤j³ø§i
ÁÂÁÂ

TOP

¦^´_ 2# stillfish00

¦V¤j¤j³ø§i¤@¤U­è­è´ú¸Õ¹L«áªºµ²ªG
­Y¨Ï¥ÎfmPictureSizeModeStretchªº¸Ü ¸ÑªR«×´N·|­°§C¤F
¦pªG¶È½Õ¾ã¹Ï®×ªºªø¼e ¸ÑªR«×¥i¥H©M­ì½Z¤@¼Ë
¥u¬O¹Ï¤ù´N¨S¿ìªk¶ñº¡¾ã­Ó¹Ï¤ùµ¡®æ ¤£¹L³o¼Ë§Ú¤]°÷¥Î¤F

¥t¥~¤£ª¾¹D§Úªº²Ä¤@­ÓºÃ°Ý ¦³¨S¦³¿ìªk¸Ñ¨M©O?

TOP

¦^´_ 5# stillfish00

ÁÂÁ¤j¤j
¤£¹L§Ú¥Î±zªº¤è¦¡´ú¸Õ¹L¤F ¸ÑªR«×ÁÙ¬O¨S¦³¸òexcel¤W§e²{ªº¤@¼Ë¦n­C

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD