- ©«¤l
- 14
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 19
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-11-19
- ³Ì«áµn¿ý
- 2019-7-1
|
¦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§ÚÌ·Qnªºµ²ªG
¦]¦¹ ¦pªG¥ýÅý´å¼Ð¸¨¦bªÅ¥ÕÀx¦s®æ®É ÂI¿ï"·s¼W¹Ïªí"¥\¯à®É´N¬O¤@±iªÅ¥Õªº¹Ïªí
³o®ÉÔø¥X¨Óªº¹Ï´N¤@©w·|¬O§ÚÌ·Qnªº¼Æ¾Ú
½Ð°Ý¦³¨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 |
|