c_c_lai

¦^´_ 40# ya0325
Check E-Mail.

seemee

¦^´_ 1# c_c_lai


    ½Ð±Ð¤@¤U
   §Ú§â¨ä¤¤»yªk§ï¦¨  with Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1").Chart
¦ýÁÙ¬O­n¿ï¾Ü¹Ïªí¤~¥i¥H¶]
¯àÅý¥¨¶°¦Û°Ê­I«áRUN¶Ü ¤£»Ý­n¥h¿ï¨ú¹Ïªí


ªÑ²¼¹Ïªí2.rar (23.18 KB)

§Ú§ï¹Lªº
¤U¸ü¦¸¼Æ: 30

2013-8-20 17:46

c_c_lai

¦^´_  c_c_lai


    ½Ð±Ð¤@¤U
   §Ú§â¨ä¤¤»yªk§ï¦¨  with Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1") ...
seemee µoªí©ó 2013-8-20 17:47

¦pªG§ï¦¨  with Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1") .Chart¡A½Ð±N chartname ²¾°Ê¦ì¸m¡A¨Ã¥[¥H­×§ï ActiveChart.Name -> .Name.
§_«h°õ¦æ·|¦³¿ù»~°T®§¡C

1.         text = "ªÑ²¼¹Ï K ½u¡B¥D¤O¡B´²¤á¡B»P¦¨¥æ¶q"
   
2.         
   
3.         .SetElement (msoElementChartTitleCenteredOverlay)
   
4.         .ChartTitle.text = text
   
5.         .ChartTitle.Format.TextFrame2.TextRange.Font.Size = 14
   
6.         .Legend.Position = xlCorner                         ' ±N¹Ïªí¹Ï¥Ü±q¹Ïªí³Ì¤U¤è½Õ¾ã¨ì¹Ïªí¤§¥k¤W¨¤¦ì¸m
   
7.         chartname = Trim(Replace(.Name, .Name, ""))
   
8.     End With
   
9.    
   
10.     ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left     ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
    
11.     ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
    
12.    
    
13.     Range("A1").Select
    
14. End Sub

½Æ»s¥N½X

§A´£¤Îªº°ÝÃD¬O¥i¥H°µ¨ìªº¡A¦ý¶·¥t¥~¥[¤W¤@¨Çµ{¦¡½X¥h°ÊºA¦a³B²z»PºÞ²z¶×¤J¤§¸ê®Æ¿ý¡C

seemee

¦^´_ 43# c_c_lai


    ¤£¿f§A»¡  «Ü¦h»yªk³£°Å°Å¶K¶Kªº «Ü¦h»yªk ¬Ý¤£¤ÓÀ´
   §Ú·Ó§A»¡ªº§âchartname §ï¦ì¸m¤F..
¦ý¬O¹Ïªí¦ì¸m ¤£·|°ÊA
©ó¬O§Ú§ï¤F³Ì«á¨â¦æ  ÁÙ¬O¤£·|°Ê  ³Â·ÐÀ°§Ú¬Ý¤@¤U

1.         chartname = Trim(Replace(.Name, .Name, ""))
   
2.     End With
   
3.    
   
4.    
   
5.     Sheets("¤u§@ªí1").Shapes(chartname).Left = Cells(xRow, yCol).Left     ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
   
6.     Sheets("¤u§@ªí1").Shapes(chartname).Top = Cells(xRow, yCol).Top
   
7.    
   
8.     Range("A1").Select
   
9. End Sub

½Æ»s¥N½X

seemee

¦^´_ 43# c_c_lai

°Ê¤F°Ê¤F
Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1").Left  = Cells(xRow, yCol).Left   
§ï¦¨³o¼Ë´N¥i¥H°Ê¤F..

   ÁÂÁ«e½ú«ü±Ð

c_c_lai

¦^´_ 45# seemee
¥H¥Ø«e¥»Àɮתºµ{¦¡½X¤º®e¨Ó½×¡G

1.     ActiveSheet.ChartObjects("¹Ïªí 1").Left = Cells(xRow, yCol).Left
   
2.     ActiveSheet.ChartObjects("¹Ïªí 1").Top = Cells(xRow, yCol).Top

½Æ»s¥N½X

ActiveSheet ªº«e´£¤U¡A¸Ó¥Ø«e§@¥Î (Active) ¤§ WorkSheet ¥²¶·¬° "¤u§@ªí1"¡A
¦pªG§A¤Á´«¨ì "¤u§@ªí2" ©ÎªÌ¬O "¤u§@ªí3"¡A¦A¨Ó°õ¦æ drawCharts()¡A«h·|¦³¡G
          °õ¦æ¶¥¬q¿ù»~ '5'
          µ{§Ç©I¥s©Î¤Þ¼Æ¤£¥¿½T
¿ù»~°T®§¡C ©Ò¥H¦¹³B­×§ï¦¨¡G

1.     Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1").Left = Cells(xRow, yCol).Left
   
2.     Sheets("¤u§@ªí1").ChartObjects("¹Ïªí 1").Top = Cells(xRow, yCol).Top

½Æ»s¥N½X

©ú½T¤§«ü©w°õ¦æªº¤u§@ªí³æ¡A«h¬O¥¿½Tªº¦Ò¶q¡A®¥³ß§A¥\¤O¤S¼Wªø¤F¡C

wufonna

c_c_lai ¤j¤j
«Ü´ÎªºÀɮסA¥i¥H¤À¨É¨Ó¬ã¨s¶Ü¡A¤p¾Ç¥Í¡AÁÂÁÂ
[email protected]

c_c_lai

¦^´_ 47# wufonna
Check E-Mail.

seemee

¦^´_ 46# c_c_lai


    ·s°ÝÃD¤S¨Ó¤F.
   .Legend.Position = xlCorner                         ' ±N¹Ïªí¹Ï¥Ü±q¹Ïªí³Ì¤U¤è½Õ¾ã¨ì¹Ïªí¤§¥k¤W¨¤¦ì¸m

   xlCorner        §Ú§ä¤£¨ì³o­Ó°Ñ¼Æ¬O±q­þ¸Ì¨Óªº
  §ä¨ì³o­Ó  
   xlLegendPositionBottom -4107 ¹Ïªí¤U¤è
xlLegendPositionCorner 2 ¦ì©ó¹Ïªí®Ø½uªº¥k¤W¨¤
xlLegendPositionCustom -4161 ¦Û­q¦ì¸m
xlLegendPositionLeft -4131 ¹Ïªí¥ªÃä
xlLegendPositionRight -4152 ¹Ïªí¥kÃä
xlLegendPositionTop -4160 ¹Ïªí¤W¤è

§â xlCorner §ï¦¨¼Æ¦r(-4152) ¤§Ãþªº¦ì¸m´N¥i¥H§ïÅÜ  ¦ýxlCorner¬O±q­þ¸Ì±oª¾ªº

¦A¦h°Ý¤@­Ó°ÝÃD
§Ú¬Ý§Aªº ¼Æ¾Ú¬O¤G¤Q¬íºI¨ú¤@¦¸ À³¸Ó¬O¥ÎDDE§a?
½Ð°Ý§A¤@¦¸ºI¨ú¦h¤Ö®æªº¼Æ¾Ú  ·|¤£·|¦³©µ¿ðªº°ÝÃD?
§Ú¥Î³Í°ò¤j¤T¤¸ ºI¨ú 24X300 ­Ó¼Æ¾Ú  ¦n¹³¤£¬O«Ü¶¶ ¦³¤°»ò¦n«Øij©O?

wufonna

ÁÂÁÂ c_c_lai  ¤j¤j ^_^