ªð¦^¦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

¦^´_ 1# caponewilliam
2.  ½Õ¾ã§¹ width , height«á¦Aexport¨ìÀÉ®×?
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

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

¦^´_ 4# caponewilliam
¨S»¡²M·¡¤£ª¾¹D§A¦³¨S¦³»~·|¡A§Ú«üªº¬O§ï¦¨³o¼Ëªº¶¶§Ç
  1. .ChartObjects(1).Width = Image1.Width
  2. .ChartObjects(1).Height = Image1.Height
  3. .ChartObjects(1).Chart.Export filename:=TempFile, filtername:="GIF"
½Æ»s¥N½X
¨S¦³­n§A½Õ¾ãImage1±±¨î¶µªºªø¼e

1§Ú¤£ª¾¹D®@
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 5# stillfish00

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

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD