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

[µo°Ý] ½Ð°Ý¦p¦ó¦bvbaªí³æ¤W¥[¤Jexcelªº°ÊºA¹Ï?

[µo°Ý] ½Ð°Ý¦p¦ó¦bvbaªí³æ¤W¥[¤Jexcelªº°ÊºA¹Ï?

½Ð°Ý±qexcel©Òø¥X¨Óªº¹Ï
¥i¥H¥ÎVBA±N¥¦§e²{¦bFORM¸Ì­±¡A
¨Ã¥B«O«ù°ÊºAªº¥\¯à¶Ü?
½Ð°Ý¦³¤H¥i¥H±Ð§Ú«ç»ò¥Î¶Ü?
¦]¬°¥hª¾ÃÑ+°Ý
¥L­Ì»¡¤£¥i¥H

excel¹Ïªí¦pªþ¥ó
ex1.png
·¥¥Ø§N²´¯º»a¶³¡A±I¹æ¤@¥Í¶Æ¤ÑªÆ

¨S¦³ÀÉ®×,µ¹­Ó¤è¦V
±N¹Ïªíªº¸ê®Æ¨Ó·½¥H°ÊºA©w¸q¦WºÙ§@½d³ò
¸Ó°ÊºA©w¸q¦WºÙªº¤½¦¡°Ñ¼Æ¥H·L½Õ¯Ã¸ò±²¶b­È±a¤J
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§â­nÅã¥Üªº¹Ïªí©ñ¦b Microsoft Excel 5.0¹ï¸Ü¤è¶ô ¤]¥i¥H§e²{Ãþ¦ü VBA Form ªº®ÄªG.
¦A°t¦X Hsieh ©Ò´£¤è¦¡§Y¥i¹F¦¨°ÊºA(±²°Ê)®ÄªG.

TOP

chartªºexport属©Ê导¥X为¤å¥ó¡A¦A¥Î导¤J图¤ùªº¤èªk¡A¤£ª¾¬O§_¥i¥H实现
学习

TOP

¦^Hsieh¤j
Àɮפw¸gªþ¤W
§Ú·Q±Nexcel©Ò°µ¥X¨Óªº¹Ï
¥[¨ìvbaªºªí³æ¤W¡AµM«á«O«ù°ÊºA¥i¥Hºu°Ê¤é´Á
¦]¬°¦³¥hª¾ÃÑ®a°Ý¹L¦ý¬O¥L­Ì»¡¤£¥i¥H
¥u¯à¥H¹Ïªí§e²{

DDE.rar (45.22 KB)

·¥¥Ø§N²´¯º»a¶³¡A±I¹æ¤@¥Í¶Æ¤ÑªÆ

TOP

¦^´_ 5# ´dÅwÂù¤ß
  1. Sub getchartpicture()
  2. On Error Resume Next
  3. With Sheet3.ChartObjects("Chart 3")
  4. .Chart.Export ThisWorkbook.Path & "\Chart.jpg", "jpg", True
  5. End With
  6. With UserForm1
  7. .Show 0
  8. .Top = 208
  9. .Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Chart.jpg")
  10. End With
  11. End Sub
½Æ»s¥N½X
DDE.rar (48.76 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh

ÁÂÁªO¥Dªº±Ð¾Ç
¤S¾Ç¨ì¤F¤@­Ó¤èªk

¦A¦¸½Ð°Ýª©¥D
¦pªG§Ú·Q§â¦o°µ±o§ó¦n
¨º»ò§ÚÀ³¸Ó¥Î¬Æ»ò¼Ëªº¤èªk
·¥¥Ø§N²´¯º»a¶³¡A±I¹æ¤@¥Í¶Æ¤ÑªÆ

TOP

¦^´_ 7# ´dÅwÂù¤ß

«ç¼Ë§@§ó¦n?
°ò¥»¤Wexcel¥»¨­¹Ïªíªº¥\¯à¤w¸g¤£®t   
¥Ø«e©p­n¨D¤w¬O¼Æ¦U¤H³ß¦n°ÝÃD
³o´N¨S¤°»ò¦n»PÃa¤F,À³¸Ó¯ÂÄݦU¤H»Ý¨D
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# Hsieh
sorry¤j¤j§A¥i¯à»~¸Ñ§Úªº·N«ä
§Ú¥i¥H¯à¥´±o¤£²M·¡
§Úªº·N«ä¬O
¤j¤j±z±Ðªº¤èªk¬O¤@ºØ¤èªk
¨º¦pªG­n§e²{¤@¼Ëªºµ²ªG
¬O§_ÁÙ¦³²Ä¤GºØªº¤èªk
¦pªG¥i¥Hªº¸Ü½Ð¬ù²¤¸ò§Ú»¡
·¥¥Ø§N²´¯º»a¶³¡A±I¹æ¤@¥Í¶Æ¤ÑªÆ

TOP

¦A´N¬O¦bVS¤¤¥Î°µ个图ªí±±¥ó¡Aª½±µ调¥Îexcel¤¤数Õu
学习

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD